Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations Rhinorhino on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
check whether a table exists before running a macro? 2
- Thread starter CHTHOMAS
- Start date
-
2
- #2
Well you could create a VBA function.<br>
like this:<br>
---------------------------------<br>
Public Function sample()<br>
On Error GoTo Err_Sample<br>
DoCmd.OpenTable "Tablename"<br>
'if the the table dose not exist then it will return an Error 7874<br>
Exit_Sample:<br>
Exit Function<br>
<br>
Err_Sample:<br>
Select Case Err.Number<br>
Case 7874<br>
' Table not found<br>
DoCmd.RunMacro "MacroName"<br>
Case Else<br>
MsgBox "Error # " & Err.Number & " " & Err.DESCRIPTION, vbInformation, "In sub xxxxxxxxxx"<br>
Resume Exit_Sample<br>
End Select<br>
<br>
End Function<br>
------------------------------------- <p> DougP<br><a href=mailto: dposton@universal1.com> dposton@universal1.com</a><br><a href= > </a><br>
like this:<br>
---------------------------------<br>
Public Function sample()<br>
On Error GoTo Err_Sample<br>
DoCmd.OpenTable "Tablename"<br>
'if the the table dose not exist then it will return an Error 7874<br>
Exit_Sample:<br>
Exit Function<br>
<br>
Err_Sample:<br>
Select Case Err.Number<br>
Case 7874<br>
' Table not found<br>
DoCmd.RunMacro "MacroName"<br>
Case Else<br>
MsgBox "Error # " & Err.Number & " " & Err.DESCRIPTION, vbInformation, "In sub xxxxxxxxxx"<br>
Resume Exit_Sample<br>
End Select<br>
<br>
End Function<br>
------------------------------------- <p> DougP<br><a href=mailto: dposton@universal1.com> dposton@universal1.com</a><br><a href= > </a><br>
- Status
Similar threads
- Locked
- Question
- Locked
- Question