1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108
|
Private Sub ListeClient_DblClick(Cancel As Integer)
ListeContrat.RowSource = " SELECT Contrat.[N°Contrat Locabureau Unique], Client.[N°Client Unique]" & _
" FROM Contrat INNER JOIN (Client INNER JOIN [Détail Contrat] ON Client.[N°Client Unique] = [Détail Contrat].[N°Client Unique]) ON Contrat.[N°Contrat Locabureau Unique] = [Détail Contrat].[N°Contrat Locabureau Unique]" & _
" GROUP BY Client.[N°Client Unique], Contrat.[N°Contrat Locabureau Unique]" & _
" HAVING (((Client.[N°Client Unique])=""" & LIsteClient & """));"
ZoneNomduSignataire.RowSource = " SELECT Client.[Nom du Signataire], Client.[N°Client Unique] " & _
" FROM Client " & _
" WHERE (((Client.[N°Client Unique])=""" & LIsteClient & """)); "
ZoneAdresse.RowSource = " SELECT Client.Adresse, Client.[N°Client Unique] " & _
" FROM Client " & _
" WHERE (((Client.[N°Client Unique])=""" & LIsteClient & """)); "
ZoneCodePostal.RowSource = " SELECT Client.[Code Postal], Client.[N°Client Unique] " & _
" FROM Client " & _
" WHERE (((Client.[N°Client Unique])=""" & LIsteClient & """)); "
ZoneVille.RowSource = " SELECT Client.Ville, Client.[N°Client Unique] " & _
" FROM Client " & _
" WHERE (((Client.[N°Client Unique])=""" & LIsteClient & """)); "
ListeDetail.RowSource = " SELECT [Détail Contrat].[N°Série Unique], [Détail Contrat].[Référence Produit], [Détail Contrat].Désignation, [Détail Contrat].Quantité, [Détail Contrat].N°BL, [Détail Contrat].Total_a_Financer_HT, [Détail Contrat].[Date de Livraison], [Détail Contrat].[Adresse de livraison]" & _
" FROM Client INNER JOIN [Détail Contrat] ON Client.[N°Client Unique] = [Détail Contrat].[N°Client Unique]" & _
" WHERE (((Client.[N°Client Unique])=""" & LIsteClient & """)); "
ListeContrat.Requery
ZoneNomduSignataire.Requery
ZoneAdresse.Requery
ZoneCodePostal.Requery
ZoneVille.Requery
ListeDetail.Requery
End Sub
Private Sub ListeContrat_DblClick(Cancel As Integer)
ZoneDatedeDebut.RowSource = " SELECT Contrat.Date_de_Debut, Contrat.[N°Contrat Locabureau Unique] " & _
" FROM Contrat " & _
" WHERE (((Contrat.[N°Contrat Locabureau Unique])=""" & ListeContrat & """)); "
ZoneDatedeFin.RowSource = " SELECT Contrat.Date_de_Fin, Contrat.[N°Contrat Locabureau Unique] " & _
" FROM Contrat " & _
" WHERE (((Contrat.[N°Contrat Locabureau Unique])=""" & ListeContrat & """)); "
ZoneDurée.RowSource = " SELECT Contrat.[Durée (en mois)], Contrat.[N°Contrat Locabureau Unique] " & _
" FROM Contrat " & _
" WHERE (((Contrat.[N°Contrat Locabureau Unique])=""" & ListeContrat & """)); "
ZoneTaux.RowSource = " SELECT Contrat.[Taux de Financement], Contrat.[N°Contrat Locabureau Unique] " & _
" FROM Contrat " & _
" WHERE (((Contrat.[N°Contrat Locabureau Unique])=""" & ListeContrat & """)); "
ZonePeriodeLoyer.RowSource = " SELECT Contrat.[Période du Loyer], Contrat.[N°Contrat Locabureau Unique] " & _
" FROM Contrat " & _
" WHERE (((Contrat.[N°Contrat Locabureau Unique])=""" & ListeContrat & """)); "
ZoneDernièreFacturation.RowSource = " SELECT Contrat.[Date de Dernière Facturation], Contrat.[N°Contrat Locabureau Unique] " & _
" FROM Contrat " & _
" WHERE (((Contrat.[N°Contrat Locabureau Unique])=""" & ListeContrat & """)); "
ZoneSignature.RowSource = " SELECT Contrat.[Date de Signature], Contrat.[N°Contrat Locabureau Unique] " & _
" FROM Contrat " & _
" WHERE (((Contrat.[N°Contrat Locabureau Unique])=""" & ListeContrat & """)); "
ZoneTerme.RowSource = " SELECT Contrat.Terme, Contrat.[N°Contrat Locabureau Unique] " & _
" FROM Contrat " & _
" WHERE (((Contrat.[N°Contrat Locabureau Unique])=""" & ListeContrat & """)); "
ZonePayement.RowSource = " SELECT Contrat.[Mode de Payement], Contrat.[N°Contrat Locabureau Unique] " & _
" FROM Contrat " & _
" WHERE (((Contrat.[N°Contrat Locabureau Unique])=""" & ListeContrat & """)); "
ZoneCommentaire.RowSource = " SELECT Contrat.[Commentaire], Contrat.[N°Contrat Locabureau Unique] " & _
" FROM Contrat " & _
" WHERE (((Contrat.[N°Contrat Locabureau Unique])=""" & ListeContrat & """)); "
ListeDetail.RowSource = " SELECT [Détail Contrat].[N°Série Unique], [Détail Contrat].[Référence Produit], [Détail Contrat].Désignation, [Détail Contrat].Quantité, [Détail Contrat].N°BL, [Détail Contrat].Total_a_Financer_HT, [Détail Contrat].[Date de Livraison], [Détail Contrat].[Adresse de livraison], Contrat.[N°Contrat Locabureau Unique]" & _
" FROM Contrat INNER JOIN [Détail Contrat] ON Contrat.[N°Contrat Locabureau Unique] = [Détail Contrat].[N°Contrat Locabureau Unique]" & _
" WHERE (((Contrat.[N°Contrat Locabureau Unique])=""" & ListeContrat & """));"
ZoneDatedeDebut.Requery
ZoneDatedeFin.Requery
ZoneDurée.Requery
ZoneTaux.Requery
ZonePeriodeLoyer.Requery
ZoneDernièreFacturation.Requery
ZoneSignature.Requery
ZoneTerme.Requery
ZonePayement.Requery
ZoneCommentaire.Requery
ListeDetail.Requery
End Sub |
Partager