Discussion :

[Zartak]

Bonjour, j'essaye d'ouvrir une nouvelle application Access(Autre base de données en lecutre seule). Jusqu'ici je n'en avais pas besoin j 'utilisais cette syntaxe ( Une partie du code) :

Code :

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

1
2
3
Static ac As Access.Application: Set ac = New Access.Application
ac.Visible = True
ac.OpenCurrentDatabase (Chemin_base)

Je n'arrive pas a lui rajouter l'Option 'Lecture Seule' Si quelqu'un pouvait m'aider ca serait sympas

[Zartak]

Est ce que quelqu'un peut me dire pourquoi quand j execute ce code j'ai rien qui s'ouvre? pourtant j'ai l'impression que la syntaxe est bonne..

Code :

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

1
2
3
4
5
Dim db As Database
Dim ws As Workspace
 
Set ws = CreateWorkspace("", "admin", "", dbUseJet)
Set db = ws.OpenDatabase(Mabase, True, True)

[Zartak]

Bon ben en fait c etait tout bete... ca ne l ouvrait pas physiquement c est tout, il suffisait de combiner les deux bouts de code:

Code :

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

1
2
3
4
5
6
7
8
9
Dim ws As Workspace
Dim db As Database
 
Static ac As Access.Application: Set ac = New Access.Application
ac.Visible = True
 
Set ws = CreateWorkspace("", CurrentUser(), "")
Set db = ws.OpenDatabase((rcs("Valeur")), True, True)
ac.OpenCurrentDatabase (rcs("Valeur"))