We value your feedback.
Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
RunPickAccessMacro("test") Private Sub RunPickAccessMacro(ByVal sMacro As String) Dim oAccess As Object Try oAccess = CreateObject("Access.Application") oAccess.OpenCurrentDatabase "c:\test.mdb") oAccess.DoCmd.RunMAcro(sMacro) oAccess.Visible = False Catch e As Exception sErrNo = Err.Number.ToString sError = "RunPickAccessMacro " & vbCrLf & Err.Description & " " & "ErrNo: " & sErrNo dispError(sError) Finally oAccess = Nothing End Try End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.