Undocumented SysCmd Functions

Convert an MDB file into an MDE.  Since it takes the source file as a parameter, you cannot convert the database currently open using Access VBA - instead you need to call this from another application/instance:

OR, by using automation (e.g. in VB6):

        Dim objAccess As Object

        'Create the Access Automation object
        Set objAccess = CreateObject("Access.Application")

        'Now call the undocumented function...
        objAccess.SysCmd 602, strPathSourceMdb, strPathDestinationMdb

        Set objAccess = Nothing

Note: You need to ensure you are using the correct version of Access to create the MDE (i.e. if it is an Access 2000 MDB file then you can only create an MDE from it by using Access 2000 - not Access 2002/2003).

*UPDATE* - It seems that you can use Access XP/2003 to create an Access 2000 MDE file using this method, however be very careful as this is highly likely to fail due to the small differences in compiled VBA code, references and the Access object model etc.  My recommendation is to forget that this loop hole exists.

Returns the PID (Process ID) of the currently running MSAccess.exe process.  This would come in very handy for some Windows API calls...

Where flag can be 16483 to indicate 'Save VBA with compiled code' or 16484 for 'Save VBA without compiled code'.

Flag can also be 16481 and 16482 but the functionality is unknown at present.

Compact (not repair) a database.  You cannot compact the *open* database using this method - instead you need to call this from another application/instance:

        Dim objAccess As Object

        'Create the Access Automation object
        Set objAccess = CreateObject("Access.Application") 

        'Now call the undocumented function...
        objAccess.SysCmd 602, strPathSourceMdb, strPathDestinationMdb

        Set objAccess = Nothing

Note: If you want to compact a file without creating a 'copy' (i.e. compacting the file in place) then simply omit the strPathDestinationMdb parameter.

The two tables that are used to store import/export configurations used by Access are not created by default.  Calling this function will create them for you.

Return value is the same as Access.References.Count.

Where 0 <= intReferenceOrdinal <= SysCmd(500)

For each VBA reference, this will return the encoded string which contains all the reference properties (# delimiter) (e.g. GUID#MajorVersion#MinorVersion#LibraryPath#Name)

Something like '*\G{00025E01-0000-0000-C000-000000000046}#4.0#0#C:\Program Files\Common Files\Microsoft Shared\DAO\DAO350.DLL#Microsoft DAO 3.51 Object Library'

Convert the current database to Access 97 format.  If strPathOutput = 0 then the output path is requested.

In Access 2002/2003 this is the same as Access.ConvertAccessProject strSourcePath, strDestinationPath, acFileFormatAccess97

This command creates a new ADP project and imports the non-Jet components of the currently open database into it (e.g. forms/reports/vba modules).

Note: This is not the same as the Upsizing Wizard as it doesn't do anything with the tables or queries. 

These are the tips used by the Office Assistant, accessible by ordinal number (0-60).

This call is a wrapper for the Win32 API ActivateKeyboardLayout function.

This setting affects the current application instance only and is not saved with the database (you would need to set it within your applications startup routine to make it semi-permanent).  The input flag is called the 'input locale identifier' (see API documents for details).  Examples of common values (notice the high/low word repeats):

    InputLocaleID = &H08090809: British

    InputLocaleID = &H04090409: US English

    InputLocaleID = &04150415: Polish

    InputLocaleID = &04190419: Russian

    InputLocaleID = &H04080408: Greek

This call is a wrapper for the Win32 API GetKeyboardLayout function.

This command returns the applications current InputLocaleID (current instance only)  See the flags for previous command (710).

Returns a boolean value (true/false) -  True if any form, report, DAP, macro or module is currently open in design mode.

Returns the build number of the version of Access that is running.  Combine this value with the acSysCmdAccessVer SysCmd constant and you can then determine the service pack, e.g.:

    SysCmd(acSysCmdAccessVer) = 9  -> Access 2000

        SysCmd(715) = 2719 ' Access 2000 No Service Pack

        SysCmd(715) = 3822 ' Access 2000 SP1

        SysCmd(715) = 4506 ' Access 2000 SP2

        SysCmd(715) = 6620 ' Access 2000 SP3

    SysCmd(acSysCmdAccessVer) = 10  -> Access 2002

        SysCmd(715) = 2627 ' Access 2002(XP) No Service Pack

        SysCmd(715) = 3409 ' Access 2002(XP) SP1

        SysCmd(715) = 4302 ' Access 2002(XP) SP2

        SysCmd(715) = 6501 ' Access 2002(XP) SP3

    SysCmd(acSysCmdAccessVer) = 11  -> Access 2003

        SysCmd(715) = 5614 ' Access 2003 No Service Pack

        SysCmd(715) = 6355 ' Access 2003 SP1

        SysCmd(715) = 6566 ' Access 2003 SP2

Returns a pointer to the IPictureDisp interface behind an image control.