Discussion :

[Tonio68]

Bonjour,

J'ai une soucis avec mon DatePicker.

J'ai mis ce code dans le Form

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

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

[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

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,

[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.

[Tonio68]

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

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