Auteur

MVP Office Access 2003, 2004, 2005 et 2006

Qui sont les MVP ?

 
 

Codes pour Access

 -  Base de données
+ Administrateur
+ Table
+ Requête
+ Formulaire
+ Dates & Heures
+ Nombre
+ Math
+ Fichier
+ Commandes externes
+ Automation
+ Equivalence
 
 

Tuto Access 2007

+ Base de données
 
 

Lettre d'information

Pour avoir des nouvelles de ce site, inscrivez-vous à notre Newsletter.
S'abonner
Se désabonner

captcha
Merci de recopier le code alphanumérique ci-dessus
117 Abonnés
 
 

Base de données - Modifier la barre de titre

Description 

Cette fonction permet de modifier la barre de titre de l'application Access.

 
Syntaxe 

EditTitleApp (strTitle)

La syntaxe de la fonction EditTitleApp comprend l'élément suivant :

ElémentsDescription
strTitleExpression de chaîne correspondant au texte que l'on souhaite mettre dans la barre de titre d'Access.
 
Exemple 

Function EditTitleApp_EXE()
    EditTitleApp "Complément pour Access 97 - Utilisateur connecté : " & CurrentUser
End Function

Avec cet exemple, on peut voir comment afficher une barre de titre avec en plus le nom de l'utilisateur en cours qui a ouvert la base de données.

 
Code de la fonction 


 

Public Function EditTitleApp(strTitle As String)

Dim db As Database, prp As Property
Const conErrPropNonTrouvée = 3270

On Error GoTo Err_EditTitleApp

Set db = CurrentDb
db.Properties!AppTitle = strTitle
Application.RefreshTitleBar
db.Close: Set db = Nothing
Exit Function

Err_EditTitleApp:
If Err.Number = conErrPropNonTrouvée Then
    Set prp = db.CreateProperty("AppTitle", dbText, strTitle)
    db.Properties.Append prp
    Set prp = Nothing
Else
    MsgBox "Erreur : " & Err.Number & vbCrLf & Err.Description
End If
Resume Next

End Function

 


Date de création : 14/09/2006 @ 16:35
Dernière modification : 12/06/2007 @ 12:59
Catégorie : Base de données
Page lue 2061 fois


Prévisualiser la page Prévisualiser la page     Imprimer la page Imprimer la page

 
 

Réactions à cet article


Personne n'a encore laissé de commentaire.
Soyez donc le premier !


 
 

Recherche




Google

 
 

Préférences

Votre nom (ou pseudo) :

Votre mot de passe :

     


Membres 79 Membres

membres les 10 derniers :
CJ6774   monaker   Jerry   jujubegood   Rachid   fifimeyrou   MoxQwoidT   fof_alaz   bellemeche   Bruno   
Membre en ligne : Membre en ligne :
( personne )
Anonymes en ligne : Anonymes en ligne : 8

Total visites : Total visites : 174477  
hit Affluence record: 102
le 17/06/2007 @ 07:36

Ecrire à Jessy SEMPERE Ajouter aux favoris Recommander ce site à un ami Version mobile
 
 


Design Jessy © 2007 - Compatible IE6, IE7 et Mozilla 2.0.0.1

  Site créé avec GuppY v4.5.18 © 2004-2005 - Licence Libre CeCILL

Document généré en 0.13 seconde