Bonjour !
J'ai besoin de remplir un champs de texte avec du texte renvoyé par un recordset, voici le code :
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.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
Si vous pouvez m'aider je vous en remercie d'avance.
Partager