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?

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. http://www.access-programmers.co.uk/ubb/smile.gif