Benutzung auf eigene Gefahr ! |
Beschreibung |
Gibt eine Fehlermeldung aus, wenn eine angegebene Tabelle/Abfrage nicht existiert. Bei einem Fehler werden alle VBA-Anwendungen beendet. |
VBA-Quelltext |
Public Sub TabelleExistiert(Quelle As Object, Fehler As String) If IsNull(Quelle.Value) Then MsgBox "Bitte geben Sie erst die Tabelle/Abfrage an", , Fehler Quelle.SetFocus End ElseIf Not RecordSetExistiert(Quelle.Value) Then MsgBox "Die angegebene Tabelle/Abfrage existiert nicht", , Fehler Quelle.SetFocus End End If End Sub |
Argumente der Funktion/Prozedur |
|
Anwendungsbeispiel(e)... |
Das folgende Beispiel überprüft, ob im Kombinationsfeld Me.NameTabelle eine Tabelle angegeben wurde bzw. ob die angegebene Tabelle existiert:
|
Hinweis |
Das Programm benötigt die In Access 2000 stehen neben |
Anwendungsgebiete, Fehler und Warnungen |
Verwendet die DAO Objektbibliothek. Ab Access 2000 muss diese explizit im VBA-Editor über 'Extras' -> 'Verweise' als 'Microsoft DAO 3.6' (oder höher) eingebunden werden und vor die 'Microsoft ADO 2.1' (oder höher) Bibliothek gesetzt werden. |