Modules: Compiler un projet	Author(s) Dev Ashish

Compiler un projet.

    Sous Access 97, une modification apportée à un module résulte en un projet non compilé. Pour améliorer les performances de l'exécution, il est suggéré d'utiliser l'option  "Compile and Save All Modules"  dans ces cas.

    Voici une fonction qui peut être utilisée à n'importe quel endroit dans la base de données et qui compilera et sauvegardera automatiquement tout le code de la base de données.

 '********** 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
            'Pas de module, essayer le containeur  Forms 
            Set ctr = db.Containers!Forms
            'pas de besoin de vérifier le compte, puisque ce code-ci
            'est forcément présent à quelque part
            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 **********