removing messages when using an append query 1

[techkenny1]

Hi all,
I have a frorm which has an append control on it.
The code behind the control button is;
DoCmd.OpenQuery "QCredit_Update"
DoCmd.OpenQuery "QCredits_del"

After the Delete action takes place the message comes up, " record deleted".
How can I remove this message from appearing.
Many thanks

kp

 

[dhookom]

DoCmd.SetWarnings False
DoCmd.OpenQuery "QCredit_Update"
DoCmd.OpenQuery "QCredits_del"
DoCmd.SetWarnings True

Duane
Hook'D on Access
MS Access MVP

 

[StrikeEagleII]

I also like:

dim db as DAO.database
dim strSQL as string

set db = currentdb

strSQL = "UPDATE tblTable SET xxx=123, yyy=456.... WHERE pkID = " & me.controlWithQueryParameter & ";"

db.execute strSQL,dbFailOnError

debug.print db.recordsaffected 'code here to check how many records, etc. were affected by query.

set db = nothing


This may seem a little more complicated, but it gives you a lot of flexibility (and gets rid of the warnings)