Discussion :

[mcfly37]

Bonjour bonjour

J'ai un léger problème avec la fonction date, je veut que à l'ouverture d'un formulaire, un des contrôles de ce formulaire prenne la valeur de la date du jour, j'ai donc écris ce code :

Code :

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

1
2
3
4
5
6
7
8
Private Sub Form_Open(Cancel As Integer)
 
    If Nz(Me.txtDateDebut.Value, "") = "" Then
 
        Me.txtDate.Value = Date
    End If
 
End Sub

Mais le problème est que la fonction Date me renvoie la valeur Null, elle est pourtant bien censée renvoyer la date du jour non?

De plus j'ai ensuite essayé cet autre code en remplacant la fonction date par Now :

Code :

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

1
2
3
4
5
6
7
8
Private Sub Form_Open(Cancel As Integer)
 
    If Nz(Me.txtDateDebut.Value, "") = "" Then
 
        Me.txtDate.Value = Now
    End If
 
End Sub

Mais la message d'erreur :

erreur d'éxécution '2448'
Impossible d'attribuer une valeur à cet objet

Sachant que le champ dans lequel je met cette date est un champ avec le format date, abrégé ce explique surement que ca ne marche pas avec Now qui renvoi la date et l'heure

Voila je bloque un peu sur la date la, j'ai pourtant bien regarder les tutos et ma syntaxe me parait bonne, je ne sais que faire...

Cordialement

Mcfly

[LedZeppII]

Bonjour,

Il y a peut être un conflit entre un nom de champ Date et la propriété Date de la bibliothèque VBA.

Essaie

Code :

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

        Me.txtDate.Value = VBA.Date

Pour l'autre erreur, je ne vois pas.

A+

[Tofalu]

Bonjour,

Peut être est ce plutôt l'évènement qui est mal choisi. Il faudrait essayer sur Load qui intervient après.

[LE VIEUX]

bonsoir,
et avec :

Code :

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

1
2
3
4
5
6
Private Sub Form_Current()
If IsNull(Me.txtDateDebut) Then
Me.txtDate = Date
End If
 
End Sub

[mcfly37]

bonjours à vous trois

et bien c'était ma fois LedZeppII qui avait raison, j'ai remplacé Date par VBA.Date et ca marche parfaitement donc merci à vous pour ces réponses si rapides

Cordialement

Mcfly