Error 3061

[Cathy]

I get this error "Too few parameters. Expected 1" when trying to run
the following code. Can someone please help me. Thanks in advance

Dim db As DAO.Database ' Current database
Dim sSQL As String

'Remove any cancelled update still in the tmp table.
Set db = DBEngine(0)(0)
sSQL = "DELETE FROM " & sAudTmpTable & ";"
db.Execute sSQL

' If this was not a new record, save the old values.

If Not bWasNewRecord Then
sSQL = "INSERT INTO " & sAudTmpTable & " ( audType, audDate,
audUser ) " & _
"SELECT 'EditFrom' AS Expr1, Now() AS Expr2,
NetworkUserName() AS Expr3, " & sTable & ".* " & _
"FROM " & sTable & " WHERE (" & sTable & "." & sKeyField &
" = '" & lngKeyValue & "');"
db.Execute sSQL, dbFailOnError
End If
AuditEditBegin = True

Exit_AuditEditBegin:
Set db = Nothing
Exit Function

'Err_AuditEditBegin:
'Call LogError(Err.Number, Err.Description, conMod &
".AuditEditBegin()", False)
'Resume Exit_AuditEditBegin

[Mike Storr]

On 19 Feb 2004 13:25:55 -0800, Cathy wrote:

I get this error "Too few parameters. Expected 1" when trying to run
the following code. Can someone please help me. Thanks in advance

Dim db As DAO.Database ' Current database
Dim sSQL As String

'Remove any cancelled update still in the tmp table.
Set db = DBEngine(0)(0)
sSQL = "DELETE FROM " & sAudTmpTable & ";"
db.Execute sSQL

For starters, the DELETE query must contain at least one field name between
the DELETE and FROM even thought it will delete the entire record. Use
"DELETE' & sAudTmpTable & ".* FROM " & sAudTmpTable & ";"
if you just want to get rid of everything.

Have you stepped through to see where the failure is?
--
Mike Storr
www.veraccess.com