Notice: Undefined offset: 2 in /home2/icentarb/public_html/icentar/classes/class.permissions.php on line 735
Private Sub Form_Unload(Cancel As Integer) Dim Rs As Recordset Set Rs = Me.RecordsetClone If Rs.RecordCount > 0 Then Set Rs = [frmOtpremnicaSub].Form.RecordsetClone If Rs.RecordCount > 0 Then Cancel = 0 Else If MsgBox("Niste upisali stavke racuna." _ & vbCrLf & "Za brisanje pritisnite 'OK'" _ & vbCrLf & "Za nastavak rada pritisnite 'Cancel'", vbOKCancel, "GRESKA!") = vbOK Then DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70 DoC