[AC-2007] traduction de commandes [Résolu]

[will Igetit]

Bonjour ,

j'essaie de gérer mes requêtes et autres directement à partir de mon excel mais l'exercice de traduction s'avère infructueux. voila ci-dessous mon code qui ne fonctionne pas de tte évidence à cause de la ligne en rouge.
quelle est la bonne synthaxe?

Code :

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
Private Sub Workbook_Open()

Dim oDb As DAO.Database
Dim LngNouvelleValeur As Long
Dim StrSQL As String

LngNouvelleValeur = 0
Set oDb = CurrentDb
StrSQL = "SELECT algorithme_mises.nid, Sum(algorithme_mises.montant) AS SommeDemontant FROM algorithme_mises, algorithme_enchere GROUP BY algorithme_mises.nid HAVING (((algorithme_mises.nid)>100))"

Set oRst = oDb.OpenRecordset(StrSQL, dbOpenTable)

While Not oRst.EOF
LngNouvelleValeur = oRecordset.Value + LngNouvelleValeur
oRecordset.MoveNext
Wend
InputBox (LngNouvelleValeur)

'Libération des objets
oRst.Close
oDb.Close
Set oRst = Nothing
Set oDb = Nothing

End Sub

Sincèrement,

Will

[Kloun]

Bonjour,

Quel est le message d'erreur ?
Ceci dit, il y a plus simple que de faire une boucle qui semble inutile dans le code présenté.

[loufab]

Bonjour,

Qui est oRecordset ?

Code :

1
2
LngNouvelleValeur = oRecordset.Value + LngNouvelleValeur
oRecordset.MoveNext

oRst n'est pas déclaré.

Currentdb sous excel ? Ca existe ?

La référence DAO est activé ?

Le message d'erreur comme le suggère Kloun.

Cordialement,

[will Igetit]

J'ai fait quelques petits changements mais j'ai cette erreur 424. Je suppose qu'effectivement CurrentDb n'est pas la bonne commande. Je veux prendre mes données de
C:\Users\Raphaël Saclé\Documents\Base de données1.aacdb,
comment faut-il procéder?

Code :

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
Private Sub Workbook_Open()
 
Dim oDb As DAO.Database
Dim LngNouvelleValeur As Long
Dim StrSQL As String
Dim oRst As DAO.Recordset
 
 
LngNouvelleValeur = 0
Set oDb = CurrentDb
StrSQL = "SELECT algorithme_mises.nid, Sum(algorithme_mises.montant) AS SommeDemontant FROM algorithme_mises, algorithme_enchere GROUP BY algorithme_mises.nid HAVING (((algorithme_mises.nid)>100))"
 
Set oRst = oDb.OpenRecordset(StrSQL, dbOpenTable)
 
While Not oRst.EOF
LngNouvelleValeur = oRst.Fields("SommeDeMontant").Value + LngNouvelleValeur
oRst.MoveNext
Wend
InputBox (LngNouvelleValeur)
 
'Libération des objets
oRst.Close
oDb.Close
Set oRst = Nothing
Set oDb = Nothing
 
End Sub

[Jack78960]

Bonjour,

Il y a une erreur sur ouverture du recordset ==> un recordset contenant un ordre SQL ne s'ouvre pas comme une table (dbOpenTable) mais comme une requête sql , dbOpenSnapshot étant le plus judicieux dans ton cas, soit(en vert la correction):

Code :

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
Private Sub Workbook_Open()
 
Dim oDb As DAO.Database
Dim LngNouvelleValeur As Long
Dim StrSQL As String
Dim oRst As DAO.Recordset
 
 
LngNouvelleValeur = 0
Set oDb = CurrentDb
StrSQL = "SELECT algorithme_mises.nid, Sum(algorithme_mises.montant) AS SommeDemontant FROM algorithme_mises, algorithme_enchere GROUP BY algorithme_mises.nid HAVING (((algorithme_mises.nid)>100))"
 
Set oRst = oDb.OpenRecordset(StrSQL, dbOpenSnapshot)
 
While Not oRst.EOF
LngNouvelleValeur = oRst.Fields("SommeDeMontant").Value + LngNouvelleValeur
oRst.MoveNext
Wend
InputBox (LngNouvelleValeur)
 
'Libération des objets
oRst.Close
oDb.Close
Set oRst = Nothing
Set oDb = Nothing
 
End Sub

[Kloun]

Le produit cartésien, c'est voulu ?

[will Igetit]

j'ai toujours l'erreur 424 qui devient 3343 après changement de oDd

Code :

Set oDb = OpenDatabase("C:\Users\Rap\Documents\Base de données1.accdb")

je pense qu'il y a une erreur à cette ligne mais ej ne sait aps comment savoir a quelle ligne est l'erreur.
Quelqu'un y verait il plus clair ?

[dumas.blr]

1) Pour déclarer ta database, au lieu d'utiliser le currentdb
utilise plutôt l'instruction

Code :

    Set Odb = DBEngine.Workspaces(0).Databases(0)

2) comme précisait Loufab, le produit cartésien, ça va pas trop le faire
Tu n'aurais pas oublié de faire ta jointure ?

3) si tu souhaites ouvrir une autre Base se donnée, la commande appropriée serait plutôt

Code :

Set oDb = dbengine.OpenDatabase("C:\Users\Rap\Documents\Base de données1.accdb")

pour ces instructions, n'hésite pas à regarder d'abords l'aide en ligne de Access, qui est très bien faite, avant de poser la question sur le forum.

[Arkham46]

bjr,

Merci de mettre le texte du message en entier plutôt que son numéro.
On ne connait pas tous les messages par coeur.

Dans outils => références : quelles sont les références cochées?
Est-ce Microsoft DAO 3.6 Object Library?

Si oui alors il faut essayer de le décocher et utiliser à la place :
Microsoft Office 12.0 Access database engine Object

Sinon je doute que DAO 3.6 puisse ouvrir un accdb.