Dans un formulaire, j'ai une combolist et je veux qu'en choisissant un élément de la liste,
une requête se crée automatiquement avec pour nom le nom de l'élément de la liste conacténé
avec "requête". Si par exemple je choisis "Auto" dans la liste, je veux qu'il me crée une requête
qui s'appelle "Autorequête". Et cette requête contient un critère qui dépend de l'élement choisi dans
la liste.
Quand je teste mon code, il me renvoie comme erreur: Erreur d'execution 3125.
Voici mon code:
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 Private Sub RequeteGroupe(ByVal str As String) Dim SQL As String Dim QR As Recordset Dim QD As QueryDef Dim FLD As Field Dim Texte As String Dim Nom As String Nom = str & "requete" SQL = "SELECT tblGroupes.Groupe, tblTiers.Tiers, tblTransactions.Nominal " SQL = SQL & "FROM (tblGroupes INNER JOIN tblTiers ON tblGroupes.GroupeID = tblTiers.GroupeID) INNER JOIN tblTransactions " SQL = SQL & "ON tblTiers.TiersID = tblTransactions.TiersID WHERE (((tblGroupes.Groupe)=" & str & "));""" Set QD = Application.CurrentDb.CreateQueryDef(Nom, SQL) Set QR = Application.CurrentDb.OpenRecordset(QD.Name, dbOpenDynaset) 'Je ne sais pas si cette partie sert vraiment ??? QR.MoveFirst Do While QR.EOF = False Texte = "" For Each FLD In QR.Fields Text = Text & FLD.Value & vbTab Next FLD Debug.Print Texte QR.MoveNext Loop QR.Close Set QR = Nothing Set FLD = Nothing End Sub Private Sub Modifiable1_Change() Call RequeteGroupe(Modifiable1.Text) End Sub
Partager