---Soumis par 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 **********