J'ai un =E9cran avec 2 champs de date que je voudrais=20
remplir avec de valeurs par d=E9faut
le 1er avec le 1er jour du mois
et la seconde la derniere date du jour
Comment pourrais-je realiser cela ?
merci beaucoup
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Raymond
Bonsoir.
pour le premier champ avec le premier jour du mois tu fais en vba Me.madate.DefaultValue = """" & DateSerial(Year(Date), Month(Date), 1) & """" ou directement en modification de formulaire dans la valeur par défaut du champ: SérieDate(Année(Date());Mois(Date());1)
pour le second qu'appelles-tu la dernière date du jour ?
-- @+ Raymond Access MVP. http://access.seneque.free.fr/ http://users.skynet.be/mpfa/charte.htm pour une meilleure efficacité de tes interventions sur MPFA.
"Mei Hua" a écrit dans le message de news:035e01c37d45$98a484c0$ Bonjour,
J'ai un écran avec 2 champs de date que je voudrais remplir avec de valeurs par défaut le 1er avec le 1er jour du mois et la seconde la derniere date du jour Comment pourrais-je realiser cela ? merci beaucoup
Bonsoir.
pour le premier champ avec le premier jour du mois tu fais en vba
Me.madate.DefaultValue = """" & DateSerial(Year(Date), Month(Date), 1) &
""""
ou directement en modification de formulaire dans la valeur par défaut du
champ:
SérieDate(Année(Date());Mois(Date());1)
pour le second qu'appelles-tu la dernière date du jour ?
--
@+
Raymond Access MVP.
http://access.seneque.free.fr/
http://users.skynet.be/mpfa/charte.htm pour une meilleure
efficacité de tes interventions sur MPFA.
"Mei Hua" <Lieumeihua@yahoo.fr> a écrit dans le message de
news:035e01c37d45$98a484c0$a301280a@phx.gbl...
Bonjour,
J'ai un écran avec 2 champs de date que je voudrais
remplir avec de valeurs par défaut
le 1er avec le 1er jour du mois
et la seconde la derniere date du jour
Comment pourrais-je realiser cela ?
merci beaucoup
pour le premier champ avec le premier jour du mois tu fais en vba Me.madate.DefaultValue = """" & DateSerial(Year(Date), Month(Date), 1) & """" ou directement en modification de formulaire dans la valeur par défaut du champ: SérieDate(Année(Date());Mois(Date());1)
pour le second qu'appelles-tu la dernière date du jour ?
-- @+ Raymond Access MVP. http://access.seneque.free.fr/ http://users.skynet.be/mpfa/charte.htm pour une meilleure efficacité de tes interventions sur MPFA.
"Mei Hua" a écrit dans le message de news:035e01c37d45$98a484c0$ Bonjour,
J'ai un écran avec 2 champs de date que je voudrais remplir avec de valeurs par défaut le 1er avec le 1er jour du mois et la seconde la derniere date du jour Comment pourrais-je realiser cela ? merci beaucoup
Anor
Bonjour
Mei Hua a confié : | Bonjour, | | J'ai un écran avec 2 champs de date que je voudrais | remplir avec de valeurs par défaut | le 1er avec le 1er jour du mois | et la seconde la derniere date du jour | Comment pourrais-je realiser cela ? | merci beaucoup
Pour le premier champ (si je comprends "premier jour du mois en cours"): ÚteSerial(Year(Date());Month(Date());1)
Pour le second (si je comprends bien "dernier jour du mois en cours") : ÚteSerial(Year(Date());Month(Date())+1;0)
Mei Hua <Lieumeihua@yahoo.fr> a confié :
| Bonjour,
|
| J'ai un écran avec 2 champs de date que je voudrais
| remplir avec de valeurs par défaut
| le 1er avec le 1er jour du mois
| et la seconde la derniere date du jour
| Comment pourrais-je realiser cela ?
| merci beaucoup
Pour le premier champ (si je comprends "premier jour du mois en cours"):
ÚteSerial(Year(Date());Month(Date());1)
Pour le second (si je comprends bien "dernier jour du mois en cours") :
ÚteSerial(Year(Date());Month(Date())+1;0)
Mei Hua a confié : | Bonjour, | | J'ai un écran avec 2 champs de date que je voudrais | remplir avec de valeurs par défaut | le 1er avec le 1er jour du mois | et la seconde la derniere date du jour | Comment pourrais-je realiser cela ? | merci beaucoup
Pour le premier champ (si je comprends "premier jour du mois en cours"): ÚteSerial(Year(Date());Month(Date());1)
Pour le second (si je comprends bien "dernier jour du mois en cours") : ÚteSerial(Year(Date());Month(Date())+1;0)
