Private Sub RefreshQuery()
Dim SQL As String
Dim SQLWhere As String
SQL = "SELECT T_Consultant.ID_CONSULTANT, T_Consultant.NOM_CONSULTANT, T_ConsultantActivite.ID_CONSULTANT, T_ConsultantActivite.ID_ACTIVITE, R_RechConsultantSecteur1.ID_ACTIVITE, R_RechConsultantSecteur2.ID_ACTIVITE"
SQL = SQL & " FROM T_Consultant INNER JOIN (R_RechConsultantSecteur1 INNER JOIN (R_RechConsultantSecteur2 INNER JOIN T_ConsultantActivite ON R_RechConsultantSecteur2.ID_ACTIVITE = T_ConsultantActivite.ID_ACTIVITE) ON R_RechConsultantSecteur1.ID_ACTIVITE = T_ConsultantActivite.ID_ACTIVITE) ON T_Consultant.ID_CONSULTANT = T_ConsultantActivite.ID_CONSULTANT"
SQL = SQL & " Where T_Consultant.NOM_CONSULTANT like '*" & Me.lst_RechNom & "*' "
If Not Me.chk_secteur1 Then
SQL = SQL & " AND R_RechConsultantSecteur1.ID_ACTIVITE =" & Me.Lst_Secteur1
End If
If Not Me.chk_secteur2 Then
SQL = SQL & " AND R_RechConsultantSecteur2.ID_ACTIVITE = " & Me.Lst_Secteur2
End If
'SQLWhere = Trim(Right(SQL, Len(SQL) - InStr(SQL, "Where ") - Len("Where ") + 1))
SQL = SQL & ";"
'Me.lblStats.Caption = DCount("*", "T_CONSULTANT", SQLWhere) & " / " & DCount("*", "T_CONSULTANT")
Me.lstResults.RowSource = SQL
Me.lstResults.Requery
Partager