Discussion :

[gust]

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.

[gust]

Re bonjout à tous


Je re viens vers vous car je suis tjrs bloquer.

Voici la fonction entière

Code :

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
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 :

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

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

ou

Code :

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

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.


Merci bcp de votre aide.

Cordialement.

[Arkham46]

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

[gust]

Alors comment je peux faire?
avec un état?

[Arkham46]

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

[gust]

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

[Arkham46]

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

[gust]

oui c'est ca.

bon je vais voir.