Discussion :

[BMRBMR]

Bonjour à tous,

J'utilise le code suivant pour ouvrir un formulaire d'une autre base (code venant de ce site). Le problème est le besoin de lier la Base en référence par le menu "Outils/Référence".
Quand je compacte cette base avec l'autre base ouverte ACCESS se plante.
Je ne trouve pas la syntaxe pour ajouter cette base en référence dynamique uniquement quand il y a besoin. Auriez-vous une idée ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
'Intégration d'applications :
Public Function FormOpen(FormName As String, _
                Optional View As AcFormView = acNormal, _
                Optional FilterName As String, _
                Optional WhereCondition As String, _
                Optional DataMode As AcFormOpenDataMode = acFormPropertySettings, _
                Optional WindowMode As AcWindowMode = acWindowNormal, _
                Optional OpenArgs As String)
 'Appelée depuis le portail, pour ouvrir les formulaires de cette application
    DoCmd.OpenForm FormName, View, FilterName, WhereCondition, DataMode, WindowMode, OpenArgs
End Function 

ApplicationXxx.FormOpen "NomFormulaire", acDesign