My application is working fine except on some PC's the shell function is not working (returns 0).
Application is 2002 format, Access 2003 loaded on PC.
Applies to mdb and mde version. I have tried stepping through and shelling to various programs such as notepad but no luck. The code is OK because it working elsewhere.
s = Nz(DLookup("strPrmAccess", "tblParam"), "") & " "
s = s & Nz(DLookup("strPrmLetterMDB", "tblParam"), "") & " "
s = s & strParam
Shell s, varWindow
The interesting thing is that automating doesn't wotk on these PC's either although it is fine elsewhere.
Set appAccess = CreateObject("Access.Application")
appAccess.OpenCurrentDatabase Nz(DLookup("strPrmLetterMDB", "tblParam"), "")
appAccess.Visible = True
References look OK.
It is as though there is some security feature or something else stopping Access from running an external routine.
Any help appreciated. Thanks.
Application is 2002 format, Access 2003 loaded on PC.
Applies to mdb and mde version. I have tried stepping through and shelling to various programs such as notepad but no luck. The code is OK because it working elsewhere.
s = Nz(DLookup("strPrmAccess", "tblParam"), "") & " "
s = s & Nz(DLookup("strPrmLetterMDB", "tblParam"), "") & " "
s = s & strParam
Shell s, varWindow
The interesting thing is that automating doesn't wotk on these PC's either although it is fine elsewhere.
Set appAccess = CreateObject("Access.Application")
appAccess.OpenCurrentDatabase Nz(DLookup("strPrmLetterMDB", "tblParam"), "")
appAccess.Visible = True
References look OK.
It is as though there is some security feature or something else stopping Access from running an external routine.
Any help appreciated. Thanks.