Discussion :

[ggvert]

Bonjour,

Le contexte :
Sous Access 2003 SP3,
- l'évènement "sur changement" de la zône de liste déroulante d'un formulaire ouvert me permet de forcer le déroulement de la liste (méthode Dropdown).
- l'évènement "sur clic" d'un élément sélectionné de la liste entraine l'ouverture (et l'activation) d'un second formulaire ouvert sur l'enregistrement correspondant à l'élément de liste sélectionné.

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
Private Sub ZdListePatients_Click()
 
'SendKeys "{F4}"
 
NumEnreg = Me![ZdListePatients]
 
 
' Nota : Deux possibilités pour ouvrir le formulaire filtré :
'   1-Appeler la requête existante dans la liste des requêtes (troisième argument de OpenForm) :
'           DoCmd.OpenForm "patients", , "Fichier Patients ACTUEL"
'   2-Filtrer per écriture SQL (quatrième argument de OpenForm) :
DoCmd.OpenForm "patients", , , "[A sortir]=False"
 
DoCmd.GoToControl "N° d'enregistrement"
DoCmd.FindRecord NumEnreg, , , , , , True
 
End Sub

Le problème :
Le fait d'activer le second formulaire m'empêche la désactivation du forçage du déroulement de la liste (tenté avec l'instruction SendKeys "{F4}").
Par quel moyen puis-je donc désactiver ce forçage de liste, avant l'activation du second formulaire ?

Merci d'avance.

[helas]

pourquoi ne pas mettre le code sous Private Sub ZdListePatients_Change() tout simplement

[ggvert]

Ce n'est pas possible.

L'évenement "sur changement" se produit dès l'introduction d'une première lettre au clavier.

De ce fait, le code placé comme suggéré entraine l'ouverture du second formulaire avant meme le choix d'un enregistrement !

[helas]

Change() fonctionne avec une sélection dans la liste , LostFocus() semble en effet plus approprié si le choix est tapé

Code :

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

1
2
 
Private Sub ZdListePatients__LostFocus()

[ggvert]

Merci de répondre à ce sujet.
Hélas, rien n'y change (!) en utilisant l'évènement "sur changement".

Le problème semble résulter d'un mauvais choix de positionnement de l'instruction "sendkeys" lors des évènement.

D'autre part, en code VBA Access, si la méthode "Dropdown" permet de forcer le déroulement d'une liste de zône de liste, il ne semble pas exister la méthode complémentaire permettant de lever le forçage de déroulement de cette liste.