opendatabase with runtime access

**tiopan** · 14/03/2006, 11h34

bonjour,

a partir d'une appli je souhaite ouvrir un autre mdb.
j'y parviens avec la version full d'access mais pas avec le runtime

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
 
chemin = CurrentProject.Path
Call Open_old_missdb(chemin & "\RFW - MISP database read only.mdb")
 
 
Sub Open_old_missdb(strMDB As String)
Dim objAccess As Access.Application
    On Error GoTo fOpenRemoteForm_Err
    If Len(Dir(strMDB)) > 0 Then
        Set objAccess = New Access.Application
        objAccess.OpenCurrentDatabase strMDB
        Application.Quit
       Else
        MsgBox "ERROR : RFW / MISP database old versus not found", vbOKOnly, "Error mdb"
    End If
fOpenRemoteForm_Exit:
    On Error Resume Next
    objAccess.Quit
    Set objAccess = Nothing
    Exit Sub
fOpenRemoteForm_Err:
    Resume fOpenRemoteForm_Exit
End Sub

merci de m'eclaircir

**tiopan** · 14/03/2006, 11h40

l'erreur viens au niveau de cette ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set objAccess = New Access.Application

le runtime n'accepte pas ??
comment faire

merci

**Arkham46** · 14/03/2006, 11h56

slt,

il n'est pas possible avec le runtime d'ouvrir l'application seule sans préciser une bases de données

il faut donc ouvrir le fichier avec une commande Shell puis récupérer l'objet ouvert avec GetObject

http://support.microsoft.com/default...d=kb;fr;466212