Préconnexion ODBC

Bonjour

Essayez ce petit bout de code


Public Sub ConnecTables()
On Error GoTo Err_ConnecTables

Dim tdf As Object


' Passe en revue toutes les tables de la base de
données.
For Each tdf In CurrentDb.TableDefs
' Si la table possède une chaîne de connexion,
c'est une table attachée.
If Len(tdf.Connect) > 0 Then
tdf.Connect
= "ODBC;DSN=AREMPLIR;SERVER=AREMPLIR;UID=AREMPLIR;PWD=AREMP
LIR"
tdf.RefreshLink
End If
Next tdf


Exit_ConnecTables:
Exit Sub

Err_ConnecTables:
MsgBox Err.Description
Resume Exit_ConnecTables

End Sub

-----Message d'origine-----
Bonjour,

J'utilise une DSN (Oracle ODBC Driver) pour attacher les
tables d'une base Oracle dans MS Access 2000.

Chaque fois que l'utilisateur ouvre l'application, le mot
de passe est demandé.
Comment faire en sorte que l'utilisateur n'ait pas à
taper le mot que passe lorsqu'il ouvre l'application.

Merci pour vos lumières.
Lali
.

Fred, elle marche ta solution.

Merci.
Lali.

-----Message d'origine-----
Bonjour

Essayez ce petit bout de code


Public Sub ConnecTables()
On Error GoTo Err_ConnecTables

Dim tdf As Object


' Passe en revue toutes les tables de la base de
données.
For Each tdf In CurrentDb.TableDefs
' Si la table possède une chaîne de connexion,
c'est une table attachée.
If Len(tdf.Connect) > 0 Then
tdf.Connect
= "ODBC;DSN=AREMPLIR;SERVER=AREMPLIR;UID=AREMPLIR;PWD=ARE
MP

LIR"
tdf.RefreshLink
End If
Next tdf


Exit_ConnecTables:
Exit Sub

Err_ConnecTables:
MsgBox Err.Description
Resume Exit_ConnecTables

End Sub

-----Message d'origine-----
Bonjour,

J'utilise une DSN (Oracle ODBC Driver) pour attacher
les

tables d'une base Oracle dans MS Access 2000.

Chaque fois que l'utilisateur ouvre l'application, le
mot

de passe est demandé.
Comment faire en sorte que l'utilisateur n'ait pas à
taper le mot que passe lorsqu'il ouvre l'application.

Merci pour vos lumières.
Lali
.

.