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