Discussion :

[yonialhadeff]

Bonjour j'ai un problème byzarre avec Access et vba

j'ai ces deux tables
______ A ____________ B
Id __ Val __ Ordre ____ Id __ Val
1 __ X __ 1 ____ 1 __ 45
2 __ P __ 2 ____ 3 __ 96
3 __ V __ 3

Je fait un select comme ceci:
SELECT * FROM B RIGHT JOIN A ON B.Id = A.ID ORDER BY Ordre

je m'attend à recevoir ceci dans le recordset
a.ID __ a.val __ a.Ordre __ b.Id __ b.Val
1 __ X __ 1 __ 1 __ 45
2 __ P __ 2
3 __ V __ 3 __ 3 __ 96

MAIS NON je recois ceci:
1 __ X __ 1 __ 1 __ 45
2 __ P __ 2 __ 3 __ 96
3 __ V __ 3

Lorsque je fais un copie collé de ma requete, vers une query (en mode sql) et que je l'exécute j'obtient bien ce qu'il faut!

Comment régler ce problème ?
voici comment je lance la requete
Set rs = db.OpenRecordset(Query, dbOpenForwardOnly, dbReadOnly)


Merci d'avance

yoni A

[soltani1]

Bonjour,

Essaie

Code :

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

1
2
3
 
SQL = 'SELECT * FROM B RIGHT JOIN A ON B.Id = A.ID ORDER BY Ordre'
Set rs = db.OpenRecordset(SQL, dbOpenForwardOnly, dbReadOnly)

A+

[micniv]

Etrande en effet, avec le code suivant

Code :

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

1
2
3
4
5
 
    strSql = "SELECT * " _
    & " FROM t_B RIGHT JOIN t_A ON [t_B].[Id]=[t_A].[ID] ORDER BY [Ordre]"
    Debug.Print "strSql: " & strSql
    Set rst = CurrentDb.OpenRecordset(strSql)

j'obtiens le même résultat dans les 2 cas.
A suivre

[yonialhadeff]

L'erreur était complètement débile!!

j'ouvrais la mauvaise DB! j'avais fait un copié collé de ma db, et dans le code vba il pointait encore sur l'ancienne db!

en tout cas merci pour votre aide

Yoni

PS: comment dire à access d'ouvrir la db courrante ?
moi je fais comme ceci,
Set db = OpenDatabase("DBNAME")

Merci