Discussion :

[Claudine]

Bonjour à tous et meilleurs voeux pour cette année 2010
J'ai un formulaire de vente qui affiche automatiquement la date dans la zone texte "date"; Comment puis-je afficher automatiquement dans une autre zone texte appelée"mois" le mois correspondant à la date affichée?
Je rappelle que je travaille avec Access 2000
Pouvez-vous m'aider car je galère sur ce petit problème depuis 3 jours.
Merci d'avance
Sincères salutations
Claudine

[miamou]

Bonjour,
moi je travaille sous access 2007, mais je crois que la fonction marchera aussi chez toi.
je suppose que la date qui s'affiche est de la forme jj/mm/aaaa
dans ce cas la fonction à utiliser est :

Code :

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

1
2
Mid(Me.txtDate.Value, 4,2)
'est donc tu pourra récupérer le mois en chiffre

maintenant, est ce que tu veut l'afficher en lettres?

[rjamin]

Bonjour,

Dans la ligne Code source des propriétés du champ Mois écrire

Code :

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

=Mois([Date])

Merci pour les voeux et autant pour vous.

[Claudine]

Bonsoir rjamin
J'ai testé le code et il s'affiche erreur dans la zone texte
Est-ce parce qu'il s'agit d'une date automatique?
Par contre j'ai refait un tout petit programme avec une date que je tape dans le formulaire et le mois s'indique correctement dans la zone texte 'Mois' mais il y a un problème car ce mois ne s'enregistre pas dans la colonne'mois' de la table correspondante.
Pouvez-vous m'aider à distance?
Sincères remerciements
Claudine

[miamou]

il s'affiche Erreur, je crois, par ce que ton formulaire est lié à une table. Dans ce cas tu ne peux afficher que les données qui existe dans cette table.

[Claudine]

Bonsoir miamou,
j'ai refait un tout petit programme avec une date que je tape dans le formulaire et le code suivant

Code :

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

1
2
3
4
Private Sub Mois_Click()
Mid(Me.txtDate.Value, 4,2)
 
End Sub

Malheureusement la zone texte'Mois' affiche "Erreur de synthaxe"
Pouvez-vous adapter à access 2000?
Sincères remerciements
Claudine

[miamou]

Met plutot:

Code :

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

1
2
3
Me.txtMois.value = Mid(Me.txtDate.Value, 4, 2)
'txtMois c'et la zone de texte mois
'txtDate c'est la zone de texte Date

[Jeannot45]

J'ai un formulaire de vente qui affiche automatiquement la date dans la zone texte "date"; Comment puis-je afficher automatiquement dans une autre zone texte appelée"mois" le mois correspondant à la date affichée?

A quel moment la date s'affiche-t-elle dans la zone de texte "date" ? à l'ouverture du formulaire ?
(Remarque : très déconseillé de donner comme nom à une zone le nom déjà affecté à une fonction. Je te conseille plutôt d'utiliser la normalisation des dénomainations. Ainsis ta zone de texte devrait plutôt s'appeller "txtDate"

Puisque tu souhaites récupérer le mois de la date dans un champ lié à la table source du formulaire, tu peux simplement écrire dans l'évènement Sur Ouverture du formulaire :

Code :

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

Me.LeMois = Month(Date)

Maintenant, si la date est saisie manuellement, dans l'évènement Après Mise à jour, tu créeras le code suivant :

Code :

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

Me.LeMois = Month(CDate(txtDate))

Me représente le formulaire en cours
LeMois représente le champ dans lequel tu dois stocker la valeur du mois en cours.

Bonne continuation