en bref, pour un client N° 1233 je dis:
1. faire pratiquer un injection de .....
2. Amoxicilline
Le requete me retrouve cela comme il faut,
mais l'Etat me dit
2. Amoxicilline
1. faire pratiquer un injection de .....
l'ordre est inverse dès qu'on passe de la requete à l'état
a tout hasard voici le code du système de tri.
Dim Qd As QueryDef
Dim stDocName, e As String
Dim Sql As String
Dim sqlBase As String
Dim a As Variant
stDocName = "EtatOrdonnance" ' nom de l'état qui est trié par la requète" PrintEtatEncours"
a = Me.N°DeConsultation
Sql = "SELECT [RqyTraitementPrint].[NomDeFamille], [RqyTraitementPrint].[Prénom], [RqyTraitementPrint].[Naiss], [RqyTraitementPrint].[N°DeConsultation], [RqyTraitementPrint].[N°ConsultDefinitif], [RqyTraitementPrint].[DateCons], [RqyTraitementPrint].[PoidsCons], [RqyTraitementPrint].[N°Consultation], [RqyTraitementPrint].[NomMedicTT], [RqyTraitementPrint].[PosologieTT], [RqyTraitementPrint].[DuréeTT], [RqyTraitementPrint].[N°TT],[RqyTraitementPrint].[N°TTDefinitif], [TbDossierTel].[CodePatient] FROM RqyTraitementPrint INNER JOIN TbDossierTel ON [RqyTraitementPrint].TbDossierTel.CodePatient=[TbDossierTel].[CodePatient] WHERE ((([RqyTraitementPrint].[N°ConsultDefinitif])=" & a & ")) ORDER BY [RqyTraitementPrint].[N°TTDefinitif]asc;"
' Cette requete affiche les noms de médicaments dans l'ordre correspondant au N° de TT (de saisie), ça marche
MsgBox (Sql) ' permet de voir qu'il n'y a pas d'erreur et c'est ok
DoCmd.DeleteObject acQuery, "PrintEtatEncours" ' supprime l'ancienne requète
Set Qd = Application.CurrentDb.CreateQueryDef("PrintEtatEncours", Sql) ' pour la remplacer par celle ci
Call Imprime(stDocName)
Err_Commande903_Click:
End Sub
Public Function Imprime(stDocName)
DoCmd.OpenReport stDocName, acViewPreview ' cet état qui utilise la requète "PrintEtatEncours" montre les médic dans l'ordre inverse, le plus récent en dernier !!!!
End Function
merci de votre aide, ça doit être très basic comme truc
doc 富士 山 un toubib qui programme en VBA