Discussion :

[pancratee]

Bonjour à tous,

J'ai créé un formulaire qui importe des données dans plusieurs tables tampons.

Dans ce même formulaire j'aimerai créer une liste déroulante qui pointe vers plusieurs requête de mise à jour des mes tables (les requêtes sont déjà créées).

Et donc je n'arrive pas à afficher la liste des mes requêtes de MAJ dans ma liste et ensuite j'aimerai pouvoir les exécuter.

Est-ce possible ???

Merci pour votre aide.

[nico84]

Bonjour,

La liste des requêtes est dans CurrentDb.QueryDefs
Il faudrait à l'ouverture de ton formulaire la copier dans une table temporaire :

Code :

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

1
2
3
4
5
6
Dim qry As DAO.QueryDef
docmd.runsql "delete from rq_tmp"
For Each qry In CurrentDb.QueryDefs
  'si la requête n'est pas sytème (commence par ~)
  If Left(qry.Name, 1) <> "~" Then docmd.runsql "insert into rq_tmp nom values '" & qry.name & "'"
Next qry

Puis prendre rq_tmp comme source de ta liste déroulante ChoixRequete

Lorsque l'utilisateur fait son choix la requête s'exécute par l'instruction :
CurrentDb.QueryDefs(ChoixRequete).Execute

[pancratee]

Bonjour Nico84 mercu pour ta réponse.

J'ai testé cela mais j'ai surement une erreur :

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
Private Sub Form_Open(Cancel As Integer)
 
Dim strSQL As String
Dim qry As DAO.QueryDef
Dim sql As String
 
strSQL = "delete from rq_tmp"
DoCmd.RunSQL strSQL
 
For Each qry In CurrentDb.QueryDefs
  'si la requête n'est pas sytème (commence par ~)
  If Left(qry.Name, 1) <> "~" Then
  sql = "insert into [rq_tmp](nomvalues)" & qry.Name & "'"
  DoCmd.RunSQL sql
  End If
Next qry
 
End Sub

J'ai donc créé une table rq_tmp avec comme champ "nomvalues"

le déboggeur ne m'indique pas d'erreur dans mon code mais ma liste ne m'affiche rien et ma table est vide...

en ce qui concerne l'execution des requêtes, je n'ai pas très bien compris cela :

CurrentDb.QueryDefs(ChoixRequete).Execute

Merci pour ton aide.

[Jean-Philippe André]

salut,
dans ta requête d'insertion, il faut apporter une petite correction :

Code :

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

sql = "insert into [rq_tmp](nomvalues) values ('" & qry.Name & "')"

[nico84]

"insert into [rq_tmp](nomvalues)" & qry.Name & "'"

Dans ma requête, [nom] était le nom du champ et VALUE le mot clé SQL qui suit INSERT INTO !

en ce qui concerne l'execution des requêtes, je n'ai pas très bien compris cela :
CurrentDb.QueryDefs(ChoixRequete).Execute

Cette instruction est à placer dans ChoixRequete_afterupdate pour exécuter la requête

[Tofalu]

Une autre piste sans passer par une table temporaire :

Dans un nouveau module :

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
Option Explicit
Private tabRqt() As String
Function listrqt(fld As Control, id As Variant, _
    row As Variant, col As Variant, code As Variant) _
     As Variant
    Dim intOffset As Integer
    Dim oDb As DAO.Database
    Set oDb = CurrentDb
    Select Case code
        Case acLBInitialize
            utilListeRequeteMAJ
            listrqt = True
        Case acLBOpen
            listrqt = Timer
        Case acLBGetRowCount
            listrqt = UBound(tabRqt) + 1
            MsgBox "i"
        Case acLBGetColumnCount
            listrqt = 1
        Case acLBGetColumnWidth
            listrqt = -1
        Case acLBGetValue
          listrqt = tabRqt(row)
    End Select
End Function
 
Sub utilListeRequeteMAJ()
Dim oDb As DAO.Database
Dim oQdf As DAO.QueryDef
Dim t() As String
Dim i As Integer
Set oDb = CurrentDb
For Each oQdf In oDb.QueryDefs
  If InStr(1, oQdf.SQL, "UPDATE") Then
 
    ReDim Preserve t(i)
    t(i) = oQdf.Name
    i = i + 1
 
  End If
Next oQdf
tabRqt = t
End Sub

Puis dans la zone de liste, définir la prioriété Origine source (RowSourceType) à :

listRqt