Récuperer dans une table des lignes qui ont été supprimées en comparant 2 autres

Question

Bonjour,

n'&#233;tant pas une star du d&#233;veloppement mais ayant quelques notions j'ai d&#233;velopp&#233; pour mon boulot un petit programme qui me permet de comparer 2 fichiers excel qui va supprimer dans la table2 les lignes identiques &#224; la table1 selon certains champs que je d&#233;finie au pr&#233;alable. J'importe  bien entendu ces 2 fichiers dans Access pour lancer mon programme.

Voil&#224; &#224; quoi il ressemble :


Option Compare Database


Dim DBNico As Database


Dim Tbl1 As Recordset


Dim Tbl2 As Recordset




Private Sub Cmdlancer_Click()






Set DBNico = DBEngine.Workspaces(0).Databases(0)


Set Tbl1 = DBNico.OpenRecordset("Table1", DB_OPEN_TABLE)


Set Tbl2 = DBNico.OpenRecordset("Table2", DB_OPEN_TABLE)


Dim I As Integer




Tbl1.MoveFirst


Tbl2.MoveFirst


I = 0


While Not Tbl1.EOF


While Not Tbl2.EOF


If Tbl1!CP Tbl2!CP And Tbl1!NOM Tbl2!NOM And Tbl1!ADR = Tbl2!ADR Then


Tbl2.Delete


I = I + 1


End If


Tbl2.MoveNext


Wend


Tbl2.MoveFirst


Tbl1.MoveNext


Wend


Tbl1.Close


Tbl2.Close


txtval.Visible = True


txtval = I


End Sub




Private Sub Form_Load()


txtval.Visible = False


End Sub

Le probl&#232;me c'est que maintenant j'aimerai bien mettre dans une 3&#232;me table les lignes qui ont &#233;t&#233; supprim&#233;es, j'ai pens&#233; qu'en cr&#233;ant et important un 3&#232;me fichier Excel ayant des champs identiques je pourrai y arriver mais je ne sais pas si cette 3&#232;me table se d&#233;clare comme les 2 autres (apparemment pas), ni comment faire pour lui donner l'instruction de type Tbl3(J) = Tbl1(I) qui va lui permettre de recevoir la ligne souhait&#233;e. J'ai pens&#233; aussi cr&#233;er une variable du m&#234;me type que mes tables pour agr&#233;menter ma 3&#232;me table mais je ne connais pas la syntaxe ad&#233;quate. En bref je suis dans le flou et j'aurai besoin d'aide.

J'esp&#232;re avoir &#233;t&#233; claire et recevoir quelques conseils.

Merci

spap · Answer

Je remets le code car ce n'est pas bien lisible dans le message pr&#233;c&#233;dent.

cs_Jack · Answer

Salut
Ta recherche peut se limiter &#224; une requ&#232;te SQL :
strSQL = "Delete From Table1 " & _
         " where (champ1 + champ2 + ... + champX) " & _
         "   in (Select champ1 + champ2 + ... + champX" & _
         "         from Table2)"
J'ai bien mis + entre les champs pour qu'il fabrique une chaine de recherche comportant tous les champs
et ainsi &#234;tre s&#251;r que cette m&#234;me fiche compl&#232;te existe dans l'autre table.
tonRecordSet.Execute strSQL, taConnexion, r ' = syntaxe ADODB, je ne connais pas celle que tu utilises
'r' te fournira le nombre de fiches concern&#233;es par la m&#233;thode Delete.

Vala
Jack, MVP VB
NB : Je ne r&#233;pondrai pas aux messages priv&#233;s 

Le savoir est la seule mati&#232;re qui s'accroit quand on la partage. (Socrate)

spap · Answer

Merci, la requ&#234;te marche du feu de dieu et est plus efficace que le code que j'avais cr&#233;&#233; cependant je ne comprends pas bien la suite de ton message  : tonRecordSet.Execute strSQL, taConnexion, r ' = syntaxe ADODB
En effet je n'ai pas l'instruction "Execute" dans le code VBA.

Si tu pouvais m'&#233;clairer &#224; nouveau &#231;a serait sympa.

Récuperer dans une table des lignes qui ont été supprimées en comparant 2 autres

3 réponses

Discussions similaires