Discussion :

[adelion7015]

Bonjour,

J'ai un sous formulaire, sur lequel j'ai un champ [dateenvoi] coté une case a cocher, j'essaye de faire en sorte que quant le case et cochée, le champ [dateenvoi] est renseigné avec la date du jour, pour cela j'ai mis le code suivant :

Code :

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

1
2
3
4
5
6
Private Sub Liquider_AfterUpdate()
If Not IsNull(Me.Liquider) Then
   Me.Controls(Me.Liquider) = Date
End If
 
End Sub

Mais des que je clique sur la case, j'ai ce message :

Erreur d'exécution '2458':
Le numéro de contrôle utilisé est supérieur au nombre de contrôles.

Merci pour votre aide.

Cordialement.

[hyperion13]

Salut
Une solution parmi tant d'autres.
Dans le module standard de votre subform, passez la sub suivante à condition que Liquider,soit bien votre case à cocher.

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Liquider_Click()
Dim rst As DAO.Recordset
 
Set rst = Me.RecordsetClone
 
If Me.Liquider Then
    Me.dateenvoi = Date
End If
End Sub

[adelion7015]

Bonjour,

Ca marche très bien, merci pour l'aide.

Cordialement.