Lancer un fichier Access via un autre fichier Access
Bonjour,
Je cherche et je n'y arrive pas, plus... j'aimerais pouvoir via un bouton (formulaire) d'une base de données BD1 :
- lancer un base de données BD2
- fermer la base de données BD1
- et option... la BD2 en plein écran...
Voici mes tests... ce qui est dingue, c'est que j'ai deux anciennes base de données et le Test 1 fonctionne... et quand je reprends ces lignes sur d'autres base de données cela ne fonctionne plus... ???
Soit :
- la base de données BD2 semble s'ouvrir et puis se ferme
- rien ne se passe...
- message d'erreur avec le test 4...
Test 1
Code:
1
2
3
4
5
6
7
8
9
| Dim objAccess As Object
Set objAccess = New Access.Application
With objAccess
.OpenCurrentDatabase (Application.CurrentProject.Path & "\Fichier II.accdb")
End With
' fermer la base de départ
DoCmd.Maximize
DoCmd.Quit |
Test 2
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
| Private Declare Function apiSetForegroundWindow Lib "user32" _
Alias "SetForegroundWindow" _
(ByVal hwnd As Long) _
As Long
Private Declare Function apiShowWindow Lib "user32" _
Alias "ShowWindow" _
(ByVal hwnd As Long, _
ByVal nCmdShow As Long) _
As Long
Private Const SW_MAXIMIZE = 3
Private Const SW_NORMAL = 1
...
Set objAccess = New Access.Application
With objAccess
'lngRet = apiSetForegroundWindow(.hWndAccessApp)
lngRet = apiShowWindow(.hWndAccessApp, SW_NORMAL)
lngRet = apiShowWindow(.hWndAccessApp, SW_MAXIMIZE)
.OpenCurrentDatabase (Application.CurrentProject.Path & "\Fichier II.accdb"")
'.DoCmd.OpenForm "Formulaire1"
End With
DoCmd.Quit |
Test 3
Code:
1
2
| Call Shell(Application.CurrentProject.Path & "\Fichier II.accdb", 1)
Application.CloseCurrentDatabase |
Test 4
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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
| Function fOpenRemoteForm(strMDB As String, _
strForm As String, _
Optional intView As Variant) _
As Boolean
Dim objAccess As Access.Application
Dim lngRet As Long
On Error GoTo fOpenRemoteForm_Err
If IsMissing(intView) Then intView = acViewNormal
If Len(Dir(strMDB)) > 0 Then
Set objAccess = New Access.Application
With objAccess
lngRet = apiSetForegroundWindow(.hWndAccessApp)
lngRet = apiShowWindow(.hWndAccessApp, SW_MAXIMIZE)
'le premier appel à ShowWindow semble rester sans effet
lngRet = apiShowWindow(.hWndAccessApp, SW_MAXIMIZE)
.OpenCurrentDatabase strMDB
.DoCmd.OpenForm strForm, intView
Do While Len(.CurrentDb.Name) > 0
DoEvents
Loop
End With
End If
fOpenRemoteForm_Exit:
On Error Resume Next
objAccess.Quit
Set objAccess = Nothing
Exit Function
fOpenRemoteForm_Err:
fOpenRemoteForm = False
Select Case Err.Number
Case 7866:
' MDB ouverte en mode exclusif
MsgBox "The database you specified " & vbCrLf & strMDB & _
vbCrLf & "is currently open in exclusive mode. " & vbCrLf _
& vbCrLf & "Please reopen in shared mode and try again", _
vbExclamation + vbOKOnly, "Could not open database."
Case 2102:
' Ce formulaire n'existe pas
MsgBox "The Form \'" & strForm & _
"\' doesn\'t exist in the Database " _
& vbCrLf & strMDB, _
vbExclamation + vbOKOnly, "Form not found"
Case 7952:
' L'utilisateur a fermé la base de données
fOpenRemoteForm = True
Case Else:
MsgBox "Error#: " & Err.Number & vbCrLf & Err.Description, _
vbCritical + vbOKOnly, "Runtime error"
End Select
Resume fOpenRemoteForm_Exit
End Function
...
Call fOpenRemoteForm(Application.CurrentProject.Path & "\Fichier II.accdb", "")
DoCmd.Quit |
BONUS
Par contre, pour ceux qui voudrait lancer un fichier *.bat le code suivant fonctionne nickel...
Code:
1
2
| Call Shell(Application.CurrentProject.Path & "\Fichier II.bat", 1)
Application.CloseCurrentDatabase |
