Discussion :

[gimly90]

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

[madefemere]

Bonjour,

Difficile de comprendre la logique de ton code avec ton énoncé :

Dans ton message, tu parles de 2 formulaires :T_Simulateur et T_temps_de_travail
Et d'un sous-formulaire T_Simulateur_temp_travail inséré dans T_Simulateur.

Dans ton code nous avons un formulaire T_Temps_de_travail_Requête ??

Si j'ai bien compris, ton formulaire T_temps_de_travail est basé sur T_Temps_de_travail_Requête

Des informations complémentaires et/ou une partie de la base permettraient de t'apporter des réponses.

Dans l'attente d'un retour de ta part si le problème est encore d'actualité.

[gimly90]

Bonjour,

Désolé pour la clarté de mon énoncé, ne trouvant pas de réponse et m'embrouillant totalement dans mes idées, j'ai décidé de partir sur une autre voie et j'ai trouvé une solution à mon problème en changeant les relations et mes formulaires.