Access Macro over a Network with local ODBC

Function TableExists(TableName As String) As Boolean
'************************************************* 
' Purpose: Checks to see whether the named table exists in the database, and try and delete it
'
' Returns: True, if table found in current db, False if not found.
'************************************************* ****************************
Dim strTableNameCheck
On Error GoTo ErrorCode
'try to assign tablename value
strTableNameCheck = CurrentDb.TableDefs(TableName)
'If no error and we get to this line, true
TableExists = True
ExitCode:
On Error Resume Next
Exit Function
ErrorCode:
Select Case Err.Number
Case 3265 'Item not found in this collection
TableExists = False
Resume ExitCode
Case Else
MsgBox "Error " & Err.Number & ": " & Err.Description, vbCritical, "hlfUtils.TableExists"
'Debug.Print "Error " & Err.number & ": " & Err.Description & "hlfUtils.TableExists"
Resume ExitCode
End Select
End Function

Select all Open in new window

Function TableDeleteIfExists(TableName As String) As Boolean
'*************************************************
' Purpose: Checks to see whether the named table exists in the database
'
' Returns: True, if table found and deleted in current db, False if not found or Delete Failed.
'************************************************* ****************************
Dim strTableNameCheck

On Error GoTo ErrorCode
'try to assign tablename value (case sensitive!)
strTableNameCheck = CurrentDb.TableDefs(TableName).Name
'If no error and we get to this line, true

ExitCode:
On Error GoTo ErrorCode
If ((IsNull(strTableNameCheck) = False) And (strTableNameCheck <> "")) Then
DoCmd.DeleteObject acTable, TableName
End If
TableDeleteIfExists = True
Exit Function
ErrorCode:
Select Case Err.Number
Case 0
Case 3265 'Item not found in this collection
TableDeleteIfExists = False
Case 7874 ' cannot find the object to delete - maybe delted between check and delte
'TableDeleteIfExists = False /  allow return true
Resume ExitCode
Case Else
MsgBox "Error " & Err.Number & ": " & Err.Description, vbCritical, "TableDeleteIfExists result"
Resume ExitCode
End Select

End Function

Select all Open in new window