access-vba
Controllare se la tabella esiste nel database corrente
Ricerca…
Osservazioni
Basta posizionare questo codice come un modulo pubblico che può essere chiamato da qualsiasi altra procedura. Quando si chiama il codice, aggiungere il nome della tabella che si desidera cercare tra parentesi. Il codice restituisce un valore True / False sulla presenza o meno di una tabella. Ciò è utile quando è necessario determinare se una tabella deve essere eliminata / eliminata o se esiste già una tabella prima di eseguire codice aggiuntivo.
Esempio
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
Una funzione un po 'più semplice che può essere utilizzata in una riga
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
Autorizzato sotto CC BY-SA 3.0
Non affiliato con Stack Overflow