S
speederpro
sub Form_BeforeUpdate(Cancel as Integer)
dim strResponse as string
strResponse = msgbox ("Do you want to save?", vbyesno)
if strresponse = vbno
cancel = true
else
cancel = false
end if
end sub
put this in your form
dim strResponse as string
strResponse = msgbox ("Do you want to save?", vbyesno)
if strresponse = vbno
cancel = true
else
cancel = false
end if
end sub
put this in your form