Bonsoir,
J'ai une access (essai) qui contient un form (T2).
Ce que je souhaiterai c'est ouvrire access et prendre le control de mon form pour lui envoyer des données.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
Private Sub Command5_Click()
Dim acApp As Access.Application
Dim obac As AccessObject
Set acApp = GetObject(App.Path & "\essai.accdb")
Set obac = GetObject(App.Path & "\essai.accdb!T2")
DoEvents
End Sub
Lorsque j'execute ce code j'ai l'erreur: erreur d'execution 430
la classe ne genere pas soit automation ou l'interface attendue
voici la ligne incriminée
Code : Sélectionner tout - Visualiser dans une fenêtre à part
Set obac = GetObject(App.Path & "\essai.accdb!T2")