Discussion :

[TeoSitran]

Bonjour à tous

Je souhaite récupérer les valeurs du résultat d'une requête R2 qui est elle même basée sur une requête R1
Si j'utilise la fonction Dlookup je récupére la valeur du champ C1 (170101) du premier enregistrement, pas de probléme !
par contre je n'arrive pas à récupérer la valeur du même champ C1 pour le deuxiéme (180500), le troisiéme (185200) etc... enregistrement

Exemple de résultat :

champC1
170101
180500
185200

Je souhaite récupérer individuellement les valeurs 170101, 180500 et 185200

Je n'ai pas trouvé dans les forums ou tutos ( requêtes, DAO, ADO etc...) d'infos pouvant résoudre mon probléme

Merci par avance pour toute idée pouvant m'aider

Cordialement

[Invité]

Bonjour
Utilises un recordset.
Tu trouveras des exemples entre autre dans ce tuto :
http://jdgayot.developpez.com/tutori...ultats-labels/

En voici le principe:

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
 
Private Sub RecupEnregistrements()
    Dim oDb As DAO.Database
    Dim oRst As DAO.Recordset
    Dim StrSql As String
 
On Error GoTo Erreur
 
    StrSql = " select R2.ChampC1 from R2 "
 
    Set oDb = CurrentDb
    Set oRst = oDb.OpenRecordset(StrSql, dbOpenSnapshot)
 
    If oRst.EOF Then
        MsgBox "Pas d'enregistrements"
        GoTo fin:
    End If
 
    While Not oRst.EOF  'boucle sur tous les enregistrements
        MsgBox "Résultat: " & Nz(oRst.Fields(0))  
        ' code à effectuer
        oRst.MoveNext
    Wend
 
 
Fin:  'ferme les connexions
    If Not oRst Is Nothing Then oRst.Close
    If Not oDb Is Nothing Then oDb.Close
    Set oDb = Nothing
    Set oRst = Nothing
Exit Sub
 
Erreur:
    MsgBox "Erreur " & Err.Number & "  " & Err.Description
    Resume Fin

[TeoSitran]

Bonjour

Merci pour l'aide

J'avais essayé ce type de code auparavant mais j'ai toujours eu un message d'erreur 3061 "Trop peu de paramétres.3 attendu"
j'ai essayé ton code mais j'ai le même message d'erreur.

Est ce que cela vient du fait que ma requête R2 est issue d'une autre requête R1 dont la sélection se fait à partir de 3 valeurs données par le formulaire ?

extrait du 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
'Paramétres de sélection de la requête "RConsoModele"
    Me.DDebut = VarDateDebut
    Me.DFin = VarDateFin
    Me.Equipement = VarEquipement
    
    'Recherche des modéles sur une période, ouverture de la requête "RConsoModele"
    DoCmd.OpenQuery "RConsoModele"
    
    'Recherche du nombre de modéles identiques sur une période, ouverture de la requête "RRConsoModele"
    'Requête regroupement basée sur la requête "RConsoModele"
    DoCmd.OpenQuery "RRConsoModele"
    
    Enreg = DCount("[Article]", "RRConsoModele")
    
    If Enreg > 0 Then
    
        Set LaTableModele = CurrentDb
        Set RstModele = LaTableModele.OpenRecordset("RRConsoModele", dbOpenSnapshot)  'message d'erreur sur cette ligne    
        While Not RstModele.EOF
            Me.Modele = Nz(RstModele.Fields(0), "")
            MsgBox Me.Modele
            RstModele.MoveNext
        Wend
    
        RstModele.Close
        LaTableModele.Close
    
        Set LaTableModele = Nothing
        Set RstModele = Nothing
    
    End If

Merci pour tes conseils

Cordialement

[Gado2600]

Bonjour,
Remplaces :

Code :

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

Set RstModele = LaTableModele.OpenRecordset("RRConsoModele", dbOpenSnapshot) 'message d'erreur sur cette ligne

par :

Code :

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

Set RstModele = LaTableModele.OpenRecordset("SELECT * FROM RRConsoModele", dbOpenDynaset) 'message d'erreur sur cette ligne

Cordialement,

[TeoSitran]

Bonjour

J'ai essayé mais j'ai toujours le même message d'erreur 3061

J'ai modifié la requête de base "RConsoModele" en enlevant les deux critéres de date (entre DDebut et DFin) et ne laissant qu'un critére
j'ai toujours le message d'erreur 3061 mais au lieu d'avoir "trop peu de paramétres 3 attendu" j'ai "trop peu de paramétres 1 attendu"
donc cela confirme ce que je pensais.
Arrivé à la ligne "

Code :

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

Set RstModele = LaTableModele.OpenRecordset("RRConsoModele", dbOpenSnapshot)

" le systéme attend les 3 critéres de sélection alors que la requête est bien ouverte.

J'ai supprimé le "

Code :

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

DoCmd.OpenQuery "RConsoModele

" et j'ai écrit l'équivalent en Sql :

Code :

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

1
2
3
StrSQL = "SELECT TConsoGaz.DateSaisie, TConsoGaz.Equipement, TConsoGaz.ConsoMJj, TConsoGaz.Article FROM TConsoGaz WHERE (((TConsoGaz.Equipement)= '" & Me.Equipement & "'));"
 
 DoCmd.RunSQL (StrSQL)

et là j'ai un message d'erreur 2342 "une action ExecuterSQL nécessite un argument consistant en une instruction SQL"


Ce Sql est allégé car j'ai enlevé :
les deux dates qui va falloir mettre en format US
et ce critére : AND ((TConsoGaz.Article)<>"isempty") car il met la ligne en défaut "attente instruction"


On va y arriver !!

En tout cas merci pour ton aide

Cordialement

[Invité]

J'ai l'impression que tu te mélanges les pinceaux;
Le

Code :

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

 DoCmd.RunSql

ne sert à rien.

Code :

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

Set RstModele = LaTableModele.OpenRecordset("SELECT TConsoGaz.DateSaisie, TConsoGaz.Equipement, TConsoGaz.ConsoMJj, TConsoGaz.Article FROM TConsoGaz WHERE (TConsoGaz.Equipement)= '" & Me.Equipement & "';", dbOpenSnapshot)

Par contre à quoi correspond le Me.Equipement?

[ClaudeLELOUP]

Bonjour,

Voici un exemple :
La table s’appelle LaTable

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
 
 
Public Sub Recup()
  Dim rst As Recordset
  Set rst = CurrentDb.OpenRecordset("LaTable")
  Do Until rst.EOF
    Debug.Print rst("champC1")
    rst.MoveNext
  Loop
  rst.Close
  Set rst = Nothing
End Sub

Pour tester, tu ouvres la fenêtre d’exécution (<CTRL+G> et tu saisis ceci :



N.B. Tu dois ajouter Microsoft DAO x.x.Object Library

L’exemple est ici http://claudeleloup.developpez.com/F...eAlaMenthe.mdb


P.-S. Ce qui s'appelle "LaTable" dans mon exemple correspond à "requête R2" chez toi.

[TeoSitran]

Bonjour

Effectivement en cherchant dans les forums j'ai appris le Docmd.RunSql ne sert à rien, j'ai fait un set RstModele mais j'ai eu le même message d'erreur 3061.
J'ai trouvé une autre solution (peut être moins élégante) qui consiste à mettre le résultat de la requête dans une liste non visible et je prends la valeur du premier champ de chaque ligne, cela fonctionne correctement.

Par contre cette solution ne me permet pas de distinguer les différentes périodes de fabrication pour un même modéle. Le résultat de la requête me donne le nombre total de jours de fabrication (par exemple 21 jours et non pas 10 jours puis 11 jours ).

Chaque chose en son temps !

Le Me.Equipement correspond au nom de la machine de fabrication

Je vais essayer le code de Claude

Merci à tous pour votre aide

Cordialement

[TeoSitran]

Bonjour

J'ai essayé le code mais j'ai toujours l'erreur 3061

En mettant les résultats de la requête dans une liste, rendue invisible dans le formulaire, cela fonctionne
Pour ceux que cela intéresse je récupére le résultat de la requête en faisant :

Me.Resultat = Me.Liste.Column(0, I)

0 = N° de colonne
I = N° de ligne

Merci à tous pour votre aide

Cordialement