Problème de conversion VBA access 2007 Résolu/Fermé

Question

Bonjour,

Je suis toujours en phase d'apprentissagesur access 2007 et j'aimerais savoir comment convertir une zone texte où il n'y a que des chiffres dans une variable. Voici mon code :

       DoCmd.Hourglass True

    Set db = CurrentDb()
    ' recherche par numéro de dossier
    
        Let nb_lg_liste_selection = 0

        Let query_def = "SELECT DOSS.num_dossier_DOSS, DOSS.nom_usuel_DOSS "
        Let query_def = query_def & "FROM DOSS "
        Let query_def = query_def & "WHERE DOSS.num_dossier_DOSS = [Text4]"
        Set curseur = db.OpenRecordset(query_def, DB_OPEN_DYNASET)
        curseur.MoveFirst

        a = [Text4]
        MsgBox a                              ==> pour vérifier la valeur
        Do Until (curseur.EOF)

            If (nb_lg_liste_selection > 199) Then
                Exit Do
            End If
            liste_selection(nb_lg_liste_selection, 0) = curseur!num_dossier_DOSS
            liste_selection(nb_lg_liste_selection, 1) = curseur!nom_usuel_DOSS

            nb_lg_liste_selection = nb_lg_liste_selection + 1

            curseur.MoveNext

        Loop
    DoCmd.Hourglass False


En gros quelqu'un doit entrer un numéro de dossier dans une zone de texte (Text4), puis par validation d'un bouton, afficher dans une liste le numéro et le nom de la personne.
Rien ne marche : MsgBox me renvoi 0 et rien ne s'affiche dans la liste (logique).
Merci a vous !

Polux31 · Answer

bonjour,
Récupère la valeur de Text4 dans une variable de type Integer avant de faire la requête.
Dim a As Integer
a = Cint(Text4)
....
        Let query_def = "SELECT DOSS.num_dossier_DOSS, DOSS.nom_usuel_DOSS "
        Let query_def = query_def & "FROM DOSS "
        Let query_def = query_def & "WHERE DOSS.num_dossier_DOSS = " & a
....

;o)
polux

Polux31 · Answer

lol ... faut rester zen surtout ...

je vois ça :
a = CInt(Texte4)"; alors que dans ton premier post c'était Text4 ...

;o)

Polux31 · Answer

je ne vois pas ... peut être : a = Clng(Texte4) ... 

Quelle est le type du champ num_dossier_DOSS dans la table DOSS de la base de donnée ?

Polux31 · Answer

Si le champ num_dossier_DOSS est de type entier long, il faut que la variable a soit également de type Long :
Dim a As Long

a = CLng(Texte4)

à voir ...

;o)

Polux31 · Answer

de rien, content de t'avoir enfin dépatouillé ...

bonne continuation,

;o)

polux

Polux31 · Answer

n'oublie pas de mettre en résolu   ;o)

Désiré SOP · Answer

Je pense vouloir une documentation pour nul en visualbasic il fonctionne ce langage fonctionne dans une base de donnée access ainsi je pourrai évoluer avec les documents dont je dispose.
Merci d'avance

Problème de conversion VBA access 2007

7 réponses

Discussions similaires