Discussion :

[Souleyre]

Bonjour à tous,
Je crée une base de donnée Access avec le code suivant:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
  Dim DB As Database, TF As TableDef, FLD As Field
  a$ = "TS2009.mdb"
  If Dir(a$) <> "" Then Kill a$
  Set DB = DBEngine(0).CreateDatabase(a$, dbLangGeneral)
  Set DB = DBEngine(0).OpenDatabase(a$)

Pour des raisons de sécurité, j'aurais besoin d'y insérer un password mais je ne sais pas trop comment m'y prendre.
Quelqu'un pourrait-il m'aider?

[ProgElecT]

'NewPassword étant le mot de passe de ton choix

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

  Set DB = DBEngine(0).CreateDatabase(a$, ";pwd=NewPassword")

dbLangGeneral est l'argument par défaut, donc inutile de le préciser

[Souleyre]

OK! ça marche. Merci à toi.