Message d'erreur sur DatePicker

Version imprimable

Bonjour,

J'ai une soucis avec mon DatePicker.

J'ai mis ce code dans le Form

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub Form_Current()
    If (Me.Grp_Situation_Familiale) = "1" Then
        Cmb_Num_Conjoint.Enabled = False
        Txt_Conjoint.Enabled = False
        Ctrl_Date_Situation.Visible = False
        Ctrl_Date_Situation.Enabled = False
    End If
    If (Me.Grp_Situation_Familiale) > "1" Then
        Cmb_Num_Conjoint.Enabled = True
        Txt_Conjoint.Enabled = True
        Ctrl_Date_Situation.Visible = True
        Ctrl_Date_Situation.Enabled = True
    End If
    If (Me.Grp_Situation_Familiale) = "0" Then
        Cmb_Num_Conjoint.Enabled = False
        Txt_Conjoint.Enabled = False
        Ctrl_Date_Situation.Visible = False
        Ctrl_Date_Situation.Enabled = False
    End If
End Sub

Et celui-ci dans le groupe de de bouton

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Sub Grp_Situation_Familiale_AfterUpdate()
    If (Me.Grp_Situation_Familiale) = "1" Then
        Cmb_Num_Conjoint.Enabled = False
        Txt_Conjoint.Enabled = False
        Me.Cmb_Num_Conjoint = ""
        Me.Txt_Conjoint = ""
        Ctrl_Date_Situation.Visible = False
        Ctrl_Date_Situation.Enabled = False
    End If
    If (Me.Grp_Situation_Familiale) > "1" Then
        Cmb_Num_Conjoint.Enabled = True
        Txt_Conjoint.Enabled = True
        Ctrl_Date_Situation.Visible = True
        Ctrl_Date_Situation.Enabled = True
    End If
    If (Me.Grp_Situation_Familiale) = "0" Then
        Cmb_Num_Conjoint.Enabled = False
        Txt_Conjoint.Enabled = False
        Ctrl_Date_Situation.Visible = False
        Ctrl_Date_Situation.Enabled = False
    End If
End Sub

Mais lorsque je passe d'un enregistrement à l'autre j'ai un message d'erreur
"Une erreur est survenue lors de l'appel au contrôle Windows Date and Time Picker."

Après quelques tests, j'ai constaté qu'il survient quand je passe d'un enregistrement dont le Grp = 0 et que je vais vers un enregistrement dont le Grp>1 et que dans cet enregistrement le contrôl Date contient une date.
Il m'affiche bien le contrôle mais il est grisé et la date est "Now".

Merci d'avance pour votre aide.

25/11/2007, 20h23
Gabout

Bonjour Tonio68,

Première question : quel est le type de ta valeur Me.Grp_Situation_Familiale ? Tel que tu l'as écrit, c'est de l'alphanumérique hors tu le dis plus loin dans ton propos

Citation:

Après quelques tests, j'ai constaté qu'il survient quand je passe d'un enregistrement dont le Grp = 0 et que je vais vers un enregistrement dont le Grp>1 et que dans cet enregistrement le contrôl Date contient une date.
Il m'affiche bien le contrôle mais il est grisé et la date est "Now".

Essaie dans un premier temps de changer If (Me.Grp_Situation_Familiale) = "1" Then par If (Me.Grp_Situation_Familiale) = 1 Then
ainsi que les autres lignes identiques...

Cordialement,
25/11/2007, 21h34
didier45

Bonjour,

Je sais pas si ça peut aider mais j'ai eu un problème similaire avec Date Time Picker. je voulais mettre la valeur now() par défaut à mon controle et j'avais une erreur. Finalement, c'était parce que mon controle était :
xxxx.visible = false
J'ai mis
xxxx.visible = True

et ça a marché !

A plus.
26/11/2007, 09h10
Tonio68

Citation:

Envoyé par Gabout

Bonjour Tonio68,

Première question : quel est le type de ta valeur Me.Grp_Situation_Familiale ? Tel que tu l'as écrit, c'est de l'alphanumérique hors tu le dis plus loin dans ton propos

Essaie dans un premier temps de changer If (Me.Grp_Situation_Familiale) = "1" Then par If (Me.Grp_Situation_Familiale) = 1 Then
ainsi que les autres lignes identiques...

Cordialement,

Pas mieux

Citation:

Envoyé par didier45

Bonjour,

Je sais pas si ça peut aider mais j'ai eu un problème similaire avec Date Time Picker. je voulais mettre la valeur now() par défaut à mon controle et j'avais une erreur. Finalement, c'était parce que mon controle était :
xxxx.visible = false
J'ai mis
xxxx.visible = True

et ça a marché !

A plus.

Pas mieux non plus