Mega Code Archive

 

Categories / VisualBasic Script / Access

 

Deleting a Table with SQL command

Sub DeleteTable()     Dim conn As ADODB.Connection       On Error GoTo ErrorHandler     Set conn = CurrentProject.Connection       conn.Execute "DROP TABLE myTable"     Application.RefreshDatabaseWindow ExitHere:     conn.Close     Set conn = Nothing     Exit Sub ErrorHandler:     If Err.Number = -2147217900 Then         DoCmd.Close acTable, "myTable", acSavePrompt         Resume 0     Else         Debug.Print Err.Number & ":" & Err.Description         Resume ExitHere     End If End Sub