Probleme de requete excel

[Thor_rp]

Bonjour, voila, je souhaite inserer des valeur dans une table access, nomé client, à partir de textbox d'un userform excel par exemple entré en derniere position : textbox1.text = E1, textbox2.text = Durand et textbox3.text = Patrice.

voici le code que j'utilise actuellement :

Sub dbclient(DB As String)

Dim connexion As ADODB.Connection
Dim resultat As ADODB.Recordset




Set connexion = New ADODB.Connection
connexion.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DB & ";"
Set resultat = New ADODB.Recordset


With resultat
.Open "SELECT [Code_Client], [Nom], [Prénom] FROM [Client]", connexion, , , adCmdText
'.MoveLast

End With

With resultat
.AddNew
.Fields("Code_Client") = TextBox1.Text
.Fields("Nom") = TextBox2.Text
.Fields("Prénom") = TextBox3.Text
.Update
End With

resultat.Close
Set resultat = Nothing
connexion.Close
Set connexion = Nothing

End Sub


Merci pour votre aide

 

[Michel_M]

Bonjour Thor_rp et le Forum,

Difficille d'essayer de te répondre vu que tu n'indiques pas ce qui ne vapas, les messages d'erreur envoyés.

Toutefois dans tes instructions du type:

.Fields("Code_Client") = TextBox1.Text

il me semble qu'il faudrait indiquer l'objet userform:

.Fields("Code_Client") =tonuserform.TextBox1.Text

En espérant que cela t'aidera

A+
Michel

 

[Thor_rp]

Merci Michel, en effet je n'évoque pas mon message d'erreur qui est le suivant :
Erreur d'éxecution '3251'
le fournisseur ou l'objet ne prend pas en charge cette opération et lorsque je fais déboguer ca me met ma ligne .AddNew en jaune.

Merci bien,

P.S. J'ai bien mis userform1(nom de userform).textbox1.text et ainsi de suite pour chaque textbox (userform1.textbox2.text ...)

 

[Michel_M]

Re,

Ci joint une proposition alternative à adapter pour ton pb réalisée à partir d'une maquette d'étude de ADO-SQL

donc,

j'utilise la l'instruction SQL "insert into" au lieu de "select"

et j'utilise "execute" au lieu de "open" ce qui évite addnew

Dans cette démo, je n'utilise pas de textbox mais des cellules, ce qui ne change pas grand chose pour toi mais est + rapide pour moi

Tiens moi au courant

Michel

 

[Thor_rp]

Merci beaucoup Michel pour ton aide, j'ai continué a chercher de mon coter et j'ai enfin réussi a faire fonctionner mon addnew, c'etais simplement des référence non référencer dans outil.
Je garde ton script en exemple puisque au départ c'etais avec insert into que je souhaitais faire ma table
Encore mille merci
Thor