[AC-2010] Message sur clic de tous les controles d'un formulaire

[docjo]

Bonjour

Je souhaite afficher un message informant l'utilisateur sur clic de chaque controle d'un formulaire

J'avais pensé à un truc du style

Code :

1
2
3
4
5
6
 
    Dim ctl As Control
    For Each ctl In Me.Controls
        MsgBox "Vous ne pouvez que consulter les informations dans cette fenetre !" & Chr(13) & "Cliquez sur ""Modifiez"" pour modifier les données du patient", vbInformation + vbOKOnly
 
    Next ctl

Mais cela ne fonctionne que sur le clic en dehors des champs. Comment faire pour avoir le message sur le clic sur le controle ?

Merci par avance

[argyronet]

Bonjour,

C'est un peu lours comme approche mais bon.
Le mieux est de verrouiller les contrôles et de les déverrouiller par confirmation depuis le bouton Modifier.
Dans l'absolu, si tu veux quand même le message, tu es contraint de l'affecter à chaque événement GotFocus() (plutôt que Click car l'utilisateur ne vas forcément de servir de sa souris) et d'appeler une procédure pour le message.

Tu peux simplifier la mise en oeuvre avec ce code :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Function SetControlsMessage()
Dim ctl                                                As Control
 
    DoCmd.OpenForm "Formulaire1", acDesign
    For Each ctl In Forms(strForm).Controls
        Select Case ctl.ControlType
            Case acTextBox
                ctl.OnGotFocus = "=MessageDataLocked()"
        End Select
    Next
    Set ctl = Nothing
 
    DoCmd.Close acForm, "Formulaire1", acSaveYes
    DoCmd.OpenForm "Formulaire1"
End Function
 
Public Function MessageDataLocked()
    MsgBox "Vous ne pouvez que consulter les informations dans cette fenetre !" & Chr(13) & "Cliquez sur ""Modifiez"" pour modifier les données du patient", vbInformation + vbOKOnly
End Function

à adapter bien entendu.

Argy