Voila le but recherché est de saisir la valeur se trouvant dans une base de donnée.
Voici mon code, le problème vien de la ligne strReferenceNow = Fields("fldReference").Value, cette ligne marchait quand je l'utilisait pour remplir une listbox, mais pour remplir la variable ca n'est plus ca.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
Do While Not .EOF
            strReferenceNow = Fields("fldReference").Value
            If intReferenceNow = Val(Mid(strReferenceNow, 2, Len(strReferenceNow))) > intReferenceLast Then
                intReferenceLast = intReferenceNow
            End If
            .MoveNext
        Loop
merci d'avance a tous ceux qui pouront m'apporter leur aide cela m'aidera fortement

mes salutation, un débutant