visit my website
Close button code
Dim aexit As VbMsgBoxResult
On Error GoTo cmdexit_Click_Err

aexit = MsgBox("Confirm if you want to exit", vbQuestion + vbYesNo, "INOVA BPO")
If aexit = vbYes Then
DoCmd.Close , ""

End If
cmdexit_Click_Exit:
Exit Sub

cmdexit_Click_Err:
MsgBox Error$
Resume cmdexit_Click_Exit

свернуть