Discussion :

[quanou]

Bonjour,

Les connexions ODBC (vers SQL SERVER) ont été établies et sont fonctionnelles.

Dans ma base Access, j'aimerais "juste" pouvoir récupérer par code VBA la valeur saisie par l'utilisateur du champ "ID de connexion", dans l'exemple = "DEO1".

Merci beaucoup!

[Tofalu]

Si vous utilisez des tables liées, regardez dans la propriété Connect d'un des TableDef DAO

Définition et manipulation de données avec DAO

[quanou]

Merci beaucoup Tofalu pour ta réponse. J'ai lu ce super lien
En fait, en prenant le TableDef, c'est la définition "précédente". Je n'arrive pas à choper l'authentification courante.
Au lieu de "MachineName", j'aurais voulu faire la comparaison avec "ID qui se connecte"

Mon 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
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
42
43
44
45
46
 
Function fInitialiser()
 
 Dim objCurrent As Object
 
 Set objCurrent = Application.CurrentProject
 MsgBox "The current base connection is " & objCurrent.Connection
 
    ' On regarde machine pour adapter chaine connexion. Si MachineName <> DSN, on change.
    ' Table dbo_TrParam en premier
    ' On regarde la chaine de connexion courante. Si <> pour la machine, on remplace
 
    Set db = CurrentDB
    Dim MachineName As String
    MachineName = Environ("COMPUTERNAME")
    Set td = db.TableDefs("dbo_TrParam")
 
    Dim strCurrentConn As String
 
    strCurrentConn = td.Connect
 
    iPos = InStr(1, strCurrentConn, "UID")
    strProfil = Mid(strCurrentConn, iPos + 4, 2)
 
    Dim strConn As String
 
    If (strProfil <> MachineName) Then
        strConn = "ODBC;DSN=" & MachineName & ";DATABASE=IFCT-1103;UID=" & MachineName & ""
 
        For Each td In db.TableDefs
            If ((td.Attributes And dbSystemObject) = 0) Then
              If (InStr(td.Name, "dbo_")) Then
                td.Connect = strConn
                td.RefreshLink
              End If
            End If
        Next td
 
    End If
 
    ' récupérer login ODBC ICI. Le PROMPT se déclenche ici
 
    DoCmd.OpenForm ("@FORM-1103")
 
    DoCmd.RunCommand acCmdAppMaximize
End Function