Office - Word, Excel und Co. 9.703 Themen, 40.813 Beiträge

Access 2002

walliilse / 6 Antworten / Flachansicht Nickles

Hallo Ihr fleißigen Helfer,

ein Anfänger hat viele Frage, aber eine nach der anderen.

Hier die erste.

In eine Ergebnis Routine habe ich eine If Abfrage. Es erscheint ein Fenster welches mit OK oder Abbrechen beantwortet werden mus.

Dim i As Integer
DoCmd.RunCommand acCmdSaveRecord ' Satz nochmals speichern

i = DCount("KZ", "T00-Adress Ebay", "KZ='X'")

If i = 0 Then
MsgBox " Es ist kein KZ mit X gesezt"
Exit Sub
End If

stDocName = "B007 Abfrage Umschlag mit"

DoCmd.OpenReport stDocName, acPreview

End Sub


Wenn ich einen falschen Wert eingebe oder Abbrechen drücke, läuft das programm weiter und führt zu einen Fehler.

Wie kann ich das verhindern. Z.B. das er in Pprogramm stehen bleibt. Vielleicht gibt es bei den DoCmd Parameter die dies verhindern?

Erstmal vilen Dank im voraus.
Dieter

bei Antwort benachrichtigen
walliilse neanderix „ keine ahnung was du meinst. laut deinem Eingangspost willst du eine MessageBox...“
Optionen

Hallo Volker,
ich Danke Dir, das Du Dir so viel Zeit nimmst um mir zu helfen.
Ich glaube hier muss ich meine Frage noch mals neu stellen.

Ich habe ein Abfrage Projekt erstellt wo ich aus einer Tabelle alle Sätze selektiere die im Feld KZ ein X haben. Undzwar mit den Eintrag in der Entwurfsansicht auf Feld KZ unter Kriterien "X".
Nun passiert folgendes: In meinen Formular erscheint nach den Befehl
"DoCmd.OpenReport stDocName, acPreview" eine Maske wo ich die Sätze mit KZ X auswählen kann.
Gebe ich in dieser Maske ein anderes oder auch kein KZ ein läuft das Programm falsch, genauso wenn ich auf Abbruch gehe.
Hier möchte ich das Programm stoppen aber wie?
Mir würde reichen hier so ein Befehl wie Du mir beschrieben hast für die Msgbox eingeben zu können. Aber wie?
Hallo Volker, habe ich das Problem jetzt etwas genauer beschrieben?
Mfg Dieter

bei Antwort benachrichtigen