Discussion :

[rag83]

Bonjour à tous,

Je cherche à faire un truc tout bête mais je coince sur un détail.

Dans un formulaire continu, je voudrais mettre en surbrillance (par exemple colorier tous les champs) un enregistrement quand il est actif.

J'arrive à faire cela par un code qui s'active sur l'évènement Activation du formulaire en vérifiant le contenu d'un champ texte et une mise en forme conditionnelle, mais je voudrais aussi que ça fonctionne quand je me mets sur un nouvel enregistrement et ça je n'y arrive pas.

Soit le nouvel enregistrement est toujours en surbrillance en plus de celui qui est actif, soit c'est toutes les lignes qui le sont.

Comment faire ?

Merci

[ClaudeLELOUP]

Bonjour,

Regarde dans ce tutoriel, il y a un exemple : http://claudeleloup.developpez.com/t...laire/#LIX-A-2

et aussi http://claudeleloup.developpez.com/t...igognes/#LIV-C

L’astuce consiste :
- dans l’événement sur activation du formulaire ;
- à copier dans un contrôle indépendant (éventuellement caché) une valeur unique de l’enregistrement actif.
Tu peux alors te servir de ce critère d’égalité pour une mise en forme conditionnelle qui ne sera effective que dans l'enregistrement actif.

[rag83]

Bonjour Claude,

C'est ce que j'ai fait, sauf pour le nouvel enregistrement qui ne contient aucune valeur. C'est la que se trouve mon problème.

[ClaudeLELOUP]

Bah ! il faut ruser un peu plus...

Code :

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

1
2
3
4
5
6
Option Compare Database
Option Explicit
 
Private Sub Form_Current()
  Me.txtActif = Nz(Me.AuteurPk, "|") 'on remplace par un caractère peu probable, par ex. un pipe
End Sub

et

[rag83]

Effectivement cette astuce fonctionne, merci Claude !

Dernier petit tracas sur le même sujet, dans mon formulaire j'ai un bouton avec du VBA pour supprimer les enregistrements.

Quand je clique sur ce bouton, j'ai une msgbox qui s'ouvre demandant une confirmation avant de supprimer l’enregistrement

Malheureusement, quand ce bouton est cliqué, l'enregistrement à supprimer ne se met pas en surbrillance, ce n'est le cas que lorsqu'on a répondu à la msgbox.

Y a t-il une autre astuce pour que ce soit la cas ?

[ClaudeLELOUP]

Je ne comprends pas !

Tu es positionné sur un enregistrement => il est donc « allumé » (puisqu'il est actif).

Tu cliques sur un bouton => l'enregistrement reste actif, donc allumé

Tu confirmes la suppression, que se passe-t-il alors ?

[rag83]

Je suis positionné sur un enregistrement, il est actif et en surbrillance.

Je clique directement sur le bouton supprimer d'un autre enregistrement, c'est toujours l'ancien qui est en surbrillance, il faut que ce soit le nouveau !

[ClaudeLELOUP]

Je clique directement sur le bouton supprimer d'un autre enregistrement,

Mais alors, cet autre enregistrement devient actif => il s'allume !

Quelque chose m'échappe dans ton scénario.

[rag83]

Non il ne s'allume pas tant que je n'ai pas répondu à la msgbox... Comme si le fait de cliquer directement sur le bouton ne déclenchait pas le Form_Current.

[ClaudeLELOUP]

Montre le code associé au bouton

[rag83]

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
Private Sub btnSupprimer_Click()
On Error GoTo err_btnSupprimer_Click
 
 If Not IsNull(Me.idVendeurPK) Then
        If MsgBox("Supprimer le vendeur " & Chr(34) & Me.NomVendeur & Chr(34) & " ?", vbYesNo) = vbYes Then
            DoCmd.SetWarnings False
            DoCmd.RunCommand acCmdDeleteRecord
            DoCmd.SetWarnings True
            Dim StrSQL As String
            Dim rst As Recordset
            Dim resultat As Integer
            StrSQL = "SELECT Last(tblVendeurs.idVendeurPK) AS DernierDeidVendeurPK FROM tblVendeurs"
            Set rst = CurrentDb.OpenRecordset(StrSQL)
            resultat = rst![DernierDeidVendeurPK]
            Forms!frmVendeursMagasins.Requery
            Me.Recordset.FindFirst "idVendeurPK=" & resultat
            If CurrentProject.AllForms!frmRechercheVendeursMagasins.IsLoaded Then
                Forms!frmRechercheVendeursMagasins.filtreCboNomVendeur.Requery
                Forms!frmRechercheVendeursMagasins.fuR_RM
            End If
        End If
    End If
Exit_btnSupprimer_Click:
    Exit Sub
 
err_btnSupprimer_Click:
    MsgBox "Erreur " & Err.Number & Chr(13) & Chr(13) & Err.Description
    Resume Exit_btnSupprimer_Click
 
End Sub

[ClaudeLELOUP]

Essaie d'ajouter call Form_Current comme première instruction (sans garantie)

N.B. Plus disponible pdt 3/4 heure.

[rag83]

Déjà testé et cela ne fonctionne pas...

Sinon je viens de remarquer que l'astuce pour mettre en surbrillance le nouvel enregistrement a un petit soucis, dès que je commence à saisir ce nouvel enregistrement, un nouveau vide est créé juste en dessous et c'est celui là qui passe en surbrillance !

[ClaudeLELOUP]

Sinon je viens de remarquer que l'astuce pour mettre en surbrillance le nouvel enregistrement a un petit soucis, dès que je commence à saisir ce nouvel enregistrement, un nouveau vide est créé juste en dessous et c'est celui là qui passe en surbrillance !

Réinitialise, le contrôle indépendant dans l'événement Sur modification des contrôles susceptibles d'être complétés en premier.

Dans mon exemple :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Option Compare Database
Option Explicit
 
Private Sub AuteurNom_Change()
  Me.txtActif = Me.AuteurPk
End Sub
 
Private Sub AuteurPrenom_Change()
  Me.txtActif = Me.AuteurPk
End Sub
 
Private Sub Form_Current()
  Me.txtActif = Nz(Me.AuteurPk, "|")
End Sub

[ClaudeLELOUP]

Non il ne s'allume pas tant que je n'ai pas répondu à la msgbox... Comme si le fait de cliquer directement sur le bouton ne déclenchait pas le Form_Current.

Ajoute DoEvents comme première instruction (testé).

[rag83]

Ca fonctionne en réinitialisant le contrôle indépendant sur modification. Par contre chaque fois qu'une lettre est tapée le formulaire clignote, c'est assez désagréable...

Pour le DoEvents ça marche mais pas tout le temps

[ClaudeLELOUP]

Je donne ma langue au chat !

[rag83]

Le chat n'en veut pas !

[ClaudeLELOUP]

... mais je n'ai rien d'autre à lui proposer !

[rag83]

Je suis sur que si et il est patient !