Discussion :

[kennygthebest]

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 :

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
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

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

[Chrysostome]

Pour une réponse rapide, à essayer:


Dans:

Code :

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

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

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

Code :

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

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

[kennygthebest]

Merci mais cela ne marche pas

[Chrysostome]

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

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.

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

[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

[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.

[kennygthebest]

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 :

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

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

[Chrysostome]

Est-ce que ça marche?
Ce serait sympa de le dire! Oui, ce que tu affiches est fonctionnel!

[kennygthebest]

Non non ;( cela ne marche pas :s dsl

Le débugger bug à " me.control " :s une idée ? :s

[loufab]

Bonjour,

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

Cordialement,

[kennygthebest]

Mon code serai donc :

Code :

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

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 :

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

 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 !

[Chrysostome]

Mon code serait donc :

Code :

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

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 :

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

"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 :

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

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

Après:

Code :

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

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à!

[loufab]

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 :

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

"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 :

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
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,