Discussion :

[Davik]

Bonjour,
à l'ouverture d'un état j'aimerai changer le nom de la fenêtre en haut. Est ce possible avec cette fonction.
J'ai essayé aprés l'ouverture de l'état de faire

ActiveWindow.Name=test

mais j'ai erreur "objet requis" dois-je lui préciser que je renommer le titre de la fenetre de l'état ???

merci d'avance pour vos réponses

[Tofalu]

Le nom de la fenêtre est définie dans la propriété légende de l'état il me semble non ?

Sinon, pour changer le titre de la barre de menu Access

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
Sub ChangeTitle()
    Dim obj As Object
    Const conPropNotFoundError = 3270
 
    On Error GoTo ErrorHandler
    ' Return Database object variable pointing to
    ' the current database.
    Set dbs = CurrentDb
    ' Change title bar.
    dbs.Properties!AppTitle = "Contacts Database"
    ' Update title bar on screen.
    Application.RefreshTitleBar
    Exit Sub
 
ErrorHandler:
    If Err.Number = conPropNotFoundError Then
        Set obj = dbs.CreateProperty("AppTitle", dbText, "Contacts Database")
        dbs.Properties.Append obj
    Else
        MsgBox "Error: " & Err.Number & vbCrLf & Err.Description
    End If
    Resume Next
End Sub

[Davik]

Ca m'intéresse puis-je programmé ce nom de fenetre par rapport à un champ d'un formulaire par exemple?
Ca serait extra.

[Tofalu]

Surement avec

Me.Caption=....

[Davik]

ouille
En faite j'exporte des données d'un formulaire "saisie" dans un état qui s'apelle "Fiche1b" mais j'aimerai changer le titre de la fenetre de l'état par le contenu d'une zone de texte formulaire "saisie".

Ton code c'est pour changer le titre de la base de donnée, moi je voudrais juste changer celle de l'état

[Davik]

n'y aurait-il pas quelque chose de plus simple de ce style

Private Sub BT1_Click()
Dim nom_etat As String
nom_etat = "Fiche1b"
DoCmd.OpenReport nom_etat, acPreview

ActiveWindow.Title = "zebi"

mais erreur 424 objet requis