[ ombrs.do @ 20.01.2009. 13:32 ] @
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
[ golic @ 20.01.2009. 15:14 ] @

Dim answer As Integer

answer = MsgBox("Potvrdite ispis racuna sa OK?Ako racun nije ispisan,izbriste racun i pozovite administratora.HVALA.", vbOKCancel, "UPOZORENJE")

If Answer = vbOK Then
DoCmd.OpenReport "Racun Iz Osnovne tabele Q.VP1 Printer", acViewNormal, "", "", acNormal
End if
If answer = vbCancel Then
DoCmd.OpenReport "Racun Iz Osnovne tabele Q.VP1 Ekran", acViewPreview, "", "", acNormal
End if


Probaj ovo ostavi makroe
[ ombrs.do @ 20.01.2009. 15:28 ] @
Nije to,meni sve dobro odradi samo necu tu poruku na kraju