Public Function DbTableColumnExists (
TableName As String,
ColumnName As String,
Optional dbs As DAO.Database = Nothing
) As Boolean
Does the column of the table exist in the database ?
The name of the database table
The name of the table column
Look in this database (default to the current database)
Dim b As Boolean
b = xf.Interact.DbTableColumnExists(TableName, ColumnName)
b = xf.Interact.DbTableColumnExists(TableName, ColumnName, dbs)
DbTableColumnExists("tblClinicVisit", "VisitDate")