Discussion :

[8e8eClo]

Bonjour,

Je galère sur cette réalisation :

- soit un formulaire avec x controles
- je voudrais que, quand un contrôle perd le focus (ou le reçoit), un code s'exécute.

Je connais les procédures gotfocus et lostfocus mais je n'ai pas envie de recopier le code sur 20 contrôles !

Comment faire ?

Merci

[tee_grandbois]

Bonjour,
peux-tu montrer le code ?
Il faut créer une Sub ou une Function qui serait appelée par ces contrôles.

[loufab]

Bonjour,

Cette question a été posé de nombreuses fois. Il se peut même qu'elle soit dans la faq.

1) créer une fonction publique dans un module standard (PAS UN MODULE DE CLASSE donc pas dans le module du formulaire)
2) sélectionner l'ensemble des contrôles concernés.
3) dans les propriétés écrire

Code :

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

=nomdemafonction()

Bien entendu la fonction doit être capable d'interpréter le contexte (formulaire actif / contrôle actif...)
On peut y joindre des paramètres si besoin.

On peut également passer par une classe si besoin.

Cordialement,
EDIT : oups ! tee nos posts se sont croisés

[8e8eClo]

J'ai regardé dans la FAQ mais je n'ai pas trouvé de solution (je ne cherche peut être pas au bon endroit).

Pour l'instant je fais ça :

DANS UN MODULE CLASSIQUE

Code :

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

1
2
3
4
5
6
7
8
9
Function Interface_GotFocus(ctrl As Control)
    ctrl.BorderColor = vbRed
    ctrl.BackColor = vbYellow
End Function
 
Function Interface_LostFocus(ctrl As Control)
    ctrl.BorderColor = vbGreen
    ctrl.BackColor = vbWhite
End Function

DANS MON 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
Private Sub Text0_GotFocus()
    Interface_GotFocus Screen.ActiveControl
End Sub
 
Private Sub Text0_LostFocus()
    Interface_LostFocus Screen.ActiveControl
End Sub
 
Private Sub Text2_GotFocus()
    Interface_GotFocus Screen.ActiveControl
End Sub
 
Private Sub Text2_LostFocus()
    Interface_LostFocus Screen.ActiveControl
End Sub

PROBLEME : je dois recopier le code pour tous mes contrôles. Je voudrais éviter d'avoir à copier/coller 40 fois le même code.

J'ai essayé de passer par un module de classe en m'inspirant de discussion trouvée à droite à gauche mais ça ne donne pas grand chose. Ma plus grande avancée c'est ça (et finalement je n'utilise pas un module de classe :p ) et tous les contrôles deviennent rouge (je n'arrive pas à exécuter le code que si mes contrôles ont le focus :

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
Private m_colTextBox As Collection
 
 
Private Sub Form_Activate()
 
    Dim ctl As Access.Control
 
    Set m_colTextBox = New Collection
    For Each ctl In Me.Controls
        If ctl.ControlType = acTextBox Then
                m_colTextBox.Add ctl, ctl.Name
                m_coltextbox_GotFocus         End If
    Next ctl
 
End Sub
 
Private Function m_coltextbox_GotFocus()
 
        Dim ctl As Access.TextBox
 
        For Each ctl In m_colTextBox
                ctl.BorderColor = vbRed
        Next ctl
 
End Function

[loufab]

En faisant un savant mélange du code 1 et 2 tu as tout pour que ça fonctionne.

Code :

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

1
2
3
Function Interface_GotFocus()
    Screen.ActiveControl.BorderColor = vbRed
    ...

Tu n'as plus qu'à appliquer mes directives 2 et 3 de mon précédent post.

Cordialement,

[tee_grandbois]

Bonsoir,
une possibilité très pratique pour créer automatiquement les procédures évènementielles c'est d'utiliser la méthode CreateEventProc :

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
Function CrtEventProc(frm As Form) As Boolean
 Dim ctl As Control, mdl As Module
 Dim lngReturn As Long
 
 On Error GoTo Error_CrtEventProc
 
 Set mdl = frm.Module
 
 For Each ctl In frm.Controls
    If ctl.ControlType = acTextBox Then
 ' Création des procédures événementielles GotFocus pour les contrôles de type TextBox
        lngReturn = mdl.CreateEventProc("GotFocus", ctl.Name)
 ' Insertion du texte de code
        mdl.InsertLines lngReturn + 1, vbTab & "Interface_GotFocus"
 ' Création des procédures événementielles LostFocus pour les contrôles de type TextBox
        lngReturn = mdl.CreateEventProc("LostFocus", ctl.Name)
 ' Insertion du texte de code
        mdl.InsertLines lngReturn + 1, vbTab & "Interface_LostFocus"
 ' Activation des procédure évènementielles
        ctl.OnGotFocus = "[Event Procedure]"
        ctl.OnLostFocus = "[Event Procedure]"
    End If
 Next ctl
 
' Sauvegarde des modifications
DoCmd.Save acForm, frm.Name
DoCmd.Close acForm, frm.Name, acSaveYes
 
CrtEventProc = True
 
Exit_CrtEventProc:
 Exit Function
 
Error_CrtEventProc:
 MsgBox Err & " :" & Err.DESCRIPTION
 CrtEventProc = False
 Resume Exit_CrtEventProc
 
End Function

Le code s'exécute ainsi : call CrtEventProc(form_nomduformulaire)

[tee_grandbois]

Bonjour,
après quelques tests du code de mon précédent post, je me suis aperçu qu'il ne fonctionnait pas tout le temps notamment quand le formulaire contenait un sous-formulaire.
Voici donc une nouvelle version plus stable :

Code VBA :

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
40
41
42
43
44
Function CrtEventProc(pNomfrm As String) As Boolean
' Création en masse de procédures évènementielles
 Dim frm As Form
 Dim ctl As Control, mdl As Module
 Dim lngReturn As Long
 
 On Error GoTo Error_CrtEventProc
 ' Ouverture du formulaire en mode création et masqué
 DoCmd.OpenForm pNomfrm, acDesign, , , , acHidden
 Set frm = Forms(pNomfrm)
 Set mdl = frm.Module
 
 frm.HasModule = True
 
 For Each ctl In frm.Controls
    If ctl.ControlType = acTextBox Then
' Création des procédures événementielles GotFocus pour les contrôles de type acTextBox
        lngReturn = mdl.CreateEventProc("GotFocus", ctl.Name)
 ' Insertion du texte de code
        mdl.InsertLines lngReturn + 1, vbTab & "Interface_GotFocus"
 ' Création des procédures événementielles LostFocus pour les contrôles de type acTextBox
        lngReturn = mdl.CreateEventProc("LostFocus", ctl.Name)
 ' Insertion du texte de code
        mdl.InsertLines lngReturn + 1, vbTab & "Interface_LostFocus"
  ' Activation des procédures évènementielles
        ctl.OnGotFocus = "[Event Procedure]"
        ctl.OnLostFocus = "[Event Procedure]"
    End If
 Next ctl
 
' Fermeture du formulaire et sauvegarde des modifications
DoCmd.Close acForm, pNomfrm, acSaveYes
 
CrtEventProc = True
 
Exit_CrtEventProc:
 Exit Function
 
Error_CrtEventProc:
 MsgBox Err & " :" & Err.DESCRIPTION
 CrtEventProc = False
 Resume Exit_CrtEventProc
 
End Function

Le code s'exécute ainsi : call CrtEventProc("NomduFormulaire")

[AidezMoiSvp]

merci à tous pour votre participation.
Cependant je galère, je ne m'en sors pas.

@tee_grandbois : merci pour le code. Cependant, ce n'est pas exactement ce que je recherche. En effet, ton code crée un code pour chaque contrôle. Or je souhaiterais éviter de multiplier les codes.


Je pense que mon problème pourrait être résolu avec un module de classe.
J'ai fait quelques tests mais là encore je patine

[tee_grandbois]

Bonsoir,

En effet, ton code crée un code pour chaque contrôle. Or je souhaiterais éviter de multiplier les codes.

Je pensais que la création automatique du code t'éviterai une saisie fastidieuse, or ce qui t'importe c'est le moins de code possible.
Alors, explique-moi comment tu penses déclencher un évènement sur réception et perte focus d'un contrôle sans pour autant créer de code sur ces contrôles !

[loufab]

y a un truc qui m'échappe :
8e8eClo démarre la discussion puis c'est AidezMoiSVP qui prend la suite.

Vous êtes siamois ?

[tee_grandbois]

plutôt un clone !

[loufab]

mince après le clonage des brebis voilà qu'ils se mettent à cloner les devnautes.

[tee_grandbois]

et les clowns clonés ?

[AidezMoiSvp]

AidezMoiSvp était mon premier compte.
J'ai créé 8e8eClo me souvenant plus que j'avais déjà un compte sur le site !

[AidezMoiSvp]

Bonsoir,

Je pensais que la création automatique du code t'éviterai une saisie fastidieuse, or ce qui t'importe c'est le moins de code possible.
Alors, explique-moi comment tu penses déclencher un évènement sur réception et perte focus d'un contrôle sans pour autant créer de code sur ces contrôles !

Je pensais faire comme ça :
- à l'ouverture du formulaire, tous les contrôles textbox et combobox sont ajoutés à un module de classe
- ensuite quand un contrôle du module de classe reçoit le focus, le code s'exécute.

Après ce n'est peut être pas possible et dans ce cas j'utiliserai ton code.

[tee_grandbois]

Bonsoir 8e8eClo,
après quelques recherches sur le net, j'ai fini par mettre la main sur la solution (en effet, elle existe) : http://allenbrowne.com/highlight.html

C'est bien avec un module, mais pas de classe.

[8e8eClo]

Merci @tee_grandbois !

J'avais déjà bien fouillé sur le web mais je n'avais pas du tout les mots qu'il fallait !
Le code fonctionne nickel !

Merci !