[Eine Seite zurück] [Übersicht] [Eine Seite vor]

Benutzung auf eigene Gefahr !
Keine Garantie für garnichts !

Fehlen einer Tabelle/Abfrage melden

Sprache / Programm: Access ab Version 97
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

Quelle

Die Variable nimmt ein Steuerelement als Objekt entgegen und wertet es mit dessen Eigenschaft Value aus. Geeignete Objekte sind Kombinationsfelder und Eingabefelder.

Fehler

Kopfzeile für die Meldungsbox, falls ein Tabellen- oder Abfragename nicht existiert oder nicht angegeben wurde.
Anwendungsbeispiel(e)...

Das folgende Beispiel überprüft, ob im Kombinationsfeld Me.NameTabelle eine Tabelle angegeben wurde bzw. ob die angegebene Tabelle existiert:

TabelleExistiert Me.NameTabelle, Fehler

Hinweis

Das Programm benötigt die RecordSetExistiert Funktion.

In Access 2000 stehen neben CurrentDb.TableDefs und CurrentDb.QueryDefs auch die AllTables- und AllQuerys-Auflistungen zur Verfügung.

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.