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.
Lorsque j'execute ce code j'ai l'erreur: erreur d'execution 430
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
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")
Partager