[AC-2010] Pb récupération variable OpenArg [Résolu]

[baryn]

Bonsoir à tous,

Je coince cette fois sur une variable à transmettre de la fermeture d'un formulaire vers l'ouverture d'un autre.

Je suis sur une fiche Etat Civil client, j'exécute :

Code :

1
2
3
4
5
Private Sub BT_Suivant_Click()
 
    DoCmd.OpenForm "Formulaire_FichePatient", acNormal, , "[ID_Patient] = " & Me.[ID_Patient], , , [ID_Patient]
 
End Sub

Dans le second formulaire, un filtre se charge bien contenant [ID_Patient] = XXXX, mais pas dans un controle listbox indépendant chargé par une requête.

Donc je me dis, pas grave, je récupère la variable avec OpenArgs, et je l'incorpore à ma requête.

Ce qui me donne :

Code :

1
2
3
4
5
6
Private Sub Form_Load()
 
    Dim PatientEnCours As Integer
    PatientEnCours = Me.OpenArgs
 
End Sub

Et pour la requête :

Code sql :

1
2
3
4
SELECT Fiches.ID_Fiche, Fiches.ID_Patient, Fiches.TypeFiche, Fiches.DateFiche, Fiches.ScanFiche, Fiches.ScanOrdo, Fiches.Resume, Examinateur.Nom_Examinateur
FROM Patients INNER JOIN (Examinateur INNER JOIN Fiches ON Examinateur.ID_Examinateur = Fiches.ID_Examinateur) ON Patients.ID_Patient = Fiches.ID_Patient
WHERE (((Fiches.ID_Patient)=[PatientEnCours]))
ORDER BY Fiches.DateFiche;

Mais ca ne fonctionne pas, ça m'ouvre une MsgBox qui me demande la valeur PatientEnCours après avoir cliqué sur le bouton qui ferme le 1er et ouvre le 2e formulaire. (par contre après, en entrant manuellement, ca filtre comme il faut)

Quelqu'un peut m'aider ? J'ai essayé plusieurs choses mais ca coince toujours

[tee_grandbois]

Bonsoir,
Pour que ta variable OpenArgs soit visible dans ta requète, il faut que tu la charges commes tu l'as fais, ici

PatientEnCours = Me.OpenArgs

mais dans un contrôle de ton formulaire. Après il faut que ta variable soit reconnue avec la bonne syntaxe :

Code :

1
2
3
4
SELECT Fiches.ID_Fiche, Fiches.ID_Patient, Fiches.TypeFiche, Fiches.DateFiche, Fiches.ScanFiche, Fiches.ScanOrdo, Fiches.Resume, Examinateur.Nom_Examinateur
FROM Patients INNER JOIN (Examinateur INNER JOIN Fiches ON Examinateur.ID_Examinateur = Fiches.ID_Examinateur) ON Patients.ID_Patient = Fiches.ID_Patient
WHERE (((Fiches.ID_Patient)=[Formulaires]![TonFormulaire]![PatientEnCours]))
ORDER BY Fiches.DateFiche;

[baryn]

Merci pour ta réponse rapide.

Cool à priori le problème ne vient pas de l'ordre de chargement ou autre, c'est déjà ça.

Par contre j'ai essayé avec ce que tu m'as dit, ça ne fonctionne pas, je n'ai aucun résultat à ma requête.

[Philippe JOCHMANS]

Bonjour

PatientEnCours est une variable et lorsque tu écris [PatientEnCours] ta requête recherche un champ qui se nomme ainsi.

1 - Ne pas nommer un champ comme une variable, c'est sujet à des quiproquos (comme ici), et utiliser : Descriptif des conventions typographiques du code Visual Basic

2 - Ajouter ta variable par concaténation dans la requête qui alimente ta liste.

Philippe

[baryn]

Je n'ai aucun champ qui s'appelle PatientEnCours, justement. Le champ s'appelle [ID_Patient].

Je vais me renseigner sur la concaténation de ce pas, merci

[Jeannot45]

Une petite concaténation de la reponse de tee_grandbois et Philippe JOCHMANS

Code :

1
2
3
4
SELECT Fiches.ID_Fiche, Fiches.ID_Patient, Fiches.TypeFiche, Fiches.DateFiche, Fiches.ScanFiche, Fiches.ScanOrdo, Fiches.Resume, Examinateur.Nom_Examinateur
FROM Patients INNER JOIN (Examinateur INNER JOIN Fiches ON Examinateur.ID_Examinateur = Fiches.ID_Examinateur) ON Patients.ID_Patient = Fiches.ID_Patient
WHERE (((Fiches.ID_Patient)= " & [Formulaires]![TonFormulaire]![PatientEnCours])) & "
ORDER BY Fiches.DateFiche;"

De cette manière tu récupères la valeur de ta variable et tu la concatènes à ton expression SQL

[baryn]

Ca ne marche toujours pas

Pour tester, j'ai ajouter l'évenement :

Code :

MsgBox PatientEnCours

Sur chargement de mon formulaire, et il me répond bien la valeur souhaitée. Le problème vient bien de ma requête.

Je pense que je vais essayer de faire la requête entièrement sous VBA plutot qu'en utilisant l'assistant et en modifiant juste le WHERE.

Edit : je sais que ce n'est pas bien conseillé, mais si j'ajoutais ma variable en public ? Je serais sur de pouvoir la récupérer dans ma requête non ?

[Jeannot45]

Quel est le type de données retourné par ta variable. S'il s'agit de texte, il te suffit de modifier le code en ajoutant des quotes

Code :

1
2
3
4
SELECT Fiches.ID_Fiche, Fiches.ID_Patient, Fiches.TypeFiche, Fiches.DateFiche, Fiches.ScanFiche, Fiches.ScanOrdo, Fiches.Resume, Examinateur.Nom_Examinateur
FROM Patients INNER JOIN (Examinateur INNER JOIN Fiches ON Examinateur.ID_Examinateur = Fiches.ID_Examinateur) ON Patients.ID_Patient = Fiches.ID_Patient
WHERE (((Fiches.ID_Patient)= '" & [Formulaires]![TonFormulaire]![PatientEnCours])) & "'
ORDER BY Fiches.DateFiche;"

[baryn]

Bonsoir,

Super, ça marche enfin !!

En mixant la solution de Jeannot, avec un truc que j'ai lu ailleurs, tout fonctionne !

En fait, une requête ne sait apparemment pas très bien exploiter les variables. Donc j'avais 2 choix. Soit faire un bout de code en VBA pour construire ma requête, avec la variable, soit simplement insérer le champ (ID_Patient) sur le formulaire, le filtrer avec ma valeur récupérée avec l'OpenArgs, et le récupérer avec la technique de Jeannot

Simple, mais fallait juste y penser

Un grand merci à vous !