Discussion :

[pascal5]

Bjr
Je reviens vers vous car j'ai un mal fou a régler mon problème, malgrès tous les debuts e piste que j'ai pu trouver sur le forum je n'y arrive pas.
Je vous explique mon soucis.
J'ai une requete de selection R_Tournée avec champs Nom,Prénom,DebutSoins(format date 01/01/2012),FinSoins(format date 01/01/2012), ListTourn,
J'ai un formulaire FiltrageEtat basé sur ma requete ou j'ai un liste déroulante ListTourn et une zone de texte Date 01/12/2012.
Je voudrais pouvoir imprimer mon etat a la date du jour avec la liste des patients compris entre la date debut des soins et la date du jour et le choix fait dans la zone de liste deroulante et quand la date est dépassé que le(s) patients(s) ne soit plus sur l'etat.

Merci pour toute aide

[User]

Bjr,

Tu peux essayer un code VBA du genre :

Code :

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

DoCmd.OpenReport "TonEtat", acViewPreview, ,"ListTourn='" & ME!ListTourn & "' and Date() between [DebutSoins] and [FinSoins]"

Remarque:

La fonction Date() te renvoie la date du jour.

Et TonEtat est le nom de l'état basé sur ta requête.

A+

Denis

[pascal5]

Bjr est merci User de m'aider.
Ca fonctionne mais le problème avec cette solution (j'en avais trouvé une similaire sur le site) c'est que l’état m'affiche aussi les patients qui ont fini leurs série de soins et c'est la que je bute.

Code :

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

1
2
3
Private Sub Commande49_Click()
DoCmd.OpenReport "EtatTourn", acViewPreview, , "ListTourn='" & Me!ListTourn & "' and Date() between [DebutSoins] and [FinSoins]"
End Sub

Y'a t'il une solution pour justement n'afficher que les patients en cours de traitement.
Merci encore

[pascal5]

J'ai repondu trop vite, ça marche
Un grand merci User.

Juste encore un truc j'ai une fenêtre qui s'ouvre me demandant le numero de a tourné, y'a t'il un moyen de la remplacer par une zone de liste deroulante.
Merci

[User]

Slt,

Le champ ListTourn est de quel type ?

Numérique, texte ?

Peux-tu poster le sql de la requête source de ton état ?

[pascal5]

Merci User c'est sympa de ta part de me consacrer un peu de ton temps.

Le nom de ma zone de liste deroulante est SelectTourn
Le champs NumListTournee est de type texte.
NumListTourn est la cle primaire

Code :

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

1
2
SELECT T_ListTournee.NumListTourn, T_ListTournee.NumListTournee
FROM T_ListTournee;

Merci et bon dimanche

[User]

Slt Pascal,

Quelle est la valeur de la propriété colonne liée de la liste ?

Sinon, essaie peut-être ceci :

Code :

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

1
2
3
Private Sub Commande49_Click()
DoCmd.OpenReport "EtatTourn", acViewPreview, , "ListTourn='" & Me!SelectTourn & "' and Date() between [DebutSoins] and [FinSoins]"
End Sub

L'expression Me!SelectTourn fait réfèrence à ta liste SelectTourn située dans le formulaire courant (Me fait réfèrence à ton formulaire actif (FiltrageEtat)).

A+

[pascal5]

Le résultat est toujours le même, ça fonctionne mais j'ai tjrs une petite fenêtre qui me demande quelle tournée imprimer.

Colonne liée : 1
Merci User

[User]

Slt,

La source de ton état c'est bien R_Tournée ?

Peux-tu poster le sql de la source de l'état ?

NumListTourn, la cle primaire de T_ListTournee , est bien reliée au champ ListTourn dans R_Tournée ?

De quel type est NumListTourn ?

En dernier recours poste ta base.

A+

Denis

[pascal5]

La source de ton état c'est bien R_Tournée ?

Oui

NumListTourn, la cle primaire de T_ListTournee , est bien reliée au champ ListTourn dans R_Tournée ?

Oui

De quel type est NumListTourn ?

Numeroauto

le sql de mon etat (source)

Code :

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

1
2
3
SELECT T_Patients.NumPatients, T_Patients.FinProtocole, T_Patients.NumJour, T_Patients.NumCivilite, T_Patients.NomPatient, T_Patients.PrenomPatient, T_Patients.TelephoneFix, T_Patients.NumeroRue, T_Patients.Rue, T_Patients.NumCommune, T_Patients.Remarque, T_Patients.DebutSoins, T_Patients.FinSoins, T_Patients.HorraireMatin, T_Patients.HorraireSoir, T_Patients.DepartHospit, T_Patients.RetourHospit, T_Patients.Soins, T_Patients.CarteVitale, T_Patients.NumTourn, T_Patients.NumTournSoir, T_Patients.RenouvUn, T_Patients.RenouvDeux
FROM T_ListTournee INNER JOIN T_Patients ON T_ListTournee.NumListTourn = T_Patients.NumTourn
WHERE (((T_Patients.FinProtocole) Like (0)) AND ((T_Patients.RenouvUn) Like "0") AND ((T_Patients.RenouvDeux) Like "0"));

Meri

[User]

Re,

Désolé mais le champ ListTourn ne fait pas partie de ta source, par contre tu as T_Patients.NumTourn

Essaie peut-être ceci:

Code :

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

1
2
3
Private Sub Commande49_Click()
DoCmd.OpenReport "EtatTourn", acViewPreview, , "NumTourn=" & Me!SelectTourn & " and Date() between [DebutSoins] and [FinSoins]"
End Sub

A+

[pascal5]

Ca marche.
Des erreurs de néophyte et de bleu ,-)
Un grand merci a toi User c'est vraiment sympa

J'ai encore beaucoup de boulot et de bouquins a lire avant de maitriser access. J'ai voulu faire plaisir a une amie pour la gestion des tournées de son cabinet, mais c'est hard ,-)
Je persévère.

Merci