access-vba
Controleer of de tabel bestaat in de huidige DB
Zoeken…
Opmerkingen
Plaats deze code eenvoudig als een openbare module die volgens een andere procedure kan worden opgeroepen. Wanneer u de code oproept, voegt u de naam in van de tabel die u tussen haakjes wilt opzoeken. De code retourneert een waar / onwaar waarde over het al dan niet bestaan van een tabel. Dit is handig wanneer u moet bepalen of een tabel moet worden verwijderd / verwijderd of dat er al een tabel bestaat voordat u extra code uitvoert.
Voorbeeld
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
Een ietwat eenvoudigere functie die op één regel kan worden gebruikt
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
Licentie onder CC BY-SA 3.0
Niet aangesloten bij Stack Overflow