Message Boxes

[Antonio Pitt]

I have created a button that when clicked appends a record to an archive table and deletes it from my original table.

However there are a number of different confirmation message boxes that appear (ie- do you want to append/ do you want to delete this record) and I want to be able to condence these into just one message.

Does anyone know of anyway to do this please?

 

[John.Woody]

Something like this should work on the button

Dim Response

Response = MsgBox("Your Message",vbYesNo)

If Response = 7 then exit sub

Else
Docmd.setwarnings false
"Run your queries here
Docmd.setwarnings true
End If

End Sub

Hope it works for you.