ouvrir une base access via vba
bonjour,
a partir dune base access "sauvegarde" j'ai un code vba pour ouvrir une base test" et lancer le formulaire"adresse" se trouvant dans cette base.
la base s'ouvre et le formulaire se lance bien mais a la fin du code cette base test se ferme automatiquement alors que je n'ai pas demandé sa fermeture
savez vous pourquoi?
voici le code
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
Dim db As dao.Database
Dim AppAccess As Access.Application
Dim Chemin As String
Dim base As String
Dim formulaire As String
Chemin = "G:\SauvegardePersonnelle\"
base="test.accdb"
fomulaire="adresse"
Set AppAccess = New Access.Application
With AppAccess
.Visible = True
.DoCmd.RunCommand acCmdAppMaximize
.OpenCurrentDatabase (Chemin & Base)
.DoCmd.OpenForm Formulaire
.DoCmd.RunCommand acCmdAppMaximize
End With
Set db = Nothing
Set AppAccess = Nothing
End Sub |
merci
