Mega Code Archive

 

Categories / VisualBasic Script / Application

 

Deletes a database object

Public Sub DeleteBackupTables()    Dim tbl As Variant    For Each tbl In CurrentData.AllTables       If InStr(1, tbl.Name, "Backup", vbTextCompare) > 0 Then          If vbYes = msgBox("Delete table " & tbl.Name & "?", vbYesNoCancel Or vbQuestion, "Confirm Table Deletion") Then             DoCmd.DeleteObject acTable, tbl.Name          End If       End If    Next End Sub