Discussion :

[Laffont Roselyne]

Bonjour.

Actuellement quand je fais des formulaires destinées à la saisie d'enregistrements :

1 - Je crée une Etiquette Indépendante (ex. Et_Info).

2 - J'utilise les propriétés :
- SurRéceptionFocus des controles
- Remarque des controles

3 - Pour afficher des informations à l'utilisateur quant à la saisie des données, j'utilise la propriété Caption de mon Etiquette, qui est incrémentée par la propriété Remarque du Contole qui a reçu le Focus (Ex. Et_Caption = NomControle.Tag)

Ce principe me parait un peu lourd.

Merci de m'indiquer une possibilité plus simple, et peut-être plus conviviale pour l'utilisateur.

[cafeine]

Hello,

oui tu peux utiliser une méthode de gestion d'événement plus globale, en gérant l'événement Load du 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
Private Sub Form_Load()
 
Dim ctl As Control
 
For Each ctl In Me.Controls
    If ctl.ControlType = acTextBox Then
        ctl.OnGotFocus = "=ChangeLabel(""" & ctl.tag & """)"
    End If
Next ctl
 
Set ctl = Nothing
 
End Sub
 
Private Function ChangeLabel(ByVal str As String)
 
    Me.Et_Info.Caption = str
 
End Function