<Object variable or With block variable not set>

[BrianAdev]

Why It throw an error of <Object variable or With block variable not set>

set objAccess = GetObject(strMdbPath)
objAccess.DoCmd.SetWarning False
objAccess.DoCmd.OpenReport strReportName, 0
'It is fine until now
objAccess.Application.Run "Function",Arg1,Arg2
'Throw the arror
<Object variable or With block variable not set>

I

[NeoPa]

You have (accidentally) posted this question in the Access Articles section. This is NOT an article.
I'm moving this to the main Access questions forum.

MODERATOR.

[NeoPa]

Why It throw an error of <Object variable or With block variable not set>

set objAccess = GetObject(strMdbPath)
objAccess.DoCmd.SetWarning False
objAccess.DoCmd.OpenReport strReportName, 0
'It is fine until now
objAccess.Application.Run "Function",Arg1,Arg2
'Throw the arror
<Object variable or With block variable not set>

I

Brian, Where is this code? Is it running from within Access?

[nico5038]

Hmm, did you try a different name instead of "Function" as it might be a reserved word....
I normally use "fnc" as prefix for a function to have no "reserved words" trouble.

NNic;o)

[ADezii]

Why It throw an error of <Object variable or With block variable not set>

set objAccess = GetObject(strMdbPath)
objAccess.DoCmd.SetWarning False
objAccess.DoCmd.OpenReport strReportName, 0
'It is fine until now
objAccess.Application.Run "Function",Arg1,Arg2
'Throw the arror
<Object variable or With block variable not set>

I

The following code will run the Function fTest(Arg1, Arg2) in the C:\Test\Test.mdb External Database. The fTest(Arg1, Arg2) Function is declared Publically in a Standard Code Module. It accepts 2 String Arguments, and simply concatenates them with a space in between. The Code is of course simplistic, but my only intention is to demonstrate to you how can Run a Function or Sub-Procedure in an External Database from your Current Database. Good Luck - hope this is what you were looking for.

Dim strMDBPath As String
'Can also be Declared at a Modular level if needed. In its present state,
'objAccess goes out-of-scope as soon as the procedure ends.
Dim objAccess As Access.Application
 
strMDBPath = "C:\Test\Test.mdb"
 
Set objAccess = CreateObject("Access.Application")
 
objAccess.Visible = True            'not required
 
objAccess.OpenCurrentDatabase strMDBPath, False
 
objAccess.Run "fTest", "John", "Doe"
 
objAccess.CloseCurrentDatabase
Set objAccess = Nothing

OUTPUT:

John Doe