Discussion :

[GIldas1st]

Bonjour chers Amis,
Désolé de vous déranger malgré vos multiples occupations. C'est avec un grand plaisir que je suis les discussions sur le Forum et ceci m'aide beaucoup dans mes tâches quotidiennes. En effet, j'ai un peu plus de 100 requêtes sql que j'ai consigné dans une table tbl_req avec les champs suivants:

id=identifiant de la requêtes
des= description de la requête
sql= le code sql de la requête
act=Activer
Ma question est de savoir si c'est possible à partir de cette table d'exécuter les codes sql selon un format bien précis (ligne par ligne) quand act est coché.
Merci par avance

[ClaudeLELOUP]

Bonjour,

Veux-tu faire ceci :

- 1^re étape : mettre ta table à jour en cochant les requêtes à exécuter ;
- 2^e étape : cliquer un bouton pour déclencher l'exécution du sql contenu dans les enregistrements pour lesquels la case est cochée ?

Bizarre comme manière de faire... mais c'est évidemment faisable en VBA.

[GIldas1st]

c'est exactement ce que je veux faire

[ClaudeLELOUP]

Je suppose que tes requêtes sont de type : Suppression ou Ajout ou Modification.
Donc pas de requête de type sélection.
Tu dois ajouter la référence :

Code associé au bouton qui déclenche l’exécution :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Option Compare Database
Option Explicit
 
 
Private Sub BtExecuter_Click()
  Dim oRst As DAO.Recordset
  Set oRst = CurrentDb.OpenRecordset("SELECT sql FROM LaTable WHERE act =Yes;", dbOpenDynaset)
  Do While Not oRst.EOF
    DoCmd.RunSQL oRst("sql")
    oRst.movenext
  Loop
End Sub

[GIldas1st]

Merci pour la réponse malheureusement, je n'exécute que des requêtes selection.

[ClaudeLELOUP]

Dans ce cas, je n'ai pas de solution !

Une solution serait envisageable si :

- les requêtes en question étaient enregistrées,

- que la table contienne le nom des requêtes (pas le SQL).

Le code devient alors :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Option Compare Database
Option Explicit
 
 
Private Sub BtExecuter_Click()
  Dim oRst As DAO.Recordset
  Set oRst = CurrentDb.OpenRecordset("SELECT NomRequete FROM LaTable WHERE act =Yes;", dbOpenDynaset)
  DoCmd.SetWarnings False
  Do While Not oRst.EOF
    DoCmd.OpenQuery oRst("NomRequete")
    oRst.movenext
  Loop
  DoCmd.SetWarnings True
End Sub

[GIldas1st]

merci beaucoup, je constate qu'il est pas possible d’exécuter des codes sql sélection de cette manière.
J'avais écris le code ci dessous. mais il ressort une erreur de type 2342, une action exécutersql nécessite un argument consistant en une instruction sql

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
Function ParcourirPourExecution()
    Dim Rs As Recordset: Dim EstCoche As Boolean
    Dim rSQL As Variant
 
 
    rSQL = "SELECT * FROM ADM_REQ WHERE REQ_SQL IS NOT NULL"
    Set Rs = CurrentDb.OpenRecordset(rSQL)
 
    DoCmd.SetWarnings False
 
    Do While Not Rs.EOF
        EstCoche = Rs!REQ_ACT: rSQL = Rs!REQ_SQL
 
        If EstCoche Then DoCmd.RunSQL rSQL
        Rs.MoveNext
    Loop
 
    DoCmd.SetWarnings True
    Rs.Close: Set Rs = Nothing
End Function

[ClaudeLELOUP]

Qu'est-ce qui t'empêche d'enregistrer les requêtes, quitte à cacher ces objets ?

[GIldas1st]

je pense que je vais explorer cette option pour aller plus vite.
Merci beaucoup pour Claude pour ta disponibilité