Fonder une RST sur un autre RST en vba

Version imprimable

Bonjour à la communauté bienveillante et bien-aidante

Je souhaite définir un Recordset Enregis2 qui invoque dans sa définition SQL un Enregis1 qui lui invoque bien une table en Access, voir ensuite invoqué Enregis2 dans un sql pour un enregis3
L'idée ici et de pouvoir enquiller plusieurs requête qui synthétise et traite de donnée issues de tables tables Access..

Après avoir faire les Dim qui vont bien ....
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Dim enregis As DAO.Recordset Dim enregis2 As DAO.Recordset Dim baseAccess2 As Database Dim appAccess2 As Access.Application Dim I As Integer Set baseAccess2 = DBEngine.OpenDatabase(Public_Call_SGBD()) SQL01 = "Select * from matableaccess" Set enregis1 = baseAccess.OpenRecordset(SQL01) SQL02 = "Select * from enregis1" Set enregis2 = baseAccess.OpenRecordset(SQL02)
ET paf, ça plante
Est là j'arrive pas à invoquer Enregis1 comme un recordset

Avez vous un goupille pour cela, à défaut je suis obligé de transférer le contenu de Enregis1 dans une table dans access pour me fonder dessus ... donc je suis super lourd
on me parle de fonder Enregis 2 sur un Querydef, si je pouvais avoir un exemple car je comprends par ce Querydef ...

En votre aide,

Salut,

Il faut peut être que tu récupères la valeur d'une colonne, et la concatener dans ta 2nd requête.
Et afin de clarifier le code, on fait 2 fonctions:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Public Sub ProcessTables()
    Dim Db As DAO.Database
    Set Db = CurrentDb()
 
    Dim Rs As DAO.Recordset
    Set Rs = Db.OpenRecordset("Select * from matableaccess")
    While Not Rs.Eof
        ProcessColumn Rs("maColonne")
        Rs.MoveNext
    Wend
End Sub
 
Private Sub ProcessColumn(ByVal Column As DAO.Field)
    Dim Db As DAO.Database
    Set Db = CurrentDb()
 
    Dim Rs As DAO.Recordset
    Set Rs = Db.OpenRecordset("Select * from " & Column.Value)
    While Not Rs.Eof
        '// Traiter les enreigestrements
        Rs.MoveNext
    Wend
End Sub

25/03/2023, 23h25
loufab
Bonsoir,

Au delà du problème je ne pense pas que cette affirmation soit vrai.

Citation:

Après avoir faire les Dim qui vont bien ....
Code:

1 2 3 4 5 6 7 Dim enregis As DAO.Recordset Dim enregis2 As DAO.Recordset ... Set enregis1 = baseAccess.OpenRecordset(SQL01) ... Set enregis2 = baseAccess.OpenRecordset(SQL02)
Ne pas utiliser "Option Explicit" dans les modules conduit à ce type d'incohérence.
C'est la première chose à définir dans les options VBE avant d'écrire la moindre ligne de code.

Cordialement,
26/03/2023, 11h46
Thumb down

Bonjour,
Si j'ai bien compris tu as un recordset1 qui fait référence à une table.

Tu voudrais créer un recordset2 bassé sur ce recordset1.

Si le recordset1 récupère la totalité de la table,il n'y à pas de raison de partir de lui pour créer le recordset2.

Si en revanche le recordset1 dispose d'une close where tu peux récupérer le recordset1 pour créer un recordset2

Set recordset2=recordset1.openrecordset
26/03/2023, 11h50
deedolith

Configure également ton IDE:
Outils ==> Options ==> Case à cocher: Déclaration des variables obligatoire.