opendatabase with runtime access [Résolu]

[tiopan]

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 :

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]

l'erreur viens au niveau de cette ligne

Code :

Set objAccess = New Access.Application

le runtime n'accepte pas ??
comment faire

merci

[Arkham46]

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

[tiopan]

il me met

error#: 429
ActiveX component can't create object

existe t il une sol

[tiopan]

OK, merci

[caryl14]

Bonjour,
avais tu reussi à trouver une solution à ton problème ? J'ai le même souci actuellement. Merci par avance