[AC-2010] Référencement pour AppTitle [Résolu]

[JeanYves70]

Bonjour à tous,

En cours de développement je fais de temps en temps la manipulation suivante :
Je crée une nouvelle base de donnée et j'importe tout de la base précédente (Tb, Frm, Modules ...).

Dans mon application je change le titre avec AppTitle grâce à une fonction que j'ai déniché sur un forum, je ne me souviens plus où, et qui fonctionne trés bien. Elle nécessite "Microsoft DAO 3.6 Object Library"

Sous 2010, cette référence est incompatible avec "Microsoft Office 14.0 Access database engine Object Library" qui doit être semble t'il équivalente, puisque auparavant ma fonction fonctionnait parfaitement.

Voici dans l'ordre les références de mon application :

• Visual Basic For Applications
• Microsoft Access 14.0 Object Library
• OLE Automation
• Microsoft Office 14.0 Access database engine Object Library
• Microsoft Office 14.0 Object Library
• Microsoft Scripting Runtime
• Microsoft Visual Basic For Applications Extensibility 5.3

Aujourd'hui j'ai donc fait la manipulation décrite ci dessus, j'ai pris soin de modifier les références et cela ne fonctionne plus.

Pas plus avec Microsoft DAO 3.6 Object Library d'ailleurs. J'ai une erreur "3270 Propriété non trouvée"

Voici mon code :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Function Fnc_TitreApplication()
    Dim dbs As Database
    Dim obj As Object
 
    Dim strMonTitre
    strMonTitre= DLookup("[CENTRE]", "T_INITIALISATION")
 
    Set dbs = CurrentDb
    ' Change title bar.
    dbs.Properties!AppTitle = "Centre de " & strMonTitre
    ' Update title bar on screen.
    Application.RefreshTitleBar
 
End Function

Je ne vois pas ! Avez vous une idée ?

d'avance merci

[LedZeppII]

Bonjour,

La propriété AppTitle, par défaut, n'est pas créée.
Voir Comment modifier le titre de l'application ? qui intercepte l'erreur 3270 et crée la propriété.

A+

[JeanYves70]

Bonjour LedZeppII

Evidemment c'était simple je n'avais pas lu la FAQ jusqu'au bout

Encore merci beaucoup

@+