Bonjour à tous
Au démarrage de ma base, je vérifie si j'ai une version plus récente que celle installée. Je passe par une base intermédiaire que j'appelle par le code suivant:
En mode accdb cela fonctionne nickel mais en mode runtime, j'ai une erreur'2001' et il 'arrête sur .OpenCurrentDatabase strDB
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 Function OpenDB(strDB As String, strForm As String) Dim objAccess As Access.Application Dim lngRet As Long Set objAccess = New Access.Application With objAccess lngRet = apiSetForegroundWindow(.hWndAccessApp) lngRet = apiShowWindow(.hWndAccessApp, SW_NORMAL) lngRet = apiShowWindow(.hWndAccessApp, SW_MAXIMIZE) .OpenCurrentDatabase strDB .DoCmd.OpenForm strForm End With End Function
Il me signale que soit la base n'est pas présente soit ce n'est pas un objet ADB.
Merci d'avance pour vos suggestions.
Partager