Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
Public Function TableExists(strTableName As String) As Integer
Dim db As Database
Dim i As Integer
Set db = CurrentDb
TableExists = False
db.TableDefs.Refresh
For i = 0 To db.TableDefs.count - 1
If strTableName = db.TableDefs(i).Name Then
'Table Exists
TableExists = True
Exit For
End If
Next i
Set db = Nothing
End Function
If TableExists("tblEmployeeMaster") Then db.Execute "DROP TABLE tblEmployeeMaster"