delete message

[samotek]

In my delete code i have get the message "record is deleted" even though i have put set warning to False.How can i avoid this mesage and why do i receive it ? I

DoCmd.SetWarnings
Dim StrSQL As String
DoCmd.SetWarnings False
StrSQL = "DELETE * FROM TblClients WHERE ClientID = " & Me.Clientid
CurrentDb.Execute StrSQL, dbFailOnError
Me.Requery

 

[Golom]

You are getting the message because you are using the [red]dbFailOnError[/red] parameter which causes the JET engine to report errors.

DoCmd.SetWarnings False applies only to Access messages and doesn't affect the JET Engine. Remove that parameter and the query will run (or fail) silently.