Modules: Spécifier le UserName et le Password pour une nouvelle instance d'Access. |
Author(s) Dev Ashish |
|
Spécifier le UserName et le Password pour une nouvelle instance d'Access.
Automation ne vous permet pas de spécifier un fichier MDW
différent avec le nom d'usager et son mot de passe, lorsque vous ouvrez une
base de données sécurisée à partir du code. Une façon de contourner cette
limitation est d'utiliser la commande Shell vers la base de données sécurisée
en y spécifiant les informations nécessaires de par la ligne de commande.
Sub sOpenDBWithPwd()
Dim strDB As String
Dim strCmd As String
Dim objSecuredDB As Access.Application
strDB = "J:\NewCode97.mdb"
strCmd = SysCmd(acSysCmdAccessDir) & "\MSAccess.exe " _
& strDB & " /wrkgrp " & DBEngine.SystemDB _
& " /user Admin"
Call Shell(strCmd, vbNormalFocus)
DoEvents: DoEvents: DoEvents
Set objSecuredDB = GetObject(strDB)
Stop
End Sub
|