transformer un algorithme en requete sql sous vba

Version imprimable

02/08/2007, 11h07
sdoango

transformer un algorithme en requete sql sous vba

salut tout le monde

voila j'ai probleme j'ai creer 3 requetes parametrés identiques avec 3 critere differents et je voudrais qu'en cliquant sur le bouton recherche il lance la bonne requete en tenant compte des critere.

avec un algo comme celui ci :

Si [formulaires]![recherche]![cboEmpGeo] n'est pas vide et
[formulaires]![recherche]![cboTheme] est vide
alors je lance la requete RechercheEmpGeo

Si [formulaires]![recherche]![cboEmpGeo] est vide et
[formulaires]![recherche]![cboTheme] n'est pas vide
alors je lance la requete RechercheTheme

Si [formulaires]![recherche]![cboEmpGeo] est n'est pas vide et
[formulaires]![recherche]![cboTheme] n'est pas vide
alors je lance la requete RechercheEmpGeo_Them

[formulaires]![recherche]![cboEmpGeo] et [formulaires]![recherche]![cboTheme] sont des champs a menu deroulant d'un formulaire recherche

que ce soit en code sous vba ou sql

savez vous comment je peut faire?:( :help:

HELP
Merci.
02/08/2007, 11h21
cafeine

Hello,

pense à regarder dans la section tutoriels :
http://cafeine.developpez.com/access...recherchemulti

probleme de code vba sql

j'ai trouvé un tuto assez sympa et j'ai essayer de modifier le code mais ca bloque et je ne sais pas pourquoi:(

Il s'agit de lancer une requete conditionelle selon les donner selectionner ou pas

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
 
Private Sub Rechercher_Click()
 
Dim strTable As String, strField As String, strCriteria As String, strSql As String
    Dim Criter As Variant
 
    strTable = Me.cboEmpriseGeo         ' recupère le nom de l'emprise
    strField = Me.cboTheme         ' recupère le theme
 
    ' compose le critere de recherche
    strCriteria = strTable & "." & strField & " Like """ & Me.txt_MotCle & """"
 
    ' construit la requête sql
    strSql = "SELECT" & (document.Titre, document.Auteur, document.Themes; document.[Emprise geographique], document.[Mots clés], document.Année, document.DISPONIBILITE )& ".*"
    strSql = strSql & " FROM " & Document
    strSql = strSql & " WHERE((" & ((Document.Themes) = [Formulaires]![Recherche]![cboTheme]) And ((Document.[Emprise geographique]) = [Formulaires]![Recherche]![cboEmpriseGeo]) & "));"
 
'WHERE (((document.Themes)=[Formulaires]![Recherche]![cboTheme]) AND ((document.[Emprise geographique])=[Formulaires]![Recherche]![cboEmpriseGeo]));
 
 
    Me.Lst_resultat.RowSource = strSql  ' affecte sql a lst_Resultat
    Me.Lst_resultat.Requery             ' recalcule la liste
 
End Sub

Hello !

Je ne suis vraiment pas un champion mais, voulant rester dans des codes que je comprends aisément, j'aurais tenté un truc comme ça :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Sub btnRecherche_Click()
Dim Critere1    As String
Dim Critere2    As String
Dim intCase     As Integer
 
    Critere1 = [Forms]![recherche]![cboEmpGeo]
    Critere2 = [Forms]![recherche]![cboTheme]
 
    If IsNull(Critere1) And Not IsNull(Critere2) Then intCase = 1
    If Not IsNull(Critere1) And IsNull(Critere2) Then intCase = 2
    If Not IsNull(Critere1) And Not IsNull(Critere2) Then intCase = 3
 
        Select Case intCase
        Case 1
            DoCmd.OpenQuery (requête_correspondant)
        Case 2
            DoCmd.OpenQuery (requête_correspondant)
        Case 3
            DoCmd.OpenQuery (requête_correspondant)
        End Select
 
End Sub

Tu peux bien sûr remplacer les DoCmd.OpenQuery par des DoCmd.runSql, cela diminue le nombre de requêtes...

Voilà, je sais ce n'est pas champion mais cela devrait marcher...:)