---Soumis par 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.

'************* Code Start *****************
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"  '/pwd ''"
  Call Shell(strCmd, vbNormalFocus)
  DoEvents: DoEvents: DoEvents
  Set objSecuredDB = GetObject(strDB)
  Stop
End Sub
'************* Code End *****************