Discussion :

[blacklolou]

Bonjour,

Je cherche a updater/completer une table access a partir d'un fichier excel.
Pour cela je fais une recherche SQL pour voir si la clef primaire que je veux toucher existe deja dans base :
si oui -> je veux updater un champ date de ma table
si non -> je veux l'inserer dans ma table (via une requete SQL INSERT).
La requete INSERT fonctionne bien, mais la requete SELECT pour voir si la clef existe deja retourne toujours un recordset vide..
pourtant en prenant la string de la requete SQL et en l'executant directement dans Access elle fonctionne! ..

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
 sqlFindEntry = "SELECT Name,Date,time FROM table1 WHERE Name = '" & var_name & "' AND Date = '" & var_date & "' ;"
        Set Recordset = Connection.Execute(sqlFindEntry)
        'update time if entry exists
        If Recordset.RecordCount > 0 Then
            Recordset("time") = var_time
        'insert if doesnt exist
        Else
            sqlInsert = "INSERT INTO table1 VALUES (' " & var_name & " ',' " & var_date & " ', ' " & var_time & " ', ' " & var_frequency & " ')"
            Set Recordset = Connection.Execute(sqlInsert)
        End If

Merci par avance pour vos idees!

[jfontaine]

Bonjour,

Plutôt que de retourner la ligne de l'enregistrement et de tester si le retour est vide ou non, utilises un agrégat count et test si le retour est à 0 ou 1.

[blacklolou]

Hello jfontaine,

Je comprend pas bien ta proposition : j'ai besoin de recuperer la ligne de l'enregistrement pour pouvoir modifier le champ time de cette ligne !
(sachant que si il existe un enregistrement il est unique puisque la clef primaire de ma table c'est Name * Date).

Merci!

[jfontaine]

Si tu souhaites modifier directement l'enregistrement, essais comme cela

On test la position du curseur dans le recordset

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
If Recordset.EOF = False Then
    'modif
 
 
Else
    'Insert
 
 
End If

[blacklolou]

Ok en faite j'ai du mal m'exprimer.
Mon probleme est que ma requete ne fonctionne pas le recordset retourne est toujours vide alors meme que la meme requete lancee directement dans acces a un enregistrement retour! Du coup un count sur recordset ou un test RecordSet.EOF ne resoud pas mon probleme -> je rentre jamais dans ce If alors meme que l'enregistrement existe dans la base et que du coup la macro essayant de creer un nouveau champ avec cette clef plante pour cause de clef deja existante!

[jfontaine]

En effet, j'ai vraiment mal compris.

Pas sur que ce soit cela, mais utilises des crochets quand un nom de champ existe aussi en instruction VBA

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

sqlFindEntry = "SELECT Name, [Date],[time] FROM table1 WHERE Name = '" & var_name & "' AND [Date] = '" & var_date & "' ;"

[blacklolou]

Nope j'avais deja essaye mais ca ne resoud pas mon pb
Je continue a chercher mais je vois vraiment pas pourquoi ma requete ne me retourne pas l'enregistrement alors que la meme string de requete dans access fonctionne...

D'autres idees?

[Access Newbie]

Bonjour,

Et avec quelque chose dans ce genre ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
 
If dCount("*","Table1","Name = '" & var_name & "' AND Date = '" & var_date & "'") then
       docmd.runsql "Update table1 Set time ='" & var_time & "' where Name = '" & var_name & "' AND Date = '" & var_date & "'"
else
docmd.runsql "INSERT INTO table1 VALUES (' " & var_name & " ',' " & var_date & " ', ' " & var_time & " ', ' " & var_frequency & " ')"
endif