cs_zaatout
Messages postés156Date d'inscriptiondimanche 19 novembre 2006StatutMembreDernière intervention20 novembre 2013
-
1 mars 2008 à 13:27
PCPT
Messages postés13272Date d'inscriptionlundi 13 décembre 2004StatutMembreDernière intervention 3 février 2018
-
1 mars 2008 à 15:51
Bonjour
quelqu'un peut me courrige ce code
j'ai deux tables adodc1,adodc2
dans la premier table je voudrais selectionne que les enregistrements du champ cheq different de blanc.
puis cherche ds la deuxieme table le meme cheque et meme montant que la premier table et affect la valeur "T1207" au champ etat des deux tables.Pour avoir dans les deux tables des enregistrements qui ont meme cheque et montant
voici mon code Merci
Private Sub Command7_Click()
Adodc1.Recordset.MoveFirst
For i = 1 To Adodc1.Recordset.RecordCount
chq = Adodc1.Recordset.Fields(3).Value
mt = Adodc1.Recordset.Fields(4).Value
Adodc2.Recordset.Filter = "che='" & (chq) & "' And montant='" & Trim(mt) & "'"
If Adodc2.Recordset.RecordCount > 0 Then
Adodc1.Recordset.Fields(6).Value = "T1207"
Adodc2.Recordset.Fields(7).Value = "T1207"
Adodc1.Recordset.Update
Adodc2.Recordset.Update
End If
Adodc1.Recordset.MoveNext
Next