Bonjour à tous,
Je suis un étudiant en stage et j'ai du créé un code qui récupère les valeurs d'un document Excel pour les mettre dans mes tables Access. Par contre, j'aimerai effectué un test pour savoir si, la valeur que je récupère est déjà présente dans ma table, auquel cas je met à jour la ligne. Dans le cas contraire, je créé une nouvelle ligne.
J'ai un problème que je n'arrive pas à résoudre pour ce test, le reste marche impécable.
Quelqu'un peut-il m'aider à résoudre mon problème svp ??? Merci d'avance.
Mon code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18 For i = 2 To NbLine With xlApp.ActiveWorkbook.Worksheets("Bdd") 'recuperation des données de la feuille Bdd Req(1) = .Range("E" & i).Value toto = "SELECT * FROM nom_table WHERE colonne1='" & Req(1) & "'" Set rs = CurrentDb.OpenRecordset(toto) If (Req(1) = rs("colonne1").Value) Then cSQL = "UPDATE nom_table SET colonne2='maj' WHERE colonne1='" & Req(1) & "'" 'requete SQL DoCmd.RunSQL cSQL 'execution de la requete SQL MsgBox ("boucle 1") Else MsgBox ("boucle 2") cSQL = "INSERT INTO nom_table (colonne1, colonne2) VALUES ('" & Req(1) & "', 'tata')" 'requete SQL" DoCmd.RunSQL cSQL 'execution de la requete SQL End If End With Next i
Partager