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

**Etudiant_bts** · 07/06/2006, 10h45

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.

**Vesta** · 07/06/2006, 10h47

Essaie ca...

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.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??,

**Etudiant_bts** · 07/06/2006, 10h50

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.