Bonjour ,
je me traine une erreur 424 que je n'arrive pas a résoudre.
Mon code fait appel a un base ouverte et récupére des valeurs dans excel.
seulement currentDb n'a pas l'air d'être reconnu..
est ce que quelqu'un serait me résoudre ce soucis?
Bien a vous,
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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41 Sub test() On Error GoTo errorHandler ' 'La procédure ' 'Permet de sortir de la procédure et évite la gestion d'erreur (errorHandler), si la macro 's'est déroulée sans encombre. Dim oDb As DAO.Database Dim LngNouvelleValeur As Long Dim StrSQL As String Dim oRst As DAO.Recordset LngNouvelleValeur = 0 Set oDb = CurrentDb 'DBEngine.Workspaces(0).Databases(0) StrSQL = "SELECT * 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 Exit Sub errorHandler: 'indique le numéro et la description de l'erreur survenue MsgBox Err.Number & vbLf & Err.Description End Sub
will
Partager