Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Aktion RunCommand wurde abgebrochen

186 views
Skip to first unread message

Mario Brehme

unread,
Nov 6, 1999, 3:00:00 AM11/6/99
to
Hallo Experten,

Betrifft: A97

ich habe eine Menüleiste mit einem Druckersymbol, dem ich 'Bei Aktion' in
einem Modul folgenden Befehl zuweise:

DoCmd.RunCommand acCmdPrint

um das Dialogfeld 'Drucken' zu öffnen.
Das funktioniert auch, aber - drücke ich dann im Dialogfeld 'Abbrechen'
erscheint oben genannte Meldung.

Wie kann ich das umgehen?

Gruß Mario


Punz Oskar

unread,
Nov 6, 1999, 3:00:00 AM11/6/99
to
Hallo Mario!

Mario Brehme <mbr...@mariosoft.de> schrieb in im Newsbeitrag:
7vvp6a$738$1...@donau.aball.de...

Schreib eine Fehlerbehandlungsroutine (siehe ON ERROR in der Online-Hilfe).

In deinem Fall das einfachste wäre

Sub Prozedurname()
On Error Resume Next
DoCmd.RunCommand acCmdPrint
End Sub

Ciao

Oskar

Mario Brehme

unread,
Nov 6, 1999, 3:00:00 AM11/6/99
to

Punz Oskar <noSpam_p...@netway.at> schrieb in im Newsbeitrag:
800oe9$jh5$2...@news.netway.at...

Hallo Oskar,

Frage: Wenn ich es mache, wie Du beschrieben hast, werden dann nicht alle
Fehler, die auftreten können, übersprungen?
Könnte ich es so lösen?:


Function DialogfeldDruckenÖffnen()
On Error GoTo DialogfeldDruckenÖffnen_Err

DoCmd.RunCommand acCmdPrint

DialogfeldDruckenÖffnen_Exit:
Exit Function

DialogfeldDruckenÖffnen_Err:
If Err.Number = 2501 Then
Resume Next
Else
MsgBox Error$
Resume DialogfeldDruckenÖffnen_Exit
End If

End Function

Gruß Mario

Punz Oskar

unread,
Nov 6, 1999, 3:00:00 AM11/6/99
to
Servus Mario.


> Hallo Oskar,
>
> Frage: Wenn ich es mache, wie Du beschrieben hast, werden dann nicht alle
> Fehler, die auftreten können, übersprungen?
> Könnte ich es so lösen?:
>
>
> Function DialogfeldDruckenÖffnen()
> On Error GoTo DialogfeldDruckenÖffnen_Err
>
> DoCmd.RunCommand acCmdPrint
>
> DialogfeldDruckenÖffnen_Exit:
> Exit Function
>
> DialogfeldDruckenÖffnen_Err:
> If Err.Number = 2501 Then
> Resume Next
> Else
> MsgBox Error$
> Resume DialogfeldDruckenÖffnen_Exit
> End If
>
> End Function
>
> Gruß Mario
>

Natürlich kannst du es so machen - ist natürlich genauer
als mein Vorschlag, der ja wie gesagt die simpelste Möglichkeit darstellen
sollte.


Message has been deleted

Markus Muehlich

unread,
Nov 7, 1999, 3:00:00 AM11/7/99
to
Hallo Mario,

> If Err.Number = 2501 Then
> Resume Next
> Else
> MsgBox Error$
> Resume DialogfeldDruckenÖffnen_Exit
> End If

Bei mehreren möglichen Fehlernummern verliert man dabei jedoch
gerne den Überblick, daher würde ich das ganze in eine Select
Anweisung packen. Ist IMO übersichtlicher.

Select Case err.Number
Case 1
Resume
Case 2
Call machwas
Case 2501
Resume Next
Case Else
MsgBox err.number & err.description & err.source
End Select

Viele Grüsse
Markus
--
Access-FAQ: http://members.eunet.at/donkarl/AccessFAQ.htm

Mario Brehme

unread,
Nov 8, 1999, 3:00:00 AM11/8/99
to
Vielen Dank!
Ich werde den Code so einbauen.

Gruß Maro

0 new messages