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