Boucle avec VB - Page 4

J'ai perdu ma concentration.

je vais encore faire une exception pour toi ... décidemment tu es gaté ... ma proposition est assez simpliste et il existe surement un moyen plus conventionnel. Mais je suis en manque d'inspiration ... :o)

Public Function SearchTable()

Dim i As Integer

i = ReturnI(Qr.Fields(0))

While Not Qr.EOF

If i <> Qr.Fields(0) Then
lstaud.AddItem i
Qr.MovePrevious
End If
Qr.MoveNext
i = i + 1
Wend

End Function

Public Function ReturnI(ByVal ind As Integer) As Integer
Dim strI As String
Dim lg As Long
Dim c As String

strI = CStr(ind)
lg = Len(strI)

If Right(strI, 1) <> "1" Then
ReturnI = CInt(Left(strI, lg - 1) & 1)
Esle
ReturnI = ind
End If

End Function

tu veux pas m'aider ?

non je suis pas gaté, mais je trouve pas la concentration, mais toi très gentil et très généreux, merci et je m'excuse pour le dérangement.
NAGNAG

Merci, c'est avec plaisir que je l'ai fait.

Bon courage à toi

;o)

Polux

n'oublie pas de mettre résolu si tu n'as plus de blème ... merci ;o)

Bonjour POLUX31,
Comment tu vas bien ? je suis entrain de terminer le programme concernant ma base de donnée, après avoir terminé les numéros manuquants, envie de les remplir à partir d'un form contenant un listbox qui génére ces numéros.

C'est pas le cas, car il faut bien saisir formulaire vièrge en recuperant ces numeros(n°,classe,annee scolaire,adresse n° de tel..., un par un.

ok, j'ai compris la manip ... tu bloques sur koi ?

Merci, pour le momoment cava tu restes avec moi, on ne sais jamais.

ok, pas de blème

;o)