Running SQL statements with VB 6.0

[jesse07]

I would like to customize running my SQL statement. At this moment, I am using->

DoCmd.RunSQL strSQL

This statement will deletes from one of my tables, but instead of getting the standard message box:


"You are about to delete 1 row(s).

Once you click Yes, you can’t use the undo command to reverse the changes. Are you sure you want to delete the selected row?

"

I would like to customize my own, but I am not sure how to do it. Any suggestions would be greatly appreciated.

[Killer42]

Can't you just do a MsgBox before issuing the SQL command?

[jesse07]

I can do a message box but the same prompt comes up when I execute the delete from the table

**************************************************
You are about to delete 1 row(s).

Once you click Yes, you can’t use the undo command to reverse the changes. Are you sure you want to delete the selected row?

************************************************** *

I do not want this prompt to come up, and I believe it is a default with the DoCmd.RunSql. I

[Killer42]

Ok, I think you're telling us fibs here. This isn't VB6, is it? It's VBA, the macro language, in MS Access - right?

[Dan2kx]

If you are in Access you can use

DoCmd.SetWarnings True/False

And once you have done that you can (well before actually) you can set up a msgbox response.

I would do it like this

[on click event](or whatever)

dim response as Integer
dim strSQL as string
strSQL = ("query code") 
response = msgbox("blah blah",vbokcancel)
if response = vbok then 
  docmd.setwarnings false
  docmd.runSQL strSQL
  docmd.setwarnings true
else
  msgbox "Procedure canceled by user"
end if
end sub

Just a suggestion