|
accessman -> Run Macro (7/15/2006 22:00:51)
|
<%
Set objAccess = Server.CreateObject("Access.Application")
objAccess.Visible = False
objAccess.OpenCurrentDatabase "c:\db1.mdb"
Set objDB = objAccess.CurrentDb()
macroName = "Macro1"
objAccess.DoCmd.RunMacro macroName
set objDB = nothing
objAccess.Quit acQuitSaveNone
Set objAccess = Nothing
Response.Write "Your macro has been run!"
%>
Why the line code has an error: objAccess.OpenCurrentDatabase "c:\db1.mdb"
Error Type:
(0x800A1EBA)
/asp_db1/runmacro.asp, line 8
How to solve it?
Thanks.
|
|
|
|
