D
D. Stacy
I need some help with the syntex as this is hitting the error on the Set
statement:
Private Sub cmdDataTransform_Click()
' Run qry DataTransform on table "OR_Record"
Dim strTableName As String
Dim db As Database
Set strTableName = db(OR_Record)
On Error Resume Next
If TableExists(strTableName) Then
DoCmd.DeleteObject acTable, "OR_RECORD"
End If
End Sub
The purpose of this code is just to delete a table, if it exists.
statement:
Private Sub cmdDataTransform_Click()
' Run qry DataTransform on table "OR_Record"
Dim strTableName As String
Dim db As Database
Set strTableName = db(OR_Record)
On Error Resume Next
If TableExists(strTableName) Then
DoCmd.DeleteObject acTable, "OR_RECORD"
End If
End Sub
The purpose of this code is just to delete a table, if it exists.