Problème SQLFermé

Question

Bonjour, 

J'ai une grosse base de données sur ACCESS que nous avons créer pour notre association. Je fais des mises à jour depuis plusieurs semaines et voilà que je bloque sur un SQL pour le formulaire de base. 

J'explique : 
- Quand on ouvre la base, on arrive sur un formulaire où l'on peut rechercher par NOM, PRENOM, RUBRIQUE, DOSSIER et ORGANISATION. Tout ces critères sont liés à ma table "identification" qui reprends tous les éléments dont on a besoin quand un nouveau membre ou autre s'inscrit dans notre association. Le critère RUBRIQUE est une liste de choix à plusieurs valeurs (RUBRIQUE.VALUE), je pense que c'est cela qui pose problème... Mais j'ai beau retourner le problème dans tout les sens j'ai toujours un message d'erreur. (je joins une photo de comment ça se présente pour aider : ).

Le but du formulaire est de pouvoir filtrer rapidement pour mes collègues sans passer par un listing ou autres. Il faut que ça reste très simple pour eux..

- Une procédure événementielle est donc liée à chaque bouton de recherche. Voici ma dernière SQL encodée : 
" Option Compare Database
Option Explicit

Private Sub boutoncompta_Click()

End Sub

Private Sub chkDossier_Click()

If Me.chkDossier Then
    Me.txtRechDossier.Visible = False
Else
    Me.txtRechDossier.Visible = True
End If
 
RefreshQuery

End Sub

Private Sub chkNom_Click()
 
If Me.chkNom Then
    Me.txtRechNom.Visible = False
Else
    Me.txtRechNom.Visible = True
End If
 
RefreshQuery
 
End Sub

Private Sub chkOrganisation_Click()

If Me.chkOrganisation Then
    Me.txtRechOrganisation.Visible = False
Else
    Me.txtRechOrganisation.Visible = True
End If
 
RefreshQuery

End Sub

Private Sub chkPrenom_Click()
 
If Me.chkPrenom Then
    Me.txtRechPrenom.Visible = False
Else
    Me.txtRechPrenom.Visible = True
End If
 
RefreshQuery
 
End Sub

Private Sub chkRubrique_Click()

If Me.chkRubrique Then
    Me.cmbRechRubrique.Visible = False
Else
    Me.cmbRechRubrique.Visible = True
End If
 
RefreshQuery
 
End Sub

Private Sub cmbRechRubrique_BeforeUpdate(Cancel As Integer)

RefreshQuery

End Sub

Private Sub chkRubrique_Click()

End Sub

Private Sub Form_Load()
 
Dim ctl As Control
 
For Each ctl In Me.Controls
    Select Case Left(ctl.Name, 3)
        Case "chk"
            ctl.Value = -1
 
        Case "lbl"
            ctl.Caption = "- * - * -"
 
        Case "txt"
            ctl.Visible = False
            ctl.Value = ""
                        
        Case "cmb"
            ctl.Visible = False
 
    End Select
Next ctl
  
Me.lstResults.RowSource = "SELECT N°, Nom, Prénom, Rubrique.value, Organisation, Dossier, Tel, Mail FROM [1 Identification] ORDER BY [1 Identification].Nom;"
Me.lstResults.Requery

End Sub

Private Sub RefreshQuery()
Dim SQL As String
Dim SQLWhere As String
 
SQL = "SELECT N°, Nom, Prénom, Rubrique.value, Organisation, Dossier, Tel, Mail FROM [1 Identification] Where [1 Identification]!N° > 0"
 
If Not Me.chkNom Then
    SQL = SQL & "And [1 Identification]!Nom like '*" & Me.txtRechNom & "*' "
 End If
If Not Me.chkPrenom Then
    SQL = SQL & "And [1 Identification]!Prénom like '*" & Me.txtRechPrenom & "*' "
 End If
If Not Me.chkOrganisation Then
    SQL = SQL & "And [1 Identification]!Organisation like '*" & Me.txtRechOrganisation & "*' "
 End If
If Not Me.chkDossier Then
    SQL = SQL & "And [1 Identification]!Dossier like '*" & Me.txtRechDossier & "*' "
 End If
If Not Me.chkRubrique Then
    SQL = SQL & "And [1 Identification]!Rubrique = '*" & Me.cmbRechRubrique & "*' "
 End If

 
SQLWhere = Trim(Right(SQL, Len(SQL) - InStr(SQL, "Where ") - Len("Where ") + 1))
 
SQL = SQL & ";"
 
Me.lblStats.Caption = DCount("*", "[1 Identification]", SQLWhere) & " / " & DCount("*", "[1 Identification]")
Me.lstResults.RowSource = SQL
Me.lstResults.Requery
 
End Sub

Private Sub lstResults_DblClick(Cancel As Integer)
 
DoCmd.OpenForm "Formulaire MEMBRES", acNormal, , "[N°] = " & Me.lstResults, , acDialog
 
End Sub

Private Sub txtRechDossier_BeforeUpdate(Cancel As Integer)

RefreshQuery

End Sub

Private Sub txtRechNom_BeforeUpdate(Cancel As Integer)

RefreshQuery

End Sub

Private Sub txtRechOrganisation_BeforeUpdate(Cancel As Integer)

RefreshQuery

End Sub

Private Sub txtRechPrenom_BeforeUpdate(Cancel As Integer)

RefreshQuery

End Sub"

J'espère que quelqu'un saura m'aider, ça fait 2 semaines que je cherche à résoudre ce problème et que je me tire les cheveux... ^^ 
Je sens que la réponse est sous mes yeux.. x)

Un grand merci par avance à qui saura m'aider !! :D

Configuration: Windows / Chrome 85.0.4183.83

yg_be · Answer

bonjour,
merci d'utiliser les balises de code, en précisant basic, quand tu partages du VBA: https://codes-sources.commentcamarche.net/faq/11288-les-balises-de-code

tu ne décris pas ton soucis.  as-tu un message d'erreur, ou un résultat inattendu?
as-tu testé à la main la requête SQL pour obtenir une requête qui fonctionne?
peut-être le soucis est-il ici:
SQL = SQL & "And [1 Identification]!Rubrique = '*" & Me.cmbRechRubrique & "*' "
comme tu n'utilises pas like, il n'y a pas lieu d'utiliser les *.
ce serait donc peut-être:
SQL = SQL & "And [1 Identification]!Rubrique = '" & Me.cmbRechRubrique & "' "
par ailleurs, je suis surpris de ton utilisation des points d'exclamations dans la requête SQL.  de plus, comme il n'y a qu'une table, il n'est pas utile d'en spécifier le nom.
donc je ferais:
SQL = SQL & " And Rubrique = '" & Me.cmbRechRubrique & "' "

yg_be · Answer

pour simplifier, et éviter des soucis si "Where" est présent dans un critère de recherche, au lieu de
SQL = "SELECT N°, Nom, Prénom, Rubrique.value, Organisation, Dossier, Tel, Mail FROM [1 Identification] Where [1 Identification]!N° > 0"

If Not Me.chkNom Then
SQL = SQL & "And [1 Identification]!Nom like '*" & Me.txtRechNom & "*' "
End If
If Not Me.chkPrenom Then
SQL = SQL & "And [1 Identification]!Prénom like '*" & Me.txtRechPrenom & "*' "
End If
If Not Me.chkOrganisation Then
SQL = SQL & "And [1 Identification]!Organisation like '*" & Me.txtRechOrganisation & "*' "
End If
If Not Me.chkDossier Then
SQL = SQL & "And [1 Identification]!Dossier like '*" & Me.txtRechDossier & "*' "
End If
If Not Me.chkRubrique Then
SQL = SQL & "And [1 Identification]!Rubrique = '*" & Me.cmbRechRubrique & "*' "
End If

SQLWhere = Trim(Right(SQL, Len(SQL) - InStr(SQL, "Where ") - Len("Where ") + 1))

SQL = SQL & ";"
je ferais ainsi:
SQL = "SELECT N°, Nom, Prénom, Rubrique.value, Organisation, Dossier, Tel, Mail FROM [1 Identification] "
SQLWhere = " true "
If Not Me.chkNom Then
    SQLWhere = SQLWhere & "And [1 Identification]!Nom like '*" & Me.txtRechNom & "*' "
End If
If Not Me.chkPrenom Then
    SQLWhere = SQLWhere & "And [1 Identification]!Prénom like '*" & Me.txtRechPrenom & "*' "
End If
If Not Me.chkOrganisation Then
    SQLWhere = SQLWhere & "And [1 Identification]!Organisation like '*" & Me.txtRechOrganisation & "*' "
End If
If Not Me.chkDossier Then
    SQLWhere = SQLWhere & "And [1 Identification]!Dossier like '*" & Me.txtRechDossier & "*' "
End If
If Not Me.chkRubrique Then
    SQLWhere = SQLWhere & "And [1 Identification]!Rubrique = '*" & Me.cmbRechRubrique & "*' "
End If
SQL = SQL & " where " & SQLWhere

RV71 · Answer

Bonjour,

j'ai une base où je filtre des listes de choix avec plusieurs valeurs possible, voici une partie du code si tu veux t'en inspirer.

Dim varI As Variant 'on  déclare une variable de type variant, donc peut être de n'importe quel type

Dim strFiltre As String 'on dit que le filtre global sera une chaine de caracteres alphanum

strFiltre = "" 'au départ, on dit que le filtre global ne contient rien, donc, on ne filtre rien

If Me.listetype.ItemsSelected.Count = 0 Then 'on regarde la liste de type, si on n'a pas sélectionné (=0)
    'on passe à la section suivante avec goto....
        GoTo section_statuts

Else 'sinon, cela veut dire qu'il  a au moins un élément de la liste sélectionné
    For Each varI In Me!listetype.ItemsSelected 'pour chaque élément sélectionné dans la liste -->
        If strFiltre_Type <> "" Then strFiltre_Type = strFiltre_Type & " OR " 'si ce n'est pas le premier élément du filtre, on rajoute l'élément sélectionné avec un "OR" pour la suite de la boucle
            strFiltre_Type = strFiltre_Type & "([Lookup_type].[type]=" & "'" & Me!listetype.ItemData(varI) & "'" & ")"
        
    Next varI  'on boucle chaque élément de la liste

strFiltre = strFiltre & "(" & strFiltre_Type & ")"

End If


A+

RV71 · Answer

Bonjour,
oui c'est une partie du code d'un formulaire de recherche multi critères

J'ai mis ici le code qui filtre sur une zone de liste à choix multiples, il y en a une dizaine dans le form.

strfiltre est donc au final la clause WHERE et est incrémenté par les différentes zones de liste.
Pour récupérer les valeurs sélectionnées dans la zone de liste "Listetype" (son nom dans mon formulaire) je boucle sur la propriété .ItemData de cette zone.

A+

yg_be · Answer

cela fonctionne ainsi:
SQLWhere = SQLWhere & "And [1 Identification].Rubrique.Value = '" & Me.cmbRechRubrique & "' "
j'ai supprimé le test sur Me.chkRubrique, je ne vois pas trop à quoi il sert.
j'ai aussi changé la requête utilisée pour peupler la liste des rubriques:
SELECT distinct [1 Identification].Rubrique.Value FROM [1 Identification] ;
il y a peut-être moyen de faire autrement et mieux.
difficile de déterminer cela, j'ai l'impression qu'il y a beaucoup de manquements et d'hésitations dans la base.

Problème SQL

5 réponses

Discussions similaires

Newsletters