Problèmes de remplissage de combobox (code sources)
cs_lordgodgiven
Messages postés7Date d'inscriptiondimanche 14 mars 2004StatutMembreDernière intervention 5 septembre 2008
-
28 août 2008 à 12:06
dedenet2
Messages postés372Date d'inscriptionvendredi 27 juillet 2007StatutMembreDernière intervention22 juillet 2013
-
29 août 2008 à 00:12
Bonjour,
Voici le code sources, j'espére que vous allez trouvez la faille car j'ai essayé mais sans succés, sur d'autre form j'ai trois combo box, j'attends votre aide avec impatience car mon application n'avance pas suite à ce bug.
Merci
Private Sub Form_Load()
If rs.State = 1 Then rs.Close
If rs2.State = 1 Then rs2.Close
If rs3.State = 1 Then rs3.Close
Dim i, j As Integer
rs.Open "select * from DisqueDur", cnx, adOpenStatic, adLockPessimistic
rs2.Open "select * from Memoire", cnx, adOpenStatic, adLockPessimistic
rs3.Open "select * from UniteCentrale", cnx, adOpenStatic, adLockPessimistic
rs3.MoveFirst
Afficher
For i = 1 To rs2.RecordCount
Combo1.AddItem rs2(1)
rs2.MoveNext
For j = 1 To rs.RecordCount
Combo2.AddItem rs(3)
rs.MoveNext
Next j, i
End Sub
-----------------------------------
Sub Afficher()
Text1 = rs3(0)
Text2 = rs3(1)
Text3 = rs3(2)
Text4 = rs3(3)
Combo1 = rs2(1)
Combo2 = rs(3)
End Sub
----------------------------------
Private Sub Command1_Click()
rs3.MoveFirst
Afficher
End Sub
----------------------------------
Private Sub Command2_Click()
rs3.MovePrevious
If rs3.BOF = True Then
rs3.MoveFirst
End If
Afficher
End Sub
-----------------------------------
Private Sub Command3_Click()
rs3.MoveNext
If rs3.EOF = True Then
rs3.MoveLast
End If
Afficher
End Sub
-----------------------------------
Private Sub Command4_Click()
rs3.MoveLast
Afficher
End Sub
A voir également:
Problèmes de remplissage de combobox (code sources)
dedenet2
Messages postés372Date d'inscriptionvendredi 27 juillet 2007StatutMembreDernière intervention22 juillet 20132 28 août 2008 à 13:40
Bonsjour ,
Y a vraiement un problème quand je vois cette écriture.
Text1 = rs3(0)
Text2 = rs3(1)
Text3 = rs3(2)
Text4 = rs3(3)
Combo1 = rs2(1)
Combo2 = rs(3)
cs_lordgodgiven
Messages postés7Date d'inscriptiondimanche 14 mars 2004StatutMembreDernière intervention 5 septembre 2008 28 août 2008 à 15:34
Bonjour,
L'objet RS est un recordset, j'ai crée un module dans lequel j'ai instanciés ces objets (rs, rs1, rs2, rs3, rs4...) donc dans mon cas, le rs ouvre un jeu d'enregistrement dans une table donné, par rapport au code source, il ouvre un jeu d'enregistrement dans la table DisqueDur donc sur ce point pas de soucis. Le problème se pose au moment du remplissage des combo box, avec un combo box il n'y pas de message d'erreurs mais dès qu'il deux, trois voir quatre combo box c'est là que les messages d'erreurs apparaissent (BOF ou EOF, l'enregistrement ....) bref je n'arrive pas à navigué dans les enregistrés, dès que je tente j'obtiens le message d'erreur, celui cité ci-dessus.
LIBRE_MAX
Messages postés1402Date d'inscriptionmardi 1 mai 2007StatutMembreDernière intervention 7 octobre 20126 28 août 2008 à 15:54
Salut,
On teste d' abord, on se deplace ensuite.
----------------------------------
Private Sub Command2_Click()
If Not(rs3.BOF) Then rs3.MovePrevious
If rs3.BOF = True Then rs3.MoveFirst
Afficher
End Sub
-----------------------------------
Private Sub Command3_Click()
If Not(rs3.EOF) Then rs3.MoveNext
If rs3.EOF = True Then rs3.MoveLast
Afficher
End Sub
-----------------------------------
Private Sub Command4_Click()
rs3.MoveLast
Afficher
End Sub
Private Sub Command1_Click()
rs3.MoveFirst
Afficher
End Sub
<hr />
[] Ce qui va sans dire. va mieux en le disant.
<hr />
Vous n’avez pas trouvé la réponse que vous recherchez ?