Discussion :

[Jaimelot]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[helas]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Private Sub Form_Load()
 Me!heure2 = OpenArgs
End Sub