Discussion :

[valentin4949]

Bonjour,
J'ai un probleme pour initialiser mes controles de types Calendar 10.0. Un truc tout simple dans la procedure d'ouverture d'un formulaire par exemple :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Private Sub Form_Open(Cancel As Integer)
 
If IsNull(Form_Tabac_Gestion_Prix_Form.Texte26.Value) Then
    Calendar0.Value = Form_Tabac_Gestion_Form.Calendar1.Value
Else
    Calendar0.Value = Form_Tabac_Gestion_Prix_Form.Texte26.Value
End If
 
End Sub

Rien y fait le controle garde la valeur qui lui a ete attribuee au moment de sa creation.

Quelque chose m'aurait echappe? Merci d'avance a qui m'aidera.

[MashiMaro]

Essaie plutot dans l'évènement Form_Load, ca marche chez moi.

[MashiMaro]

Ou si tu veux rester dans le Form_Open

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub Form_Open(Cancel As Integer) 
 
    Calendar0.SetFocus
 
If IsNull(Form_Tabac_Gestion_Prix_Form.Texte26.Value) Then 
    Calendar0.Value = Form_Tabac_Gestion_Form.Calendar1.Value 
Else 
    Calendar0.Value = Form_Tabac_Gestion_Prix_Form.Texte26.Value 
End If 
 
End Sub

[valentin4949]

Ok ca marche impecable. Merci a vous...
Juste pour info, A quel niveau se situent les différences entre une procedure Form_Open et Form_Load?

[celiaaa]

Bonjour,

j'essai de créer un controle calendar à un événement c'est à dire qu'à chaque fois que l'utilisateur selectionne une zone de texte un controle calendar s'affiche, il selectionne une date qui se met dans la zone de texte.

J'ai essayé avec la fonction createControl mais elle ne permet que de créer les controle basiques (label , bouton..)
savez-vous quel code ajouté pour pouvoir afficher un calendar?


Merci d'avance