Tracer un trait automatiquement dans un formulaire

Bonjour à tous,


Voici mon pb, je dois faire un formulaire graphique qui relate le pointage des employés.

Je dois tracer un trait par employée alors j'ai commencer à créer une belle fonction, le pb c'est que je suis bloquer pour initialiser mon trait.

[/Code]
Dim frm_Form As Form
Dim line_heuretrait As Line

Set frm_Form = Application.Screen.ActiveForm
Set line_heuretrait = '???????????
[Code]

Merci de votre réponse rapide.

Cordialement.

Re bonjout à tous


Je re viens vers vous car je suis tjrs bloquer. :piou:

Voici la fonction entière

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38

Sub TraceTrait(frm_Form As Form, dt_HeureDebut As Date, dt_HeureFin As Date, dt_refheure As Date, i_refdebut As Integer, i_top As Integer, lng_Color As Long, i_BorderWidth)   'constante pour l'échelle Const i_RefHeure As Variant = 28800 Const i_RefCM As Variant = 12   'variable Dim dt_Duree As Date Dim dt_Start As Date Dim i_Longueur As Long Dim i_Start As Integer Dim li_line As New line   Set li_line = frm_Form!HeureTrait   'calcul debut du trait s = Mid(dt_HeureDebut, 1, 10) dt_Start = DateValue(s) & " " & dt_refheure dt_Start = dt_HeureDebut - dt_Start i_Start = dt_Start * 3600 * 24 i_Start = (i_Start * i_RefCM) / i_RefHeure i_Start = i_refdebut + (i_Start * 567)   'calcul taille trait dt_Duree = (dt_HeureFin - dt_HeureDebut) i_Longueur = dt_Duree * 3600 * 24 i_Longueur = (i_Longueur * i_RefCM) / i_RefHeure i_Longueur = i_Longueur * 567   'Paramétrage du trait li_line.BorderColor = i_Color li_line.BorderWidth = i_BorderWidth li_line.Top = i_top li_line.Left = i_Start li_line.Width = i_Longueur   End Sub

---

Cette partir est bien pour un enregistrement mais j'ai plus enregistrement à traiter pour le même formulaire.

alors j'essaie

Code:

---

1 2	Set li_line = CreateObject("Access.Line")

---

ou

Code:

---

1 2	Set li_line = New line

---

mais là msg d'erreur 249 :" un composant ActiveX ne peut pas créer d'objet"

Je suis vraiement bloquer et je ne vois pas comme je peux créer autrement une instance de ma classe Line et de la lier à mon formulaire. :hola:


Merci bcp de votre aide.:) :) :) :) :)

Cordialement.

slt,

il faut être en mode création pour ajouter un contrôle (avec CreateControl)

donc il faut s'assurer pour faire ça que les utilisateurs ne font pas utiliser la base avec le runtime sinon ça ne peut pas marcher

Alors comment je peux faire?
avec un état?

avec un état je crois que tu as effectivement des fonctions de dessins pour faire des traits, mais j'ai jamais essayé

si c'est pour imprimer c'est mieux un état c'est clair

si tu dois pouvoir faire de la saisie alors il faut un formulaire

le plus simple c'est sans doute de créer quelques lignes "à la main" puis de modifier leur taille et position ensuite par le code
ça dépend si tu sais d'avance combien de lignes au maximum tu auras besoin

non pas du tout!
ca peu être une comme 100.

j'essaie de comprendre en relisant

- tu es en mode continu?
- tu veux faire un trait par enregistrement?

Si c'est ça alors non tu ne peux pas avoir un trait différent par enregistrement en mode continu

Il faudrait donc sans doute faire un état alors

oui c'est ca.

bon je vais voir.