SysCmd 504, 16483 ' - Save And Compile
or try this Dev Hashish code:
'********** Code start **********
Function fCompileProject() As Boolean
Dim db As Database
Dim ctr As Container
If Not Application.IsCompiled Then
Set db = CurrentDb
Set ctr = db.Containers!Modules
If ctr.Documents.Count > 0 Then
DoCmd.OpenModule ctr.Documents(0).Name
Else
'No Modules present, try Forms container
Set ctr = db.Containers!Forms
'no need to check for count since this code
'itself must be present *somewhere*
DoCmd.OpenForm ctr.Documents(0).Name
End If
DoCmd.RunCommand acCmdCompileAndSaveAllModules
DoCmd.Close acModule, ctr.Documents(0).Name
End If
fCompileProject = Application.IsCompiled
End Function
'*********** Code End **********
I've never noticed any difference between compiled and uncompiled code.
(david)
"Arno R" <ar***********@tiscali.nl> wrote in message
news:43********************@dreader2.news.tiscali. nl...
Hi all,
Is it possible to execute a command like 'CompileAndSaveAll' at runtime?
In a new app I use a codelibrary. (The app is still changing, codelib also)
I add this lib to the references at startup with code.
By adding the lib the db enters a 'decompiled' state.
I would like to compile at runtime or is this not needed?
Btw: I also remove this lib with code when the app closes.
Any ideas?
Arno R
