Carte du site
 Remerciements
 Netiquette
 Bugs
 Tables
 Requêtes
 Formulaires
 États (rapports)
 Modules
 APIs
 Chaînes
 Date/Time
 Général
 Ressources
 Téléchargeables

 Termes d'usage

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.

'************* 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 *****************

© 1998-2001, Dev Ashish, All rights reserved. Optimized for Microsoft Internet Explorer