Discussion :

[Etudiant_bts]

Bonjour !

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

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

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.