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
merci
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
Partager