Comparaison 2 tables et suppression
hate_access
-
hate_access -
hate_access -
Bonjour,
j ai deux table : table1 et table2; je veux les comparer, enregistrement par enregistrement : si un element de la table2 est dans la table1, alors je le supprime de la table 1
le problème c que quand je fais ca, il ne m'efface pas tout;
merci de votre aide
'voici le code:
Public Sub test()
Dim Mydb As DAO.Database
Dim Mytable1 As DAO.Recordset
Dim Mytable2 As DAO.Recordset
Set Mydb = DBEngine.OpenDatabase........
Set Mytable1 = Mydb.OpenRecordset("Table1", dbOpenTable)
Set Mytable2 = Mydb.OpenRecordset("Table2", dbOpenTable)
Mytable1.MoveFirst
Do Until Mytable1.EOF
Mytable2.MoveFirst
If Mytable1![nom] = Mytable2![nom] Then
Mytable1.Edit
Mytable1.Delete
End If
Mytable2.MoveNext
Mytable1.MoveNext
Loop
End Sub
j ai deux table : table1 et table2; je veux les comparer, enregistrement par enregistrement : si un element de la table2 est dans la table1, alors je le supprime de la table 1
le problème c que quand je fais ca, il ne m'efface pas tout;
merci de votre aide
'voici le code:
Public Sub test()
Dim Mydb As DAO.Database
Dim Mytable1 As DAO.Recordset
Dim Mytable2 As DAO.Recordset
Set Mydb = DBEngine.OpenDatabase........
Set Mytable1 = Mydb.OpenRecordset("Table1", dbOpenTable)
Set Mytable2 = Mydb.OpenRecordset("Table2", dbOpenTable)
Mytable1.MoveFirst
Do Until Mytable1.EOF
Mytable2.MoveFirst
If Mytable1![nom] = Mytable2![nom] Then
Mytable1.Edit
Mytable1.Delete
End If
Mytable2.MoveNext
Mytable1.MoveNext
Loop
End Sub
A voir également:
- Comparaison 2 tables et suppression
- Forcer suppression fichier - Guide
- Supercopier 2 - Télécharger - Gestion de fichiers
- Tables des matières word - Guide
- Suppression compte gmail - Guide
- 2 ecran pc - Guide
