Notice: Undefined offset: 2 in /home2/icentarb/public_html/icentar/classes/class.permissions.php on line 735
Private Sub Command3_Click()
Dim msg, Style, Title, Response, MyString
On Error GoTo Err_Command29_Click
msg = "Da li želite napustiti program ?" ' Define message.
Style = vbYesNo + vbInformation + vbDefaultButton2 ' Define buttons.
Title = "Queensland Computer" ' Define title.
Response = MsgBox(msg, Style, Title)
If Response = vbYes Then ' User chose Yes.
MyString = "Yes" ' Perform some action.
Call Compact_MDB
DoCmd.Quit
Else ' User chose No.
MyString = "No" ' Perform some action.
DoCmd.Ca