MS ACCESS
06.12.2004 16:13:00
Daniel
Ich hätte da bitte eine kleinere Frage zu einem Access Makro:
Private Sub Befehl13_Click()
On Error GoTo Err_Befehl13_Click
Dim stDocName As String
stDocName = "OnTour"
DoCmd.OpenQuery stDocName, acNormal, acEdit
If "OnTour" = "" Then [MsgBox "Keine Eintragung vorhanden"]
Exit_Befehl13_Click:
Exit Sub
Err_Befehl13_Click:
MsgBox Err.Description
Resume Exit_Befehl13_Click
End Sub
Es geht um die Zeile : If "Ontour" ...
Frage: Access soll ganz normal den Query durchführen und mir eine Messagebox ausgeben, wenn keine Eintragung gefunden wurde - aber mit dieser Zeile geht es leider nicht !
Bitte um Hilfe!
Danke!
Daniel
Anzeige