problème avec requete executée en code

Bonjour

Sur cette requete executée par une macro lancée par une fonction j'ai
l'erreur suivante :

Erreur 3073

L'opération doit executer une requete qui peut etre mise à jour

L'erreur est située sur la dernièer ligne "currentdb.execute strSQL"

Voila le code complet, merci de votre aide.



Function txl()
Dim strSQL As String
Dim rst As DAO.Recordset
Dim tr As Integer
Dim ts As Integer
Dim te As Integer
Set rst = CurrentDb.OpenRecordset("rqoffrescrees")
tr = rst(0)
rst.Close: Set rst = Nothing
Set rst = CurrentDb.OpenRecordset("rqoffressucces")
ts = rst(0)
rst.Close: Set rst = Nothing
Set rst = CurrentDb.OpenRecordset("rqoffresxmises")
te = rst(0)
rst.Close: Set rst = Nothing
If Not IsNull(DLookup("[Dateenr]", "Tblstat", "[dateenr]=#" &
Format(date, "mm/dd/yy") & "#")) Then
strSQL = "Update tblstat set tr=" & tr & ", ts=" & ts & ", te=" &
te & " Where dateenr=#" & Format(date, "mm/dd/yy") & "#;"
Else
strSQL = "Insert Into Tblstat(dateenr, tr, te, ts)" & " Values(#"
& Format(date, "mm/dd/yy") & "#," & tr & "," & te & "," & ts & ");"
End If
CurrentDb.Execute strSQL
End Function


--
Email contact

http://cerbermail.com/?ltQ8eCFmRa