Boucle avec VB
Fermé
NagNag
-
25 oct. 2007 à 16:55
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 - 30 oct. 2007 à 16:12
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 - 30 oct. 2007 à 16:12
A voir également:
- Boucle avec VB
- Vb - Télécharger - Langages
- Vb cable - Télécharger - Audio & Musique
- Mon pc s'allume et s'éteint en boucle ✓ - Forum Matériel & Système
- Tv orange chargement en boucle ✓ - Forum TV & Vidéo
71 réponses
Polux31
Messages postés
6917
Date d'inscription
mardi 25 septembre 2007
Statut
Membre
Dernière intervention
1 novembre 2016
1 204
29 oct. 2007 à 16:24
29 oct. 2007 à 16:24
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
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
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
NAGNAG
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Polux31
Messages postés
6917
Date d'inscription
mardi 25 septembre 2007
Statut
Membre
Dernière intervention
1 novembre 2016
1 204
29 oct. 2007 à 16:34
29 oct. 2007 à 16:34
Merci, c'est avec plaisir que je l'ai fait.
Bon courage à toi
;o)
Polux
Bon courage à toi
;o)
Polux
Polux31
Messages postés
6917
Date d'inscription
mardi 25 septembre 2007
Statut
Membre
Dernière intervention
1 novembre 2016
1 204
29 oct. 2007 à 17:42
29 oct. 2007 à 17:42
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.
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.
Polux31
Messages postés
6917
Date d'inscription
mardi 25 septembre 2007
Statut
Membre
Dernière intervention
1 novembre 2016
1 204
30 oct. 2007 à 15:48
30 oct. 2007 à 15:48
ok, j'ai compris la manip ... tu bloques sur koi ?
Polux31
Messages postés
6917
Date d'inscription
mardi 25 septembre 2007
Statut
Membre
Dernière intervention
1 novembre 2016
1 204
30 oct. 2007 à 16:12
30 oct. 2007 à 16:12
ok, pas de blème
;o)
;o)