Pozdrav
Ima sljedeci kod:
'------------------------------------------------------------
' Macro6
'
'------------------------------------------------------------
Function Macro6()
On Error GoTo Macro6_Err
Function Macro6()
On Error GoTo Macro6_Err
If (MsgBox("Potvrdite ispis racuna sa OK?Ako racun nije ispisan,izbriste racun i pozovite administratora.HVALA.", 1, "UPOZORENJE") = 1) Then
Beep
DoCmd.RunMacro "Printanje racuna iz Osnovne tabele Q.VP1 Printer", , ""
Else
DoCmd.RunMacro "Printanje racuna iz Osnovne tabele Q.VP1 Ekran", , ""
End If
Macro6_Exit:
Exit Function
Macro6_Err:
MsgBox Error$
Resume Macro6_Exit
End Function
Nakon makroa EKRAN sve je ok
ali nakon makroa VP1 printer sve obavi kako treba samo mi izbaci:ACTION FAILD i i da je u pitanju Macro6 i ono HALT.
Pokusao sam da se resim sa stopallmacro i sa END u kodu ali nista.
Ima li pomoci?
Hvala