[VBA-A] message d'erreur au remplissage d'une textbox par un recordset

Bonjour !

J'ai besoin de remplir un champs de texte avec du texte renvoyé par un recordset, voici le code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub Modifiable38_AfterUpdate()   Set db = CurrentDb   Dim rs1 As Recordset   Set rs1 = db.OpenRecordset("select nomprenomsalarie from salarie S, emploi_tps_mensuel E where S.numsalarie=E.numsalarie and numemploitps=" & Modifiable38.Value & ";") Texte284.Text = "" Texte284.Text = rs1!nomprenomsalarie rs1.Close   End Sub

---

la requête est exacte et renvoie bien les nom et prénom du salarié, mais access m'envoie à chaque fois le message d'erreur que j'ai mis en pièce jointe et je ne sais pas ce qui ne lui plaît pas.
Si vous pouvez m'aider je vous en remercie d'avance.

Essaie ca...

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub Modifiable38_AfterUpdate()   Set db = CurrentDb   Dim rs1 As Recordset   Set rs1 = db.OpenRecordset("select nomprenomsalarie from salarie S, emploi_tps_mensuel E where S.numsalarie=E.numsalarie and numemploitps=" & Modifiable38.Value & ";") Texte284.setFocus Texte284.Text = "" Texte284.Text = rs1!nomprenomsalarie rs1.Close   End Sub

---

Mais pour quoi dans Acces tu ne défini pas une requete contenant ces valeurs comme source de données du formulaire??,

parce que je ne sais pas comment faire pour qu'il exécute la requête à chaque changement de sélection de la liste modifiable, alors qu'en code je sais le faire.

Et ca marche ce que j'ai donné?

non, nouvelle erreur....mise en pièce jointe

voilà, en fait j'ai fini par trouver mon erreur tout seul, il faut utiliser TextBox.Value et non pas TextBox.Text.
Merci quand même pour votre aide.

textbox1.value n'existant pas sous VB, tu viens de faire la démontration de ce à quoi peut conduire l'absence du tag VBA !:roll: