req1 = req1 & " Where Num_client=""" & xfiltre4 & """"
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionIf Form_Général.checkan Then xfiltre1 = Form_Général.listan.value Else xfiltre1 = "" End IfIf Form_Général.checkmois Then xfiltre2 = Form_Général.listmois.value Else xfiltre2 = "" End If If Form_Général.checkresp Then xfiltre3 = Form_Général.listresp.value Else xfiltre3 = "" End If If Form_Général.checkcli Then xfiltre4 = Form_Général.txtcli.value Else xfiltre4 = "" End If If Form_Général.checkplan Then xfiltre5 = Form_Général.txtplan.value Else xfiltre5 = "" End If If Form_Général.checkactiv Then xfiltre6 = Form_Général.txtactiv.value Else xfiltre6 = "" End If If Form_Général.checkra Then xfiltre7 = Form_Général.txtra.value Else xfiltre7 = "" End If req1 = "SELECT * FROM [stock kam+]" If xfiltre1 <> "" Or xfiltre2 <> "" Or xfiltre3 <> "" Or xfiltre4 <> "" Or xfiltre5 <> "" Or xfiltre6 <> "" Or xfiltre7 <> "" Then If xfiltre1 <> "" Then req1 = req1 & " WHERE Année=" & xfiltre1 If xfiltre2 <> "" Then _ req1 = req1 & " And mid(Date_pass_exe,4,2)=" & xfiltre2 If xfiltre3 <> "" Then _ req1 = req1 & " And Resp_plan=" & xfiltre3 If xfiltre4 <> "" Then _ req1 = req1 & " And Num_client=" & xfiltre4 If xfiltre5 <> "" Then _ req1 = req1 & " And Num_plan=" & xfiltre5 If xfiltre6 <> "" Then _ req1 = req1 & " And Num_Activite=" & xfiltre6 If xfiltre7 <> "" Then _ req1 = req1 & " And Num_RA=" & xfiltre7 Else If xfiltre2 <> "" Then req1 = req1 & " Where mid(Date_pass_exe,4,2)=" & xfiltre2 If xfiltre3 <> "" Then _ req1 = req1 & " And Resp_plan=" & xfiltre3 If xfiltre4 <> "" Then _ req1 = req1 & " And Num_client=" & xfiltre4 If xfiltre5 <> "" Then _ req1 = req1 & " And Num_plan=" & xfiltre5 If xfiltre6 <> "" Then _ req1 = req1 & " And Num_Activite=" & xfiltre6 If xfiltre7 <> "" Then _ req1 = req1 & " And Num_RA=" & xfiltre7 Else If xfiltre3 <> "" Then req1 = req1 & " Where Resp_plan=" & xfiltre3 If xfiltre4 <> "" Then _ req1 = req1 & " And Num_client=" & xfiltre4 If xfiltre5 <> "" Then _ req1 = req1 & " And Num_plan=" & xfiltre5 If xfiltre6 <> "" Then _ req1 = req1 & " And Num_Activite=" & xfiltre6 If xfiltre7 <> "" Then _ req1 = req1 & " And Num_RA=" & xfiltre7 Else If xfiltre4 <> "" Then req1 = req1 & " Where Num_client=" & xfiltre4 If xfiltre5 <> "" Then _ req1 = req1 & " And Num_plan=" & xfiltre5 If xfiltre6 <> "" Then _ req1 = req1 & " And Num_Activite=" & xfiltre6 If xfiltre7 <> "" Then _ req1 = req1 & " And Num_RA=" & xfiltre7 Else If xfiltre5 <> "" Then req1 = req1 & " Where Num_plan=" & xfiltre5 If xfiltre6 <> "" Then _ req1 = req1 & " And Num_Activite=" & xfiltre6 If xfiltre7 <> "" Then _ req1 = req1 & " And Num_RA=" & xfiltre7 Else If xfiltre6 <> "" Then req1 = req1 & " Where Num_Activite=" & xfiltre6 If xfiltre7 <> "" Then _ req1 = req1 & " And Num_RA=" & xfiltre7 Else If xfiltre7 <> "" Then req1 = req1 & " Where Num_RA=" & xfiltre7 End If End If End If End If End If End If End If End If List1.RowSource = req1