Sujet Précédent Sujet Suivant

SQL Between et les formulaires VBA

cs_rider57 Messages postés 2 Date d'inscription mercredi 23 mars 2005 Statut Membre Dernière intervention 29 mai 2006 - 29 mai 2006 à 10:00
cs_rider57 Messages postés 2 Date d'inscription mercredi 23 mars 2005 Statut Membre Dernière intervention 29 mai 2006 - 29 mai 2006 à 11:01
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 :)

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

1 réponse

Réponse 1 / 1
cs_rider57 Messages postés 2 Date d'inscription mercredi 23 mars 2005 Statut Membre Dernière intervention 29 mai 2006
29 mai 2006 à 11:01
Voilà j'ai trouvé. Comme prévu c'était très simple évidemment j'ai cherché compliqué pour rien donc je donne la réponse parce que je suis un mec réglo :-p.
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

Heureusement qu'il y a pas mon nom de famille parce que sinon il aurait été sali ^^
0
Rejoignez-nous