Discussion :

[garsflo]

Bonjour,
je souhaite changer ma requête vide nommé "qryChoixMultiple" en fonction d'une instruction SQL (différente selon les choix de l'utilisateur).
Je ne suis pas expert, et donc à l'aide d'un bouquin "access et VBA 2000" j'ai écrit deux fonctions, l'une pour créer la requête et l'autre pour la modifier.

1er fonction :

Code :

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

1
2
3
4
5
6
7
Public Function CréerQueryDef(strSQL As String) As Boolean
Dim qdf = CurrentDB.CreateQueryDef("qryChoixMultiple")
qdf.SQL = strSQL
qdf.Close
RefreshDataWindow
CréerQueryDef = True
End Function

2ème fonction :

Code :

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

1
2
3
4
5
6
7
8
Public Function ChangeQueryDef(strQuery As String, strSQL As String) As Boolean
Dim qdf As QueryDef
Set qdf = CurrentDB.QueryDefs(strQuery)
qdf.SQL = strSQL
qdf.Close
RefreshDataWindow
ChangeQueryDef = True
End Function

j'ai testé les deux fonctions dans la fenêtre déboguage et ca marche bien (vrai retourné)
Dans mon formulaire (choix des critères) j'ai un bouton. Sur click j'ai écrit l'instruction SQL qui se construit en fonction des choix de l'utilisateur pour avoir au finale l'instruction appropriée contenu dans la variable strSQL. La difficultée pour moi est de transférer cette instruction dans ma requête "qryChoixMultiple" à l'aide de la fonction "ChangeQueryDef".
J'ai don écrit à la suite de ma construction strSQL :

Code :

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

ChangeQueryDef("qryChoixMultiple", strSQL)

apparement c'est pas la bonne synthaxe, ou peut etre n'est ce pas la bonne voie? un détail qui à peut être son imprtance, je travaille sur access 97...
Merci à tous pour votre aide

[samuelsiffert]

Bonjour,

Voici le code d'un formulaire qui contient un bouton.
La base contient 2 tables (table1 et table 2)
Au chargement du formulaire la requête est créée.
Au clic sur le bouton la requête est modifiée.

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
Private Sub Commande0_Click()
 
   Call ChangeQueryDef("qryChoixMultiple", "select * from table2")
 
End Sub
 
Private Sub Form_Load()
 
    Call CréerQueryDef("select * from table1")
 
End Sub
 
Public Function CréerQueryDef(strSQL As String) As Boolean
    Dim qdf As QueryDef
 
    Set qdf = CurrentDb.CreateQueryDef("qryChoixMultiple")
    qdf.SQL = strSQL
    qdf.Close
    CréerQueryDef = True
 
End Function
 
Public Function ChangeQueryDef(strQuery As String, strSQL As String) As Boolean
 
    Dim qdf As QueryDef
    Set qdf = CurrentDb.QueryDefs(strQuery)
    qdf.SQL = strSQL
    qdf.Close
    ChangeQueryDef = True
 
End Function

@+

Sam

[garsflo]

merci sam pour ton coup de main, je vais tester tout ca, ca devrait se débloquer je pense...
@+

[garsflo]

ca marche impeccable, j'étais vraiment pas loin, je vais apprendre à pas me décourager!!! merci encore, bonne journée

[samuelsiffert]

de rien, ça fait toujours plaisir de donner un coup de main !


Merci de positionner votre discussion comme résolue si c'est le cas.

@+

Sam