Function Rebuild()
On Error GoTo Proc_030_Err
DoCmd.SetWarnings False
DoCmd.OpenQuery "100 Clear Temp 01 ARSHIP with keys", acViewNormal, acEdit
DoCmd.OpenQuery "110 ARSHIP with keys", acViewNormal, acEdit
DoCmd.OpenQuery "300 Clear Temp 03 Sales F2007 on", acViewNormal, acEdit
DoCmd.OpenQuery "310 Rebuild Temp 03 Sales F2007 on", acViewNormal, acEdit
MsgBox "Tables Rebuilt", vbInformation, "Finished"
DoCmd.SetWarnings True
Proc_030_Exit:
Exit Function
Proc_030_Err:
MsgBox Error$
Resume Proc_030_Exit
End Function
|