Database Search
If you can't find the information using the categories below, post a question over in our WinBatch Tech Support Forum.
TechHome
OLE with Access
- Access 2000 Advanced DML Transactions
- Access Recordset to CSV File UDF
- Access RunCommand Constants
- ACCESS Table or Query Exists
- Access to Excel via SQL
- Access Visible Problem
- Adding Fields to an Existing Access Table
- Advanced DML Transactions
- Advanced SQL in the Jet 4.0 Provider Example
- Another OLE with Access Example
- Automating Access Tutorial
- Check if Access Table Exists
- Commit Rollback Begin Trans Updatebatch
- Control Access Forms
- Count Access Records
- Csv to Access
- Dealing with ACCESS 97 Field Types
- execute a macro in Access
- Execute a Public function in Access
- Export Access Report in Choice of Formats
- Export MDB to Flat File
- Find Read and Insert Data in Access
- Gather ACCESS Table and Column Information Into Excel
- Get Access Version That Created MDB File
- Get Column Data From an Access Database
- Get Record Count
- How to Use the OpenTable method
- Launch Access Macro from Commandline
- Loop thru a recordset in Access
- Office 2003 Macro Security Issue
- OLE and Access
- OLE Import a table into Access
- OLE Import Table into Access
- Open Access DB with DAO
- Pack an Access Database
- Query and Export Data from Microsoft Access
- Read Write Delete Tables from Access DB
- Repair MDB
- Retrieve Data in Access
- SQL UPDATE Fails with Access
- UDF to Return Record Count
- Updating Table From Filtered Recordset
- Ways to Get Data from and Access file without Access installed
Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.
Execute a macro in Access
Keywords: macro Access
Question:
How do use OLE commands to open a access database and execute a specfic macro? I tried the below code but it doesn't seem to work.
AccessObj = Objectopen("Access.Application")
database = "c:\xbox\xboxlink.mdb"
AccessObj.Open(database)
AccessObj.DoCmd.RunMacro "print"
Answer:
Close, maybe try...
AccessDB = ObjectOpen("Access.Application")
ADB = AccessDB.Application
database = "c:\xbox\xboxlink.mdb"
ADB.OpenCurrentDatabase (database)
ADB.Visible = 1
ADB.UserControl = 1
;exit
ADBCmd = ADB.docmd
ADBCmd.runmacro("print")
ADB.closecurrentDatabase
;' Close Access with the Quit method on the Application object
ADB.Quit
;' Release the object variable
ObjectClose(AccessDB)
Article ID: W14921
File Created: 2001:11:08:12:40:58
Last Updated: 2001:11:08:12:40:58