1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27
|
Public Sub test()
Dim mbd As Database, DTab1 As Recordset, DTab2 As Recordset, ChampTab As Field
Dim ChampTab2 As Variant, Msql As String, ChampCle As Variant
Set mbd = CurrentDb()
DTab1 = mbd.OpenRecordset("Table1")
Do Until DTab1.EOF
ChampCle = dtabb1("Champ1") ' Récupération de la clé
For Each ChampTab In DTab1.Fields 'Parcours des champs de la ligne
ChampTab2 = ChampTble.Name 'Récupération d'un champ
'Récupération des données de la table2 en fonction de la clé
Msql = "Select " & ChampTab2 & " From Table2 " & "Where Champ1 = " & ChampCle
Set DTab2 = mbd.OpenRecordset(Msql)
If ChampTble.Value <> DMat(ChampTab2) Then
MsgBox "Trouvé :" & DMat(ChampTab2)
End If
DTab2.Close
Next
DTab1.MoveNext
Loop
End Sub |
Partager