2 réponses
Bobinours
Messages postés
2898
Date d'inscription
jeudi 26 avril 2001
Statut
Membre
Dernière intervention
21 mars 2013
503
14 nov. 2001 à 13:40
14 nov. 2001 à 13:40
Quel langage ?
-= Bobinours =-
-= Bobinours =-
Je suis en vb et je commence (ca va mal pour moi)
J'ai commencé par trouver juste mes champs vides
Dim i As Variant
Dim Data1 As Database
Dim rs As Recordset
Dim rs1 As Recordset
Set Data1 = OpenDatabase("C:\Windows\Bureau\André.mdb")
Set rs = Data1.OpenRecordset("Select * from Essai where TRENN<>' '")
Set rs1 = rs.Clone
rs1.MoveLast
rs1.MoveFirst
For i = 0 To rs.RecordCount
next i
Il m'en compte 4 items
mais mon autre probème c'est que je ne sais pas comment remplir ma dbcombo et avoir une synchronisation avec les autres dbcombo
Peux-tu m'indiquer comment faire
Merci
Louise
J'ai commencé par trouver juste mes champs vides
Dim i As Variant
Dim Data1 As Database
Dim rs As Recordset
Dim rs1 As Recordset
Set Data1 = OpenDatabase("C:\Windows\Bureau\André.mdb")
Set rs = Data1.OpenRecordset("Select * from Essai where TRENN<>' '")
Set rs1 = rs.Clone
rs1.MoveLast
rs1.MoveFirst
For i = 0 To rs.RecordCount
next i
Il m'en compte 4 items
mais mon autre probème c'est que je ne sais pas comment remplir ma dbcombo et avoir une synchronisation avec les autres dbcombo
Peux-tu m'indiquer comment faire
Merci
Louise