MartyConnelly
martyconnelly at shaw.ca
Mon Oct 18 01:29:58 CDT 2004
You could try these
http://www.access.vis.pl/af0424a.htm
My Polish is lousy.
NB. IMPORTANT These undocumented commands should only be attempted by
fully qualified stunt driver.
' Call a hidden SysCmd to automatically compile/save all modules.
Call SysCmd(504, 16483)
or you could also try Application.IsCompiled I have heard this maynot
work in cases where you don't
have full permissions to all objects in the database.Linked tables maybe?
Polish List
SysCmd(7) 'Detects the Access VERSION number
For Access 97:
SysCmd 603, PathMdb, PathMde 'convert MDB -> MDE
SysCmd 602, PathMdb, PathMdb 'compact DB
SysCmd 555 'create MSysIMEX... tables
SysCmd(504, 16483) 'save and compile code
SysCmd(504, 16484) 'save code without compiling
SysCmd(501, i) 'list of references, i = 0, 1, ... n
SysCmd(500) 'count of references
For Access 2000+:
SysCmd 603, PathMdb, PathMde 'convert MDB -> MDE
SysCmd 602, PathMdb, PathMdb 'compact DB
'You must use in this case following method, example:
Dim accApp As Access.Application
Set accApp = New Access.Application
accApp.SysCmd 603, PathMdb, PathMde
accApp.SysCmd 602, PathMdb, PathMdb
Set accApp = Nothing
SysCmd(605, 0) 'convert DB to previous version
SysCmd(605, "C:\Database97.mdb") 'convert DB to previous version
SysCmd(607,"C:\Project1.adp") 'convert DB to ADP project
SysCmd(608, i) '60 tips about Access programming for i=0, 1, ... 60
SysCmd(710, 68486165) 'set Polish keyboard (if installed)
SysCmd(710, 67699721) 'set US keyboard
SysCmd(710, 68748313) 'set Russian keyboard
SysCmd(710, 67634184) 'set Greek keyboard
SysCmd(710, ...) 'set other country keyboard
SysCmd(710,1) 'set next installed keyboard
SysCmd(710,0) 'set previous installed keyboard
SysCmd(711) 'return put keyboard currently
SysCmd(714) 'returns TRUE, if any form, report, macro or module is in design
mode
SysCmd(715) 'returns Build number of MSACCESS.EXE file to check Access
version or e.g. which Service Pack is installed.
Dan Waters wrote:
>Has anyone tried this?
>
>
>
>DoCmd.RunCommand acCmdCompileAllModules
>
>
>
>I wanted to use it to detect any compile errors before shutting down my
>development database. I tested with a misspelled keyword (DoCmd.Close
>acformX, "frmMyForm"), and this was not detected by the compile command. Of
>course if I click the compile button it is detected.
>
>
>
>Should this work as I'm expecting?
>
>
>
>Dan Waters
>
>ProMation Systems, Inc.
>
>
>
--
Marty Connelly
Victoria, B.C.
Canada