Discussion :

[bartimeus35]

Bonjour à tous,
J'ai du code qui ressemble à

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
    strqry = "SELECT * From VBA_R_get_DATA"
 
 
    Set db = CurrentDb
    Set rec = CurrentDb.OpenRecordset(strqry)
    If Not (rec.BOF And rec.EOF) Then
        rec.MoveLast
        rec.MoveFirst
 
        intCount = rec.RecordCount
            For intLoop = 1 To intCount
 
		VAL_1 = rec("VALUE1")
		VAL_2 = rec("VALUE2")
 
  'trautement divers 
 
                rec.MoveNext
            Next intLoop
    End If

Ma requête VBA_R_get_DATA est la suivante

Code :

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

1
2
3
SELECT *
FROM T_Applications
WHERE (((T_Applications.Nom_Court)=[appli]));

Quand j'exécute le requête seule, il me demande l'appli, c'est parfait.
Mais je voudrais pourvoir lui passer cette valeur en paramètre en VBA : je n'ai pas envie de devoir recopier la requête SQL dans le code VBA pour replacer le [appli] par "& value &" dans la chaine de caractères.
L'idée est que si on modifie la requête, on n' pas besoin de modifier le code.
Est ce possible ?
Si oui comment ?
Je sèche.
Merci de votre aide

[Jean-Philippe André]

Salut,

c'est une information disponible dans la
https://access.developpez.com/faq/?page=SQL#ReqParamVar

[deedolith]

Notes:
Avancer à la fin du recordset puis revenir au début, ne sert à rien, c'est même contre-productif et dégrade les performances.
Sur une requête retournant beaucoup de lignes, cela introduit un délais non négligeable.

Quels sont tes objectfs ?
Savoir si le recordset contient des enregistrement ?
Dans ce cas, les propriétés BOF et EOF sont à Faux.

Connaitre le nombre d'enregistrements retournés ?
Il vaut mieux utiliser DCount, ou encapsuler ta requête dans une requête "SELECT COUNT".
Tu profiteras ainsi de la toute puissance du moteur SQL.

Exemple:

Code :

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

1
2
Dim SQL As String
SQL = "SELECT COUNT(*)  FROM (SELECT * From VBA_R_get_DATA);"

[bartimeus35]

Bonjour,
C’était un exemple, mon code réel est plutot

Code :

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

1
2
3
SELECT (T_Chiffres_CA.CA_du_mois) AS [VALUE]
FROM T_Chiffres_CA
WHERE (((T_Chiffres_CA.fk_periode_engagement)=[PERIODE]));

J'ai essayé d’adapter mon code en faisant

• p_requete est le nom de la requete ci-dessus
• p_periode la valeur à mettre dans PERIODE

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
    Set qdf = CurrentDb.QueryDefs(p_requete)
      With qdf
         .Parameters("PERIODE") = p_periode
         .Execute
      End With
      ' code qui ne marche surement plus ci-dessous ?
    Set liste_items = CurrentDb.OpenRecordset(p_requete)
    If (liste_items.RecordCount() = 0) Then
       'la table est vide
       Exit Function
    End If
 
    With liste_items
       Do Until .EOF
 
             get_value_requete = liste_items("VALUE")
             Exit Function
 
          .MoveNext
       Loop
    End With

J'ai donc 2 questions :
à la ligne Execute, il me sort

=> pourquoi ?
=>Comment écrire la ligne

Code :

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

liste_items = CurrentDb.OpenRecordset(p_requete)

avec la requête qui prend en paramètre la période p_periode pour lire toutes les valeurs ....

Mille mercis

@+

[hyperion13]

Salut
p_requete est qry sélection d'où l'erreur 3065
sinon une piste ici voire ici

[Thumb down]

Bonjour,

Code Requête :

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

1
2
3
4
PARAMETERS PERIODE Text ( 255 );
SELECT (T_Chiffres_CA.CA_du_mois) AS [VALUE]
FROM T_Chiffres_CA
WHERE (((T_Chiffres_CA.fk_periode_engagement)=[PERIODE]));

Code :

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

1
2
3
4
5
6
7
     With CurrentDb.QueryDefs(p_requete)
        .Parameters("PERIODE") = p_periode
        With .OpenRecordset
             If Not .EOF Then get_value_requete = !Value
              .Close
        End With
    End With

[deedolith]

Ben oui, soyons un peut logique.

On ne peut exécuter qu'une requête qui altère la base de données (requête INSERT, UPDATE ou DELETE).
Pour le reste (requête SELECT), il faut ouvrir un recordset, les données ne vont pas apparaître par l'opération du Saint-Esprit.