Mega Code Archive

 

Categories / VisualBasic Script / Access

 

Iterates the AllTables collection looking for a table whose name includes the substring Backup

Public Sub RestoreFromBackup()    Dim tbl As Variant    Dim intPos As Integer    Dim strNewName As String        For Each tbl In CurrentData.AllTables       intPos = InStr(1, tbl.Name, " Backup")       If intPos > 0 Then          strNewName = Left(tbl.Name, intPos - 1)          If MsgBox("Replace " & strNewName & " with " & tbl.Name _                    & "?", vbYesNoCancel Or vbQuestion, _                    "Rename Table") = vbYes Then             DoCmd.SetWarnings False             DoCmd.Rename strNewName, acTable, tbl.Name             DoCmd.SetWarnings True          End If       End If    Next End Sub