access-vba
Überprüfen Sie, ob die Tabelle in der aktuellen Datenbank vorhanden ist
Suche…
Bemerkungen
Platzieren Sie diesen Code einfach als öffentliches Modul, das von jeder anderen Prozedur aufgerufen werden kann. Fügen Sie beim Aufruf des Codes den Namen der Tabelle hinzu, die Sie in der Klammer nachschlagen möchten. Der Code gibt einen True / False-Wert zurück, wenn eine Tabelle bereits vorhanden ist. Dies ist hilfreich, wenn Sie feststellen müssen, ob eine Tabelle gelöscht / gelöscht werden muss oder ob eine Tabelle bereits vorhanden ist, bevor Sie zusätzlichen Code ausführen.
Beispiel
Public Function TblExists(sTable As String) As Boolean
On Error Resume Next
Dim tdf As TableDef
Set tdf = CurrentDb.TableDefs(sTable)
If Err.Number = 0 Then
TblExists = True
Else
TblExists = False
End If
End Function
Eine etwas einfachere Funktion, die in einer Zeile verwendet werden kann
Public Function TableExists(value as String) as Boolean
On Error Resume Next
TableExists = Len(CurrentDb.Tabledefs(value).Name & "") > 0
End Function
Modified text is an extract of the original Stack Overflow Documentation
Lizenziert unter CC BY-SA 3.0
Nicht angeschlossen an Stack Overflow