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
| 'Sélection et conditions principales
SQl = "INSERT INTO " & Table_REP & " ( REP_Num_Bis, REP_Select_2 )" & _
" SELECT REPertoire.REP_Num, True AS Expr1" & _
" FROM (" & Table_MET & " INNER JOIN REPertoire ON " & Table_MET & ".MET_Num_Bis = REPertoire.REP_Actprinc) INNER JOIN " & Table_COD & " ON REPertoire.REP_Codepostal = " & Table_COD & ".COD_Code" & _
" WHERE (((" & Table_MET & ".MET_Select)=True) AND ((" & Table_COD & ".COD_Select)=True) AND ((REPertoire.REP_Effectif)>=" & Me.Ef_mini & ") AND ((REPertoire.REP_Effectif)<=" & Me.Ef_Maxi & ")" & _
" AND ((REPertoire.REP_Actif)=True) AND ((REPertoire.REP_Client)=True)" & _
" AND ((IIf(IsNull(REPertoire.REP_Datecrea)=True,'" & Me.Date_mini & "',REPertoire.REP_Datecrea))>=#" & Me.Date_mini & "# And (IIf(IsNull(REPertoire.REP_Datecrea)=True,'" & Me.Date_mini & "',REPertoire.REP_Datecrea))<=#" & Me.Date_maxi & "#)"
'Conditions "type de relance"
Select Case Me.S_Relance
Case 1
SQl = SQl & " AND ((REPertoire.REP_Relance_Fax)=False) AND ((Verif_Numero(REPertoire.REP_Fax))=True)"
Case 2
SQl = SQl & " AND ((REPertoire.REP_Relance_Mail)=False) AND ((Verif_Numero(REPertoire.REP_Mail))=True)"
Case 3
SQl = SQl & " AND ((REPertoire.REP_Relance_Tel)=False) AND ((Verif_Numero(REPertoire.REP_Tel1))=True)"
Case 4
SQl = SQl & " AND ((REPertoire.REP_Relance_Courrier)=False) AND ((Verif_Numero(REPertoire.REP_Adres))=True)"
End Select
'Txt_Var = Choose(Me.S_Relance, "REP_Relance_Fax", "REP_Relance_Mail", "REP_Relance_Tel", "REP_Relance_Courrier")
'SQl = SQl & " AND ((REPertoire." & Txt_Var & ")=False)"
'Txt_Var = Choose(Me.S_Relance, "REP_Fax", "REP_Mail", "REP_Tel1", "REP_Adres")
'SQl = SQl & " AND ((REPertoire." & Txt_Var & ") Is Not Null)"
'((Verif_Numero([REP_Fax]))=True)
'Conditions "Options"
If Me.CAPEB = -1 Then SQl = SQl & " AND ((REPertoire.REP_Capeb)=True)"
If Me.Email = -1 Then SQl = SQl & " AND ((REPertoire.REP_Mail) Is Null)"
If Me.Fax = -1 Then SQl = SQl & " AND ((REPertoire.REP_Fax) IS null)"
'Fin SQL de sélection
SQl = SQl & ");"
DoCmd.SetWarnings False 'désactive les messages d'info auto
DoCmd.RunSQL SQl
DoCmd.SetWarnings True 'active les messages d'info auto |
Partager