Discussion :

[snoopy69]

Bonjour ...

J'aimerais stockée la date d'aujoud'hui dans une variable en VB ... mais je ne trouve pas la fonction qui permet de connaître la date d'aujourd'hui ...

Es ce que quelqu'un sait comment faire ???

J'ai recherché dans l'aide VB mais je n'ai pas trouvé ... j'ai fait aussi une petite recherche dans la FAQ mais rien ...

Merci de vos réponses et à tout bientôt ...

+++
++
+

[uskiki85]

La fonction Date donne la date système.
Pour aujourd'hui Date retournera la valeur "08/04/98"

La fonction Time donne l'heure système.
Pour maintenant Time retournera la valeur "11:10:00"

La fonction Day() donne le numéro du jour dans le mois.
Pour aujourd'hui Day(Date) retournera la valeur 8

La fonction Month() donne le numéro du mois dans l'année.
Pour aujourd'hui Month(Date) retournera la valeur 4

La fonction Year() donne le numéro de l'année.
Pour aujourd'hui Year(Date) retournera la valeur 1998

La fonction WeekDay() donne le numéro du jour dans la semaine sachant que le dimanche porte le numéro 1.

[snoopy69]

Bonjour et merci de ta réponse ... il y a quelque trucs que je ne comprends pas très bien ...

uskiki85 à dit :

La fonction Date donne la date système.
Pour aujourd'hui Date retournera la valeur "08/04/98"

Pourquoi cela ne retourne pas 12.10.2005 ??? je ne comprends pas trop le truc sur ce point la ...

merci pour toutes ces précisions ...

[snoopy69]

Précisions :

En faite, si j'ai besoin de la date d'aujoud'hui c'est tout simplement pour cela :

Code :

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

Forms!FORM_controle_des_poids_sortie_matiere.[date_du_jour].DefaultValue = ????

En faite, je cherche à afficher des valeurs par défaut à l'ouverture de mon formulaire et opur mon champ date, je cherche à avoir la date du jour par défaut dans mon champ.

J'ai essayé cette syntaxe :

Code :

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

Forms!FORM_controle_des_poids_sortie_matiere.[date_du_jour].DefaultValue = DATE()

mais cela ne fonctionne pas ...

J'ai aussi essayé de créer une variable dans laquelle j'aimerais stoquée la date du jour pour ensuite l'afficher mais je n'y parvient pas ...

Es ce que quelqu'un aurait une idée ???

[argyronet]

Re,

Pourquoi ne fais-tu pas cela sur l'événement Load ?

Code :

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

1
2
3
4
Private Sub Form_Load()
  Me!date_du_jour = Format(Now, "dd/mm/yyyy")
  '[...]
End Sub

Argy

[Tofalu]

Bonjour et merci de ta réponse ... il y a quelque trucs que je ne comprends pas très bien ...

uskiki85 à dit :

La fonction Date donne la date système.
Pour aujourd'hui Date retournera la valeur "08/04/98"

Pourquoi cela ne retourne pas 12.10.2005 ??? je ne comprends pas trop le truc sur ce point la ...

merci pour toutes ces précisions ...

Parce que c'est un extrait d'une documentation écrite le 8 avril 98

[snoopy69]

Argy à dit :

Pourquoi ne fais-tu pas cela sur l'événement Load ?

Si je ne fais pas cela sur l'événement LOAD c'est parceque je le fais sur l'événement Form_OPEN car en fait ces données doivent s'afficher dès l'ouverture du formulaire ...

J'ai essayé ceci :

Code :

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

1
2
3
4
5
6
Private Sub Form_Open(Cancel As Integer)
 
Forms!FORM_controle_des_poids_sortie_matiere.[fk_departement_provenance].DefaultValue = 4
Forms!FORM_controle_des_poids_sortie_matiere.[date_du_jour].DefaultValue = Format(Now, "dd/mm/yyyy")
 
End Sub

et cela ne marche pas ... je ne comprends pas pourquoi ... lorsque je quitte le mode modification de formulaire, j'ai #NUM dans mon champ date_du_jour

Cela vient de quoi ???

merci pour toutes ces précisions ...

[HORS - SUJET culturel ]


Tofalu à dit :

Parce que c'est un extrait d'une documentation écrite le 8 avril 98

C'est de l'humour ??? lol ... ... je rigole ... ...



[/HORS - SUJET culturel ]

[Tofalu]

Tout simplement :

Code :

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

1
2
3
4
5
6
Private Sub Form_Open(Cancel As Integer) 
 
[fk_departement_provenance]= 4 
[date_du_jour]= Format(Now, "dd/mm/yyyy") 
 
End Sub

[snoopy69]

Voici ce que j'ai fait :

Code :

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

1
2
3
4
5
6
Private Sub Form_Open(Cancel As Integer)
 
Forms!FORM_controle_poids_sortie_matiere.[fk_departement_provenance] = 4
Forms!FORM_controle_poids_sortie_matiere.[date_du_jour] = Format(Now, "dd/mm/yyyy")
 
End Sub

et voici le message d'erreur :

Erreur d'exécution '2448'
Impossible d'attribuer une valeur à cet objet

D'où peut venir ce problème : : :

[Tofalu]

Et sur l'evenement Load ?

[snoopy69]

Alors là.... ... ... j'ai rien compris ...

J'ai essayé et cela marche ... mais aucune idée pourquoi ...

Quelle est la différence entre OUVERTURE et CHARGEMENT du formulaire : :

En tou cas, cela marche ... mais j'aimerais bien comprendre le pourquoi du comment si cela serait possible ...

Merci en tout cas pour tout ...

++

[Tofalu]

L'evenement Open se produit avant le chargement des données

Load, aprés

[snoopy69]

Ahh d'accord ... ...

Merci Tofalu ... tu cartonne trop ... ...

Aller alors encore mille mercis et à tout bientôt ...

+++