Discussion :

[modus57]

Bonsoir le forum.

Dans le code ci-dessous la date est envoyée dans le contrôle indépendant Texte540

Code :

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

1
2
3
4
Private Sub Enregistrement_Click()    
    Me.Texte540.Value = Format(#4/24/2007#)
    DoCmd.Save acForm, "FormulaireCLIENTS"
End Sub

Par contre dans le code ci-dessous une valeur nulle est envoyée dans le contrôle indépendant Texte540 pourquoi ???

Code :

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

1
2
3
4
Private Sub Enregistrement_Click()    
    Me.Texte540.Value = Date
    DoCmd.Save acForm, "FormulaireCLIENTS"
End Sub

Pourriez-vous m’apporter une réponse SVP, merci d’avance.

[pgz]

Bonjour.

Voici une cause possible : dans la requête source du formulaire, un champ, peut être même celui qui est source de Texte540, s'appelle "Date".

Facile à vérifier.

Bon courage,

PGZ

[modus57]

Bonjour pgz.

Effectivement il restait dans une requête un champ nommé « Date » que j’ai renommé « DateType », la cause du dysfonctionnement.

Pourtant j’avais coché les trois cases dans => Outils => Options => Général => Correction automatique des noms.

Mais à prime abord cela ne fonctionne pas pour tous les champs et notamment pour les noms dans « Regroupement » d’un état, c’est gênant.

Finalement la solution au problème est simple, j’ai eu du mal à la trouver, il ne faut pas utiliser un contrôle texte, puisque les données d'une zone de texte indépendante ne sont pas stockées.

Alors j’ai eu l’idée d’utiliser la propriété légende (Caption) d’une étiquette pour stockée la date de la dernière modification ou enregistrement dans le formulaire.

Code :

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

1
2
3
4
Private Sub Enregistrement_Click() 
Forms![FormulaireCLIENTS]![Étiquette542].Caption = FormatDateTime(Date, 2)
DoCmd.Save acForm, "FormulaireCLIENTS" 
End Sub

Merci pour ton aide, je crois que le problème et , qu'en penses-tu !!

Cordialement modus57.