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
|
Private Sub app_btn_filtre_Click()
strSQL = "SELECT " & _
"a.app_numero AS [N° appariement], a.app_homologation AS [Date homologation], a.app_datefin AS [Date fin appariement], a.app_descriptionProjet AS [Description projet], " & _
"d.fai_date AS [Date de demande], d.efr_uai AS UAI," & _
"dpt.dpt_nom AS Département, b.bas_nom AS Bassin, vf.vfr_nom AS Ville, " & _
"n.nat_libelle AS Nature, " & _
"e.efr_nom AS Nom, " & _
"p.par_nom AS [Nom partenaire étranger], " & _
"v.vet_nom AS [Ville partenaire étranger], " & _
"r.reg_nom AS Land, " & _
"pa.pay_nom AS Pays " & _
"FROM (((((((((((appariement a " & _
"LEFT JOIN demandeprg d ON d.dpr_id = a.dpr_id) " & _
"LEFT JOIN efr_acv ea ON ea.efr_uai = d.efr_uai) " & _
"LEFT JOIN villefr vf ON vf.vfr_codeinsee = ea.vfr_codeinsee) " & _
"LEFT JOIN bassin b ON b.bas_nvnumero = vf.bas_nvnumero) " & _
"LEFT JOIN departement dpt ON dpt.dpt_numero = b.dpt_numero) " & _
"LEFT JOIN etabfr e ON e.efr_uai = d.efr_uai) " & _
"LEFT JOIN nature n ON n.nat_code = e.nat_code) " & _
"LEFT JOIN partenaireEtranger p ON p.par_id = a.par_id) " & _
"LEFT JOIN villeetrangere v on v.vet_id = p.vet_id) " & _
"LEFT JOIN region r ON r.reg_code = v.reg_code) " & _
"LEFT JOIN pays pa ON pa.pay_code = v.pay_code) " & _
"WHERE pa.pay_nom = 'ALLEMAGNE' "
CurrentDb.QueryDefs("appariements").SQL = strSQL
Me.appariements_sous_formulaire.Requery
End Sub |
Partager