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.SetWarnin gs 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)
[CODE=vb]
dim response as Integer
dim strSQL as string
strSQL = ("query code")
response = msgbox("blah blah",vbokcance l)
if response = vbok then
docmd.setwarnin gs false
docmd.runSQL strSQL
docmd.setwarnin gs true
else
msgbox "Procedure canceled by user"
end if
end sub[/CODE]

Just a suggestion