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.