Discussion :

[docjo]

Bonjour à tous

J'ai créé dans un formulaire "F_lits" un plan de mon service où sont placés les lits des mes patients. Les lits sont symbolisés par des champs indépendants qui reçoivent le nom et le prénom des patients d'une requête.
J'aimerai insérer un sous-formulaire qui rapporte des informations sur ces patients lorsque la souris passe sur ce champ indépendant. Bref, je veux filtrer mon sous formulaire "SF_lits" avec une sorte de mouse over.
J'ai donc placé sur souris déplacé le code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Private Sub lit2modA_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
 
    Dim stpat_lit2modA As String
 
    stpat_lit2modA = DLookup("Patient_rea", "R_lits_rea", "Lit_rea='Module A, lit 2'")
 
 
    Forms!F_lits!SF_lits.Form.Filter = "[Patient_rea]=" & stpat_lit2modA
    Forms!F_lits!SF_lits.Form.FilterOn = True
 
End Sub

"Patient_rea" contient le nom et le prénom du patient. Mais "impossible d'attribuer une valeur à ce formulaire", "ce formulaire est peut être ouvert en lecture seule".
Merci d'avance pour vos suggestions (si j'ai été assez clair !)

[docjo]

Bon j'ai trouvé grâce à la FAQ access:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
 
Private Sub lit2modA_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
 
 
 
    Forms![F_lits]![SF_lits].Form.RecordSource = "SELECT R_lits_rea.ID_Patient, R_lits_rea.ID_Intervention, R_lits_rea.Patient_rea, R_lits_rea.Lit_rea, R_lits_rea.Date_intervention, R_lits_rea.chir1, R_lits_rea.[Type d'intervention] FROM R_lits_rea WHERE (((R_lits_rea.Lit_rea)='Module A, lit 2'));"
 
 
 
End Sub

Avec ce code, je change la source du sous_formulaire et j'affiche le contenu d'un enregistrement.