Discussion :

[uskiki85]

Bonjour,

J'ai beau cherché je n'y arrive pas.

Voici mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Dim db As DAO.Database
Dim rst As DAO.Recordset
Dim MaRequete,Champ1 As String
 
'c'est une requète assez longue avec des variables
MaRequete = SELECT A,B,C From MaTable 
 
Set db = DBEngine.OpenDatabase(mabase.mdb)
Set rst = db.OpenRecordset(MaRequete)
 
Champ1 = rst.Fields("A")   'J'ai une erreur comme quoi "No Current Record"

Pourtant en faisant un débogage, je vois bien que ma requète à retourner des enregistrements mais je n'arrive pas accéder à ces résultats.

Ou est mon erreur ?

Merci pour votre aide

[=JBO=]

Bonjour,

Pourtant en faisant un débogage, je vois bien que ma requète à retourner des enregistrements mais je n'arrive pas accéder à ces résultats.

d'après ce que je lis, ton code ne peut absolument pas fonctionner !

Est-ce que tu travailles dans Access ou bien dans un autre environnement (VBA Excel/Word/..., VB6...) ?

Ou est mon erreur ?

Pour commencer, tu dois te protéger des erreurs de type "variables non définies".
Pour ça, tu devrais toujours faire commencer les modules de code par:

Code :

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

Option Explicit

Ensuite:
la commande SQL de ta requête est en fait une chaîne de caractères, il faut l'encadrer par des guillemets.
la méthode OpenDatabase a besoin du chemin d'accès (complet de préférence) au fichier MDB, c'est aussi une chaîne de caractères.

Maintenant, tu vas pouvoir commencer à travailler...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Dim db As DAO.Database
Dim rst As DAO.Recordset
Dim MaRequete As String
Dim Champ1 As String
 
// c'est une requète assez longue avec des variables
MaRequete = "SELECT A,B,C From MaTable"
 
Set db = DBEngine.OpenDatabase("mabase.mdb")
Set rst = db.OpenRecordset(MaRequete)
 
Champ1 = rst.Fields("A")

[uskiki85]

Je te rassure ce que j'avais écris n'étais pas mon code exact. Au lieu de tout écrire, j'ai juste fais un résumé (un peu trop résumé ...).

Je travaille sur Access

Et à part ça, vois tu une solution à mon problème ?

[Tofalu]

Sans le vrai code

Il doit te manque un retour à la ligne quelque part, ou peut être une lettre, ou ...
On est pas devin

A priori, le recordset est vide !

[uskiki85]

Je voulais juste simplifier mon code pour mieux faire comprendre mon problème.

Voici mon vrai 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
 
Dim MesParam, Parents,As String
Dim db As DAO.Database
Dim rst As DAO.Recordset
 
Set db = DBEngine.OpenDatabase("C:\My Documents\My Documents\Pierrot.mdb")
MesParam = "SELECT DISTINCTROW Children.ParentID, Children.ChildID, [Parents].[Title] & ' ' & [ParentName] & ' ' & [ParentSurname] AS FullNameP, [ChildName] & ' ' & [ChildSurname] AS FullNameC, Children.ClassID,School.SchoolName,Class.ClassTime  FROM School INNER JOIN (Parents INNER JOIN (Class INNER JOIN Children ON Class.ClassID = Children.ClassID) ON Parents.ParentID = Children.ParentID) ON School.SchoolID = Class.SchoolID WHERE ChildName='"
MesParam = MesParam & Forms![Print Registration Form].ChildList.Column(1)
MesParam = MesParam & "' AND ChildSurname ='"
MesParam = MesParam & Forms![Print Registration Form].ChildList.Column(2)
MesParam = MesParam & "' ORDER BY Children.ChildID DESC;"
 
Set rst = db.OpenRecordset(MesParam)
 
'Parents
Parents = rst.Fields("ParentID")

En mode débogage, j'ai pu récupéré le contenu de ma variable MesParam et en l'exécutant, elle me retourne bien un résultat donc le problème ne vient pas de ma requète.

Merci pour votre aide

[uskiki85]

c'est bon !

J'avais fait une erreur dans ma requète.

Merci