[es] - Problem sa zavrstkom koda

ombrs.do
Ristic Aleksandar
Administrator

Član broj: 170168
Poruke: 140
79.143.170.*

Profil

^{20.01.2009. u 13:32 - pre 185 meseci}

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

Odgovor na temu

golic
Doboj

Član broj: 91529
Poruke: 82
79.143.169.*

Profil

Re: Problem sa zavrstkom koda

^{20.01.2009. u 15:14 - pre 185 meseci}

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

Odgovor na temu

ombrs.do
Ristic Aleksandar
Administrator

Član broj: 170168
Poruke: 140
79.143.171.*

Profil

Re: Problem sa zavrstkom koda

^{20.01.2009. u 15:28 - pre 185 meseci}

Nije to,meni sve dobro odradi samo necu tu poruku na kraju

Odgovor na temu