Bonjour à tous,

J'ai besoin de rendre "bookmarkable" une connexion ADODB qui tape sur Access

J'ai donc déclaré dans un module
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
Public Const BACKENDDB_PATHFILE As String = "\\SVFRMARFILE01\DataBase.accdb"
Public Const BACKENDDB_CNXSTRING As String = "Provider=Microsoft.ACE.OLEDB.12.0" & _
                                            ";Data Source=" & BACKENDDB_PATHFILE & _
                                            ";Persist Security Info=False;"
Puis dans une fonction elle aussi dans un module, j'ai

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Public function MyFunc
 Dim oCnx As New ADODB.Connection
 Dim oRecSet As New ADODB.Recordset
 
With oCnx
        .ActiveConnection = BACKENDDB_CNXSTRING '--> ERREUR
        .CursorType = adOpenStatic '--> BookMark mais pas testé car plante ligne d'avant
        .Open
    End With
 
'... code
 
End function
J'avais avant ça testé

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
With oCnx
        .CursorType = adOpenStatic '--> BookMark c'est ici que ça plantait 
        .Open BACKENDDB_CNXSTRING
    End With
Par contre la commande ci-dessous fonctionne parfaitement
Code : Sélectionner tout - Visualiser dans une fenêtre à part
 oCnx.Open BACKENDDB_CNXSTRING

Merci pour toute aide