adodcRésolu

Question

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


End Sub

PCPT · Accepted Answer

attend qu'on te réponde, pas la peine de reposter....
(topic plus ou moins doublon supprimé)

Adodc

1 réponse

Votre réponse

Discussions similaires