Bonjour,

Depuis plusieurs jours je bloque sur une erreur que je n'arrive pas à corriger.
Voila, je dispose de deux formulaires nommés T_Simulateur et T_temps_de_travail, dans le formulaire T_Simulateur j'ai inséré un sous-formulaire T_Simulateur_temp_travail.

Je cherche à récupérer certains champ de T_Temps_de_travail et à les inséré dans le sous formulaire afin de pouvoir les utiliser dans T_Simulateur. Cependant je rencontre une erreur sur mon code : aucun enregistrement en cours.

Voici le code que j'ai utilisé :

Code VBA : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 stdocname = "T_Temps_de_travail_Requête"    ' Nom du formulaire à ouvrir
 DoCmd.OpenForm stdocname, , , stlinkcriteria  ' Ouverture du formulaire
 stdocname = "T_Simulateur_temp_travail"
 DoCmd.OpenForm stdocname, , , stlinkcriteria
 
 If Not DCount("Num", "T_Temps_de_travail_Requête") = 0 Then
        DoCmd.GoToRecord , "T_Temps_de_travail_Requête", acFirst
        Set Rs = T_Simulateur_temp_travail.Form.Recordset
        Rs.MoveFirst
        For i = 1 To DCount("Num", "T_Temps_de_travail_Requête")
                Form_T_Simulateur.nbr_heure.Value=Form_T_Temps_de_travail_Requête.tempstotal.Value
Form_T_Simulateur.Dési.Value=Form_T_Temps_de_travail_Requête.Ope_prestation.Value
Form_T_Simulateur.cout_heu.Value=Form_T_Temps_de_travail_Requête.prix.Value
Forms![T_Simulateur]![T_Simulateur_temp_travail].Form![Désignation_travail] = Form_T_Simulateur.Dési.Value
Forms![T_Simulateur]![T_Simulateur_temp_travail].Form![Nombre_Heure] = Form_T_Simulateur.nbr_heure.Value
Forms![T_Simulateur]![T_Simulateur_temp_travail].Form![cout4] = Form_T_Simulateur.cout_heu.Value
 
              DoCmd.GoToRecord , "T_Temps_de_travail_Requête", acNext
              Rs.MoveNext
Next i


Le code m'annonce l'erreur au niveau du rs.MoveNext
J'ai essayé plusieurs solutions mais rien n'y fait j'ai toujours la même erreur depuis maintenant 3 jours. Est-ce que quelqu'un pourrait m'aider s'il vous plaît

Cordialement.
Gimly