Msg Box
06.12.2004 17:45:26
Daniel
Ich hätte da bitte ien Frage bzgl. einer Message-Box:
Wenn diese im Laufe des Programmablaufs auftaucht, so möchte ich nach Drücken des OK-Buttons, dass das vorher aufgerufene Fenster geschlossen wird. Präzise geht es um folgenden Quellcode:
rivate
Sub Befehl13_Click()
On Error GoTo Err_Befehl13_Click
Dim stDocName As String
stDocName = "OnTour"
DoCmd.OpenQuery stDocName, acNormal, acEdit
If Query = "" Then MsgBox "Kein Eintrag - ein Fahrzeug steht zu diesem Zeitpunkt zur Verfügung!"
* Hier muss jetzt ein entsprechender Code hin!
Exit_Befehl13_Click:
Exit Sub
Err_Befehl13_Click:
MsgBox Err.Description
Resume Exit_Befehl13_Click
End Sub
Vielen Dank für eure Hilfe!
Daniel