Kraj:
    Exit Function
Izlaz:
    MsgBox " Ra
un nije oštampan"
    DoCmd.SetWarnings False
            DoCmd.RunSQL "UPDATE GLSTAVKEMP1 SET Nefiskaliziran='" & "-1" & "' WHERE BROULIZ='" & Forms.frmIZLAZMP.BROIZD & "'"
DoCmd.SetWarnings True
    GoTo Kraj
    End Function