Discussion :

[alvadije]

Bonjour,

Malgrès mes recherches sur le net je ne sais toujours pas comment enlever la phrase "Optimisé par Microsoft Office Access" que l'on voit dans la barre d'état sur le côté droit. (là où est noté Verr. Num.)

Cette phrase n'apparraît qu'en ACCDR, et si on clique dessus on arrive sur une page internet Microsoft.

Merci d'avance pour vos réponses...

[loufab]

Bonjour,

Ne pas afficher cette barre si tu n'en a pas l'utilité.

Options/ Avancés/ Afficher/ Barre d'état.

Cordialement,

[alvadije]

Bonjour,
Malheureusement j'en ai utilité car nous affichons des informations sur la valeur à saisir dans les zones...
merci...

[argyronet]

Bonjour,

Malheureusement j'en ai utilité car nous affichons des informations sur la valeur à saisir dans les zones...

Vu qu'il ne semble pas exister de solution de contournement, (il faut que j'approfondisse mes recherches), tu as la possiblité de développer la mise en place de ta propre bar d'état dans chaque formulaire...

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
 
'***********************************************************************
' Module            : Form_Formulaire1
' Type              : Document VBA
' DateTime          : 12/03/2012
' Author            : ambrosino.jp
' Purpose           : Module used to implement a status bar into a form
'                     Refer to MSCOMCTL.OCX or drag directly the control on the form.
''**********************************************************************
 
Option Compare Database
 
Private m_oSTB                                    As StatusBar
Private m_oPanel                                  As Panel
 
Private Sub Form_Load()
 
    Set m_oSTB = Me.formStatusBar.Object
    With m_oSTB
        Set m_oPanel = .Panels.Add(1, "pnlWhatToDo", "Veuillez renseigner la fiche...")
        With m_oPanel
            .AutoSize = sbrContents
        End With
        Set m_oPanel = .Panels.Add(2, "pnlDate", Now)
        With m_oPanel
            .AutoSize = sbrContents
        End With
    End With
    Set m_oPanel = Nothing
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
    Set m_oPanel = Nothing
    Set m_oSTB = Nothing
End Sub
 
Private Sub txtDemo_GotFocus()
    m_oSTB.Panels(1).Text = "Entrez ici le " & Replace(lblDemo.Caption, ":", "")
End Sub

Argy