Office - Word, Excel und Co. 9.736 Themen, 41.351 Beiträge

Verfolgung starten Optionen

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
neanderix walliilse „Access 2002“
Optionen
Wie kann ich das verhindern. Z.B. das er in Pprogramm stehen bleibt. Vielleicht gibt es bei den DoCmd Parameter die dies verhindern?

NMein, mit DoCmd und seinen Parametern kommst du nicht weiter. Schau bitte mal in die Access-Hilfe und informiere dich über MsgBox; mit der von dir eingesetzen einfachen Variante kommst du nicht weiter.
Weiter Kommst du mit der MsgBox-Funktion; der kannst du nämlich erstens einen Text, zweitens einen Titel und drittens Parameter für anzuzeigende Buttons und Symbole mitgeben.
Leider habe ich die genaue Syntax nicht im kopf, kann ich auch erst morgen wieder nachsehen.

Das Prinzip ist, dass du abfragst, welchen der Buttons der MsgBox der Anwender gedrückt hat.



If i=o Then
If MsgBox("Es ist kein KZ mit X gesetzt", vbExclamation, vbOkCancel)=vbCancel then
Exit Sub
End If
end if

Achtung, der Code ist ungetestet und kann Fehlerhaft sein, er soll dir nur das Prinzip verdeutlichen.

Volker
Computers are like airconditioners - they stop working properly when you open Windows Ich bin unschuldig, ich habe sie nicht gewählt!
bei Antwort benachrichtigen
Hallo Volker, danke für Deinen Tip. ich glaube aber es kommt nicht von ... walliilse
ich glaube aber es kommt nicht von einer Msgbox Abfrage sondern aus den ... neanderix
Hallo Volker, ich Danke Dir, das Du Dir so viel Zeit nimmst um mir zu ... walliilse
1. on error goto Routine benutzen, damit werden alle Fehler abgefangen! 2. ... REPI
Hallo User, kann mir das jemand an Hand von Code, als Beispiel geben? Denn ... walliilse