[AC-2003] Récupération des données d'une requete [Résolu]

[Taiby]

Bonjour,

je voudrais récupérer dans mon code vba les données trouvées par une requete générérée en Access (2003). Je veux balayer ligne après ligne et récupérer certaines valeurs de certains champ. Quelqu'un peut m'indiquer comment faire ?
Je précise que je n'y connais que très peu en SQL (j'attends une micro formation)

Merci
Taiby

[marot_r]

La bonne nouvelle c'est avec Access tu n'as pas besoin de t'y connaître en SQL. Grâce à l'outil de conception de requête tu peux faire des requêtes très complexes sans même savoir ce que SELECT signifie :-).

Bon, on s'entend que cela aide quand même d'être capable de lire du SQL.

À part cela voici un bout de code VBA qui fait ce que tu demandes :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
dim taVariable1 as variant 
'De préférence utiliser le bon type (ex : date pour une date, long pour un entier long)
' Variant est un foure-tout et le compilateur ne peut pas vérifier si ce que tu assignes est du bon type. 
'  Cela peut être sources de bug difficiles à trouver.
dim taVariable2 as variant
 
dim db as dao.database:set db=currentdb
dim r as doa.recordset:set r=db.openRecordset("NomTaSource") 
'TaSource peut être une table ou une requête crée avec l'éditeur de requête. 
' Cela peut aussi être une chaîne SQL comme SELECT * FROM TaTable,
' mais personnellement je préfère ne pas mélanger SQL et code VBA.
 
do while not r.eof
   taVariable1=r![NomTonChamp1]
   taVariable2=r![NomTonChamp2]
   r.movenext
loop
 
r.close:set r=nothing 'Libère la mémoire utilisée
set bd=nothing 'Libère la mémoire utilisée

A+

[Taiby]

Merci pour ton coup de main, je viens de copier le code que tu m'as fourni et adapté à mon besoin (juste en changeant le NomTaSource et NomTonChamp) mais j'ai une erreur lors de l'exécution :

Type défini par l'utilisateur non défini sur r As doa.Recordset

[Jeannot45]

Il te faut ajouter dans les références (sous VBE, dans le menu Outils) l'appel à la bibliothèque Microsoft DAO 3.6.

Pour plus d'informations sur DAO, voici un tuto intéressant à consulter :
Définition et manipulation de données avec DAO

Bonne lecture

[Taiby]

Cette référence est déjà cochée

[Taiby]

Je viens de trouver le problème, marot_r a écrit "doa" dans son code au lieu de "dao".
Bon cela ne marche toujours pas, j'ai un autre soucis mais je vais chercher un peu avant d'en parler ici.

[Taiby]

Quand je mets un nom d'une de mes tables cela fonctionne très bien, je récupère toutes les données voulues dans la boucle, mais lorsque je mets le nom de ma requet j'ai le message d'erreur suivant "trop peu de paramètres, 1 attendu".

C'est une requete qui demande un numéro lors de son ouverture, vous pensez que cela vient de là et qu'il faudrait rajouter un élément derrière mon nom de requete ?

[Jeannot45]

Re,

Tu as mis le doigt sur le problème. En effet, si ta requête attend une valeur à l'exécution, il faut que celle-ci soit connue avant l'exécution.

Tu peux remplacer le nom de ta requete par la syntaxe SQL de celle-ci. Tu pourras donc intervenir sur la clause WHERE

Tu peux récupérer le code SQL pr un copier/coller (voir le tuto : Créer une Requete)

[Taiby]

Mais je ne comprends pas, ma requete est déjà exécutée lorsque mon code intervient. En fait ce que je veux faire c'est récupérer les données affichées par ma requete.
Je dit cela sans savoir si c'est possible, peut-être que je prends le problème à l'envers ?

[Jeannot45]

Re,

Dans ce cas, tu peux mettre ta requete en tant que source d'un formulaire ou un état et tu visualiseras tous les enregistrements.

[Taiby]

Désolé si j'ai "la comprenette" difficile mais je ne veux pas visualiser mes résultats, ils sont déjà visibles dans un formulaire, ce que je veux c'est écrire le code qui va bien pour récupérer les données affichées dans ce formulaire par la requette. Je veux pouvoir récupérer le champs "bidule" de la ligne dont le champ "numéro" est 3 par exemple...

[Jeannot45]

Puisque les données sont déjà affichées dans le formulaire, tu peux relire les enregistrements grace à :

Code VBA :

Me.RecordsetClone

Voici ce qu'en dit

Envoyé par Aide Access

La propriété RecordsetClone vous permet de faire référence à l'objet Recordset d'un formulaire spécifié par la propriété RecordSource de ce formulaire.
Exemple :

Code VBA :

Dans cet exemple, VBA affiche le nom de chaque champ. Tu peux adapter le code pour relire tous tes enregistrements

Code :

1
2
3
4
5
6
7
8
9
10
11
 
With rst
    Do While Not .EOF
        If .Fields("Numero") = 3 Then
           ...
        Else
           ...
        End If
    .MoveNext
    Loop
End With

A toi de jouer
Bonne continuation

[Taiby]

Merci Jeannot, je suis en congés aujourd'hui mais j'essaie cela demain à l'aube et je te dis quoi ...

[Taiby]

J'ai adapté rapidement le code dans mon vba :

Code VBA :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub Btn_copie_plan_Click()
 
Dim rst As Recordset, intI As Integer
 
Set rst = Me.RecordsetClone
With rst
    Do While Not .EOF
        If .Fields("ID_MATERIEL") = 3 Then
           MsgBox ("trouvé")
        Else
           MsgBox ("pas trouvé")
        End If
    .MoveNext
    Loop
End With
End Sub

Mais l'orsque je l'exécute (par appui sur un bouton Btn_copie_plan) alors que le résultat de ma requete affichée dans un formulaire est à l'écran j'ai cette alerte :

Envoyé par message d'erreur 7951

Vous avez rentré une expression dont la référence à la propriété ClôneRecordset n'est pas valide à la ligne Set rst = Me.RecordsetClone

[Jeannot45]

Les données sont -elles affichées dans un Sous-Formulaire ?
Si oui, l'appel du Recorset doit se faire sur le sous formulaire

Code VBA :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub Btn_copie_plan_Click()

Dim rst As Recordset, intI As Integer

Set rst = Me.SF_NomSousFormulaire.Form.RecordsetClone
With rst
    Do While Not .EOF
        If .Fields("ID_MATERIEL") = 13 Then
        MsgBox ("trouvé")
        Else
        MsgBox ("pas trouvé")
        End If
    .MoveNext
    Loop
End With

End Sub

Sinon, je n'ai pas d'erreur en testant ta procédure

[Taiby]

Effectivement, il y a bien un sous-formulaire !

j'ai modifié le code comme ceci :

Set rst = Me.SF_REQ_MAT_POUR_ETUDE.Form.RecordsetClone

mais j'ai encore une erreur : Membre de méthode ou de données introuvable


je ne sais pas si je vais m'en sortir

[Taiby]

Pour en finir j'ai abandonné l'idée de récupérer mes données depuis un formulaire affiché. J'utilise à la place un outils paramètrable (vsFlex 3.0) qui permet d'afficher les données dans un formulaire cellule par cellule et donc de relir ces cellules sans soucis.