Discussion :

[accro-macro]

Bonjour tous,
j'ai besoin d'aide
j'essaye de me connecter a une base de donnée Access installé sur un autre PC ,car sur le mien n'est pas installé
dans mon code je met le Chemin complet pour acceder a cette base :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Option Explicit
Dim rs As Recordset
Dim ws As Workspace
Dim db As Databas
 
Private Sub UserForm_Initialize()
 
Set ws = DBEngine.Workspaces(0)
Set db = ws.OpenDatabase("\\Poste11\test\BD.mdb")
Set rs = db.OpenRecordset("SELECT Projets.* FROM Projets;", dbOpenDynaset)
 
TextBox1.Text = rs![NomProjet]
end sub

j'ai ce message d'erreur quand j'execute l'application

Code :

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

1
2
3
 
Erreur d'execution 429
un composant Activex ne peut pas créer d'objet

et je ne comprend pas , est ce que vous avez une idée !

merci

[Invité]

Bonjour

Sur quelle ligne as-tu l'errreur ?

Tu affectes ton recordset à une texbox, mais tu peux avoir plusieurs valeurs, de plus il faut parcourir, car là il te donnera la premiére

Starec