Appeler un autre MDE depuis un MDE
bonjour,
j'ai créé la 1ère application A.MDB qui appelle la 2è B.MDB. Tout fonctionne sur mon PC. je les compile en MDE. Tout fonctionne avec le code ci-dessous.
Cependant ils fonctionne seulement sur un PC avec la version full Access. sur un PC avec runtime, il ne fonctionne pas.
Avez-vs déjà travaillé sur ce point ? merci pour votre aide.
ci-dessous le sub dans la A.MDE.
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
| Sub test()
On Error GoTo Error_Handler
Dim AppMSAccess As Access.Application
Set AppMSAccess = New Access.Application
AppMSAccess.Visible = True
AppMSAccess.OpenCurrentDatabase ("C:\IT_EF\B.mde")
Error_Handler:
If Err.Number = 7866 Then
AppMSAccess.Visible = False
MsgBox "Le chemin de l'application n'est pas correct."
End If
Exit Sub
End Sub |