Problème création formulaire Multi critère Access

Version imprimable

Bonjour , j'ai créé un formulaire multicritère Access !

Au début avec un critère cela marché mais maintenant avec deux critères rien ne se passe , quelqu’un aurait une idée ? merci

--------------------------------------------------------------------------

Code:

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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
Option Compare Database
 
Private Sub cbo_table_Click()
 
Me.cbo_champ.RowSource = Me.cbo_table.Value
    Me.cbo_champ.Requery
 
End Sub
 
 
Private Sub cmd_recherche_Click()
Dim strTable As String, strField As String, strField1 As String, strCriteria As String, strCriteria1 As String, strSql As String
Dim Criter As Variant
 
    strTable = Me.cbo_table         ' recupère le nom de la table
    strField = Me.cbo_champ         ' recupère le nom du champ
    strField1 = Me.cbo_champ1       ' recupère le nom du champ1
    ' compose le critere de recherche
 
    strCriteria = strTable & "." & strField & " Like """ & Me.txt_critere & """"
    strCriteria1 = strTable & "." & strField1 & " Like """ & Me.txt_critere1 & """"
 
    ' construit la requête sql
    strSql = "SELECT DISTINCTROW " & strTable & ".*"
    strSql = strSql & " FROM " & strTable
    strSql = strSql & " WHERE ((" & strCriteria & ") And (" & strCriteria1 & "));"
 
 
    Me.lst_resultat.RowSource = strSql  ' affecte sql a lst_Resultat
    Me.lst_resultat.Requery             ' recalcule la liste
 
End Sub
 
 
Function lf_GetTypeField(lfNameTbl As String, lfNameFld As String)
 
' Renvoie le numéro du type du champ
'lfNameTbl = nom de la table
'lfNameFld = nom du champ
 
    Dim dbs As Database             ' Objet de la base
    Dim tbl As TableDef             ' Objet de définition de table
 
    Set dbs = CurrentDb             ' ouvre la base courante
    Set tbl = dbs.TableDefs(lfNameTbl)  ' ouvre la définition table
 
    lf_GetTypeField = tbl.Fields(lfNameFld).Type  ' renvoie le type de champ
 
    Set tbl = Nothing               ' libération des objets
    Set dbs = Nothing
 
End Function

--------------------------------------------------------------------------

27/02/2012, 11h03
Chrysostome

Rep: Problème création formulaire Multi critère Access

Pour une réponse rapide, à essayer:

Dans:

Code:

strSql = strSql & " WHERE ((" & strCriteria & ") And (" & strCriteria1 & "));"

enlève les parenthèses, comme ça:

Code:

strSql = strSql & " WHERE (" & strCriteria & ") And (" & strCriteria1 & ");"
27/02/2012, 11h07
kennygthebest

Non :S

Merci mais cela ne marche pas :(
27/02/2012, 11h31
Chrysostome

Rep: Problème création formulaire Multi critère Access

Excuse moi je n'avais pas tout lu.
La condition WHERE demande la forme:

Citation:

WHERE (Table.Champs) Like 'a*' AND (Table.Champs) = " & Me.Control

Le plus simple est d'aller dans Requête et de la composer, puis de la recopier, avec des ' à la place de " à l'intérieur de VBA. Je te conseille de moins découper ta requête sous VBA. C'est plus lisible.

Citation:

Me.RecordSource = "SELECT Table.* FROM Table WHERE (Table.Champs) Like 'a*' AND (Table.Champs1) = " & Me.Control
27/02/2012, 11h37
kennygthebest

Merci beaucoup , je débute en SQL j'ai encore un peu de mal ! j'ai dut mal a faire le rapprochement entre ma requête et la tienne ! :s
27/02/2012, 12h02
Chrysostome

Désolé, je n'ai pas trop de temps. Apprends en passant par l'éditeur de Requête. Inspire-toi. Tu vas dans l'éditeur tu appuis sur "+" dans la barre de tâches, tu choisis une table, n'importe laquelle, tu double-clic sur "*", et miracle, ça s'affiche. Dans la case à côté, tu cliques sur la liste déroulante, tu choisis un champs, par ex. NuméroClient, et dans la ligne Critères tu mets 1 afin de choisir le Numéro 1. Si c'est du texte, il faut mettre Comme "A*", pour les Noms commençant par A.
Puis tu vas voir dans l'éditeur SQL, càd Affichage, puis Mode SQL, tu cliques et encore un miracle, le SQL est formaté. À toi de t'en inspirer.
Rien ne remplacera le temps que tu mettras pour comprendre le fonctionnement. Bon courage.
27/02/2012, 12h55
kennygthebest

Citation:

Envoyé par Chrysostome

Excuse moi je n'avais pas tout lu.
La condition WHERE demande la forme:

Le plus simple est d'aller dans Requête et de la composer, puis de la recopier, avec des ' à la place de " à l'intérieur de VBA. Je te conseille de moins découper ta requête sous VBA. C'est plus lisible.

Ducoup ce serai quelque chose comme ça ?

Code:

Me.RecordSource = "SELECT strTable.* FROM strTable WHERE (strTable.strField) Like 'a*' AND (strTable.strField1) = " & Me.Control
27/02/2012, 18h15
Chrysostome

Est-ce que ça marche?

Est-ce que ça marche?
Ce serait sympa de le dire! Oui, ce que tu affiches est fonctionnel!
27/02/2012, 18h32
kennygthebest

Non non ;( cela ne marche pas :s dsl

Le débugger bug à " me.control " :s une idée ? :s
01/03/2012, 06h51
loufab

Bonjour,

"control" existe dans me. ?
Il me semblait que ton code faisait référence à des controles nommés txt_critere ?

Cordialement,
01/03/2012, 09h45
kennygthebest

Me.control

Mon code serai donc :

Code:

Me.RecordSource = "SELECT strTable.* FROM strTable WHERE (strTable.strField) Like 'a*' AND (strTable.strField1) = " & Me.txt_critere

?

Car j'ai une erreur : 2580
La source d'enregistrement : "

Code:

Me.RecordSource = "SELECT strTable.* FROM strTable WHERE (strTable.strField) AND (strTable.strField1) Like 'a*'=" & Me.txt_critere = 28/10/2012

n'existe pas !

Ma requete ne prends pas en compte le deuxième champ ou j'ai rentré quelque chose , il se focalise que sur le premier champ .

Une idée :?

Merci à tous ceux qui prennent le tps pour les autres !
01/03/2012, 13h02
Chrysostome

Encore un essai!
Mon code serait donc :

Code:

Me.RecordSource = "SELECT strTable.* FROM strTable WHERE (strTable.strField) Like 'a*' AND (strTable.strField1) = " & Me.txt_critere

Pourquoi "me."?

Essaye dans un premier temps:

Code:

"SELECT strTable.* FROM strTable WHERE (strTable.strField) Like 'a*'

Je suis sur que ça va marcher si il y a une réponse possible qui commence par "a".

Puis si le nom de "Ali" existe essaye

Code:

"SELECT strTable.* FROM strTable WHERE (strTable.strField) = " & 'Ali'

Après:
Code:

1 2 3 4 Dim txt_critere as String txt_critere = "Ali" "SELECT strTable.* FROM strTable WHERE (strTable.strField) = " & txt_critere
C'est vraiment pas compliqué!

PS.: Bon courage on est tous passé par là!

Pas du tout d'accord avec toi chrysostome !

Cette ligne toute seule ne veux rien dire, d'ailleurs elle apparaitra en rouge dans le code.

Code:

"SELECT strTable.* FROM strTable WHERE (strTable.strField) = " & txt_critere

De plus strTable et strField ne seront pas interprété par SQL puisque ce sont des variables VBA.

Ce qu'il faut écrire c'est ceci :

Code:

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
Private Sub cmd_recherche_Click()
Dim strTable As String, strField As String, strField1 As String, strCriteria As String, strCriteria1 As String, strSql As String
Dim Criter As Variant
 
    strTable = "[" & Me.cbo_table & "]"         ' recupère le nom de la table
    strField = "[" & Me.cbo_champ & "]"          ' recupère le nom du champ
    strField1 = "[" & Me.cbo_champ1  & "]"       ' recupère le nom du champ1
    ' compose le critere de recherche
    if not isnull(Me.cbo_champ) and not isnull(Me.txt_critere) then
        strCriteria = strTable  & "." & strField & " Like """ & Me.txt_critere & """"
    endif
    if  not isnull(Me.cbo_champ1) and not isnull(Me.txt_critere1) then
         strCriteria1 = strTable & "." & strField1 & " Like """ & Me.txt_critere1 & """"
     endif
 
    ' construit la requête sql
    strSql = "SELECT DISTINCTROW " & strTable & ".*"
    strSql = strSql & " FROM " & strTable
    strSql = strSql & " WHERE " & strCriteria & " And " & strCriteria1 & ";"
 
 
    Me.lst_resultat.RowSource = strSql  ' affecte sql a lst_Resultat
 
 totalement inutile !
    'Me.lst_resultat.Requery             ' recalcule la liste
 
End Sub

Il y a un tuto sur le sujet d'ailleurs. à lire et relire !

Cordialement,