Application d'un test

Voilà, j'ia réalisé un petit test qui fonctionne très bien et qui consiste à
taper une date d enaissance pour avoir une MsgBox en retour qui indique le
jour de naissance ; j'ai réalisé dans un nouveau module mais je voudrais
appliquer ça dans un formulaire; j'aimerais un champs DateNaissance et une
fois tapé la date de naissance, avoir autoùtiquement dans un autre champs le
jour correspondant ( Ex : je tape 04/09/2004 dans le champs DateNaissance et
dans celui d'à côté s'affiche Samedi )

Bonjour à tous,
Voilà, j'ia réalisé un petit test qui fonctionne très bien et qui consiste
à

taper une date d enaissance pour avoir une MsgBox en retour qui indique le
jour de naissance ; j'ai réalisé dans un nouveau module mais je voudrais
appliquer ça dans un formulaire; j'aimerais un champs DateNaissance et une
fois tapé la date de naissance, avoir autoùtiquement dans un autre champs
le

jour correspondant ( Ex : je tape 04/09/2004 dans le champs DateNaissance
et

dans celui d'à côté s'affiche Samedi )
Je ne sais pas trop comment m'y prendre pour faire cela; à titre d'info,
voici mon test:
Sub JourNaissance()
Dim DateNaissance As Variant, JourNaissance As Byte
Do
dateNaissance= InputBox("Entrez votre jour de naissance au format
jj/mm/aaaa " _
+ Chr(13) + " Tapez 0 pour quitter le programme")
If DateNaissance = 0 Then
Exit Do
End If
JourNaissance = Weekday(JourNaissance)
Select Case JourNaissance
Case 1
MsgBox (" Vous êtes né un Dimanche")
Case 2
MsgBox (" Vous êtes né un Lundi")
Case 3
MsgBox ("Vous êtes né un Mardi")
Case 4
MsgBox ("Vous êtes né un Mercredi")
Case 5
MsgBox ("Vous êtes né un Jeudi")
Case 6
MsgBox ("Vous êtes né un Vendredi")
Case 7
MsgBox ("Vous êtes né un Samedi")
End Select
Loop

End Sub

Un grand merci pour votre aide ou vos conseils

--
@+
Ayrton
http://cerbermail.com/?FiLzjrFmWV
Click here to answer

Salut,

Voilà bien l'exemple de type de l'utilité de sauver de *vrai*
date dans de *vrai* champ date/heure !

Pour ce que tu cherche, il suffit de mettre dans
l'événement "Après mise à jour" du textbox ou tu saisi la date:

[txtJourNaissance] = Format([txtDateNaissance],"dddd")

Bonjour.

si on regarde ta procédure de test elle peut se réduire à:

Sub JourNaissance()
Dim DateNaissance As Variant
DateNaissance = Date
Do Until Nz(DateNaissance, "") = ""

If Len(DateNaissance) <> 0 Then MsgBox "Vous
êtes né un " & Format(DateNaissance, "dddd")

la fonction qui t'intéresse est celle-ci:
Format(DateNaissance, "dddd")

"Ayrton" <AS-anti_spam@wanadoo.fr> a écrit dans le message de
news:OoUijVnkEHA.2804@TK2MSFTNGP09.phx.gbl...

Bonjour à tous,
Voilà, j'ia réalisé un petit test qui fonctionne très bien et qui
consiste à taper une date d enaissance pour avoir une MsgBox en
retour qui indique le jour de naissance ; j'ai réalisé dans un
nouveau module mais je voudrais appliquer ça dans un formulaire;
j'aimerais un champs DateNaissance et une fois tapé la date de
naissance, avoir autoùtiquement dans un autre champs le jour
correspondant ( Ex : je tape 04/09/2004 dans le champs DateNaissance
et dans celui d'à côté s'affiche Samedi )
Je ne sais pas trop comment m'y prendre pour faire cela; à titre
d'info, voici mon test:
Sub JourNaissance()
Dim DateNaissance As Variant, JourNaissance As Byte
Do
dateNaissance= InputBox("Entrez votre jour de naissance au format
jj/mm/aaaa " _
+ Chr(13) + " Tapez 0 pour quitter le programme")
If DateNaissance = 0 Then
Exit Do
End If
JourNaissance = Weekday(JourNaissance)
Select Case JourNaissance
Case 1
MsgBox (" Vous êtes né un Dimanche")
Case 2
MsgBox (" Vous êtes né un Lundi")
Case 3
MsgBox ("Vous êtes né un Mardi")
Case 4
MsgBox ("Vous êtes né un Mercredi")
Case 5
MsgBox ("Vous êtes né un Jeudi")
Case 6
MsgBox ("Vous êtes né un Vendredi")
Case 7
MsgBox ("Vous êtes né un Samedi")
End Select
Loop

End Sub

Un grand merci pour votre aide ou vos conseils

--
@+
Ayrton
http://cerbermail.com/?FiLzjrFmWV
Click here to answer

Bonjour Raymond,

Aujourdh'hui
Raymond [mvp] <XYZ.access.seneque@free.fr> s'exprimait de la sorte :

Bonjour.

si on regarde ta procédure de test elle peut se réduire à:

Sub JourNaissance()
Dim DateNaissance As Variant
DateNaissance = Date
Do Until Nz(DateNaissance, "") = ""

C'est vrai que c'est plus rapide comme tu fais mais je ne maitrise pas
bien

le fonction Nz alors j'ai fais comme j'ai pu !! ,-)

If Len(DateNaissance) <> 0 Then MsgBox "Vous
êtes né un " & Format(DateNaissance, "dddd")

Si je comprends bien ta syntaxe, cela veut dire : "Si la longueur de
DateNaissance ne contient pas 0, alors MsgBox " Blabla......."
Est ce bien cela ?

la fonction qui t'intéresse est celle-ci:
Format(DateNaissance, "dddd")

Oui, Pierre 3 Stone venait juste de me la donner ;-)
En tout cas, merci beaucoup Raymond
Bon week End

Si la longueur d'une donnée est = 0 , la donnée est vierge , vide
(""), Nothing tout ce qu'on voudra selon le type. si le len est >0,
il y a une donnée (ce qui ne veut pas dire qu'elle est valide mais
qu'elle existe).

C'est noté Raymond !

"Ayrton" <AS-anti_spam@wanadoo.fr> a écrit dans le message de
news:%23b$tU7nkEHA.3632@TK2MSFTNGP09.phx.gbl...

Bonjour Raymond,

Aujourdh'hui
Raymond [mvp] <XYZ.access.seneque@free.fr> s'exprimait de la sorte :

Bonjour.

si on regarde ta procédure de test elle peut se réduire à:

Sub JourNaissance()
Dim DateNaissance As Variant
DateNaissance = Date
Do Until Nz(DateNaissance, "") = ""

C'est vrai que c'est plus rapide comme tu fais mais je ne maitrise
pas bien le fonction Nz alors j'ai fais comme j'ai pu !! ,-)

If Len(DateNaissance) <> 0 Then MsgBox "Vous
êtes né un " & Format(DateNaissance, "dddd")

Si je comprends bien ta syntaxe, cela veut dire : "Si la longueur de
DateNaissance ne contient pas 0, alors MsgBox " Blabla......."
Est ce bien cela ?

la fonction qui t'intéresse est celle-ci:
Format(DateNaissance, "dddd")

Oui, Pierre 3 Stone venait juste de me la donner ;-)
En tout cas, merci beaucoup Raymond
Bon week End