Discussion :

[rider57]

Bonjour,
Je vais poser un problème qui va paraître enfantin pour certain mais cela fait plusieurs jours que je suis face à se problème et le désespoir m'envahit.
Voilà je programme une application sous Access qui permettra d'effectuer une recherche multicritère (j'ai déjà lu les différents tutoriaux sur ces recherches).
La recherche selon le nom fonctionne mais lorsque je dois effectuer une recherche entre 2 valeurs contenues dans des text box rien ne va plus.
Je joins mon bout de code qui doit être plein d'erreur encore :/.Merci d'avance à ceux qui m'aideornt et j'espère que je ne suis pas le seul à rencontrer ce problème et que ce sujet aidera beaucoup de gens

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
Public Sub rafraich_req()
Dim SQL As String
Dim SQLwhere As String
Dim ca_inf As String
Dim ca_sup As String
Dim eff_inf As String
Dim eff_sup As String
 
SQL = "SELECT [SOCIETE.nom_soc] as Nom,[ACTIVITE.intitule_APE] as Activité, [SOCIETE.num_tel_soc] as Téléphone, [SOCIETE.num_fax_soc] as Fax, [SOCIETE.mail_soc] as Mail, [SOCIETE.URL_site] as URL, [SOCIETE.no_siret] as No_SIRET, " & _
"[SOCIETE.effectif] as Effectif, [SOCIETE.ordre_soc] as Ordre, [SOCIETE.comment_soc] as Commentaires " & _
"FROM ((ACTIVITE INNER JOIN SOCIETE ON ACTIVITE.no_APE = SOCIETE.no_APE) " & _
"INNER JOIN DONNEES_COMPTABLES ON SOCIETE.id_societe = DONNEES_COMPTABLES.id_societe) " & _
"INNER JOIN (LOCALITE INNER JOIN LIEU ON LOCALITE.code_postale = LIEU.code_postale) ON SOCIETE.id_societe = LIEU.id_societe " & _
"Where SOCIETE!id_societe <> 0 "
 
'Si l'on coche la case Nom société alors on rajoute une condition à la clause WHERE'
If Form_F_crit_rech_soc.chk_nom_soc Then
'On ira requêter sur la table SOCIETE pour rechercher le nom_soc que l'on a mis dans la zone de texte correspondante'
    SQL = SQL & "AND [SOCIETE.nom_soc] like '*" & Me.txt_nom_soc & "*' "
End If
If Form_F_crit_rech_soc.chk_sec_act Then
'On ira requêter sur la table SOCIETE pour rechercher le nom_soc que l'on a mis dans la zone de texte correspondante'
    SQL = SQL & "AND [SOCIETE.no_APE] like '*" & Me.txt_sec_act & "*' "
End If
If Form_F_crit_rech_soc.chk_ca Then
'On affecte aux variables ca_inf et ca_sup les valeurs contenues respectivement dans les champs texte txt_ca_inf et txt_ca_sup'
    ca_inf = Me.txt_ca_inf.Value
    ca_sup = Me.txt_ca_sup.Value
'On ira requêter sur la table DONNEES_COMPTABLES pour rechercher les sociétés dont le chiffre d'affaire est compris entre les valeurs données dans les zones de texte correspondantes'
    SQL = SQL & "AND (([DONNEES_COMPTABLES.ca_soc]) Between #" & ca_inf & "# And #" & ca_sup & "#)"
End If

[rider57]

Voilà je donne la réponse qui était comme prévu fort simple >.<

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
If Form_F_crit_rech_soc.chk_eff Then
'On affecte aux variables eff_inf et eff_sup les valeurs contenues respectivement dans les champs texte eff_ca_inf et eff_ca_sup'
    eff_inf = Me.txt_eff_inf.Value
    eff_sup = Me.txt_eff_sup.Value
'On ira requêter sur la table SOCIETE pour rechercher les sociétés dont l'effectif est compris entre les valeurs données dans les zones de texte correspondantes'
   SQL = SQL & " AND [SOCIETE.effectif] Between " & eff_inf & " And " & eff_sup & ""
End If

Voilà comme quoi il ne faut pas chercher compliqué alors que c'est simple.Eh oui M. Microsoft il est pas bête