Effectuer une action au changement de sélection de ligne sur formulaire

Bonjour
J'ai une feuille de réponse dynamique située dans un formulaire
Je souhaiterais effectuer une action (un code vba qui ferme un formulaire qui est ouvert, façon "pop up") dés que l'on change le petit triangle de ligne.
En mode création, je n'ai pas cette petite case , et j'arrive à mes fins en cas de clic sur les autres cases (celle où il est indiqué 2080 et 2091sur la capture d'écran) , mais pas si je change ce petit triangle de ligne.
Pièce jointe 599648

Question, comment faire pour qu'un code VBA s'exécute quand on change le petit triangle de ligne ou si pas possible peut on masquer cette colonne qui apparaît en mode formulaire ?

Merci pour votre aide, je n'arrive pas à mettre la main dessus ...

J'espère avoir été clair :aie:

bonsoir,

Citation:

---

peut on masquer cette colonne qui apparaît en mode formulaire ?

---

en fait, le petit triangle est une flèche, qui indique l'enregistrement en cours.
On peut faire disparaitre le sélecteur d'enregistrements en mettant la propriété "Afficher sélecteur" à Non

Tout d'abord merci pour la réponse.
Je n'ai pas trouvé de propriété afficher selecteur.

J'ai trouvé une solution partielle:
si je met mon code :

Code:

---

If (IsNull(Me.DateEnvoi)) And (IsNull(Me.NomDuReparateur)) Then DoCmd.Close acForm, "FormConfirmationExpedier"

---

au niveau du formulaire (petit point en haut à gauche du formulaire visible) dans sur souris appuyée, cela fonctionne, sauf si je clique sur la dernière ligne
Pièce jointe 599675
si je clique sur la flèche dans la ligne 2080 ou 2091 le code fonctionne, par contre si je passe du 2080 ou 2091 sélectionné à 2094 (la dernière ligne) la selection se fait bien (la flèche se met au niveau de la ligne cliquée) par contre le code ne s'exécute pas.
Je ne comprends pas pourquoi la dernière ligne n'est pas prise en compte.:weird:
c'est une Feuille rép.dyn.(MAJ globale) issue d'une requête.
Pièce jointe 599677
A noter que si je met le même code sur toutes les cases de la feuille de réponse dynamique, le résultat est le même : seule la dernière ligne est "ignorée"

Petite correction, ce sont seulement les deux première ligne où le clic est pris en compte.
Pièce jointe 599678
J'ai ajouté des lignes et seules sur les deux premières le code fonctionne, je ne comprends pas pourquoi...

Je continue mes tests, et le souci vient de mon code, parfois la case testée, bien que vide à l'oeil n'est pas considérée comme "null", j'ai aussi essayé avec = ou <> de "" sans résultat probant..:aie:

Salut
Un début de piste peut-être

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Private Sub Form_Click() Dim dbs As DAO.Database Dim rst As DAO.Recordset Dim strSql As String   strSql = "SELECT * FROM NomDeLaTable WHERE id_pk =" & Me.id_pk 'id numerik 'strSql = "SELECT * FROM NomDeLaTable WHERE id_pk ='" & Me.id_pk & "'" 'id string   Set dbs = CurrentDb Set rst = dbs.OpenRecordset(strSql) If Me.SelHeight = 1 Then MsgBox "Le sélecteur de l'enregistrement " & rst.Fields(0) & " est sélectionné" End If End Sub

---

Citation:

---

Envoyé par vavavoum74

Tout d'abord merci pour la réponse.
Je n'ai pas trouvé de propriété afficher selecteur.

---

Merci beaucoup!
Je ne devais pas avoir les yeux en face des trous pour ne pas trouver cette activation du selecteur!

Je vais étudier le code de Hyperion.
En parcourant la FAQ du site, j'ai utilisé la fonction Nz:

Code:

---

If (Nz(Me.DateEnvoi, "0") = 0) And (Nz(Me.NomDuReparateur, "0") = 0) Then DoCmd.Close acForm, "FormConfirmationExpedier"

---

Cela semble fonctionner sous cette forme, il faut encore que je teste.

Je met résolu sur ce sujet , cela fonctionne comme ça.

Merci à tous les deux!