Filtre mal fait

Bonjour

J'ai besoin d'aide.

J’ai un problème d’actualisation de formulaire. Ce que je voudrais faire, c’est Sélectionner un employé pour obtenir son nombre d’heures de référence et ensuite ouvrir un deuxième formulaire où il rentrerai ses heures réelles (plusieurs lignes) avec la vision des heures de références en haut du formulaire.

Pour le moment, je ne réussis pas la première étape. C'est-à-dire récupérer les heures de référence. Mon problème réside sur la ligne Rs Findfirst…….

L’application est la suivante :

une table Ref-Employes avec les champs
CodeEmploye
CodTitre
Nom
Prenom
Heures


un module1 avec

Code:

---

1 2 3 4

Option Compare Database Option Explicit   Public Utilisateur As String

---

un formulaire avec comme source (Ref-Employes) contenant une zone texte (ChoixEmploye) et une autre (Heures).

Dans ChoixEmploye, je sélectionne le code employé pour obtenir sur le formulaire les heures

Code:

---

SELECT [Ref-Employes].CodeEmploye, [Ref-Employes]!Nom & ", " & [Ref-Employes]!Prenom AS NomPrenom FROM [Ref-Employes] ORDER BY [Ref-Employes]!Nom & ", " & [Ref-Employes]!Prenom;

---

et un événement après-MAJ sur ChoixEmploye

Code:

---

1 2 3 4 5 6 7 8

Private Sub ChoixEmploye_AfterUpdate() Dim Rs As Object Set Rs = Me.Recordset.Clone Rs.FindFirst "[CodeEmploye] = '" & Me![ChoixEmploye] & "'" Me.Bookmark = Rs.Bookmark DoCmd.OpenForm "Form-Heures" Utilisateur = Me.ChoixEmploye End Sub

---

Merci de m'illuminer, car je broie du noir.

Jacques

Sur le 1er formulaire un champ ChoixEmploye et un champ heure

Code:

---

1 2 3 4 5

Private Sub ChoixEmploye_AfterUpdate() Me!heure.Requery DoCmd.OpenForm "Formulaire2", , , , , , Me!heure End Sub

---

dans la propriété Source controle

Code:

---

1 2	=RechDom("[heure]";"table1";"[nom]='" & [ChoixEmploye] & "'")

---

Dans le second formulaire, un champ heure2 qui recupére l'heure

Code:

---

1 2 3 4

Private Sub Form_Load() Me!heure2 = OpenArgs End Sub

---