Fermeture de formulaire et insertion date du jour

**noutfi35** · 27/12/2007, 11h47

Bonjour à tous,

J'ai un formulaire basé sur une table, Je voudrais qu'à la fermeture de mon formulaire, la date du jour se mette automatiquement dans ma table dans le champ "DATE_COURRIER".

Merci d'avance

**Damran** · 27/12/2007, 12h36

Bonjour,

Il faut utiliser l'evenement "onclose" de ton formulaire... qui s'exécute donc à la fermeture du formulaire.
Et dedans, tu y met de quoi remplir ton champ :

Code :

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

1
2
3
4
 
Private Sub Form_Close()
  Me.DATE_COURRIER.value = date()
End Sub

**noutfi35** · 27/12/2007, 14h04

C'est ce que j'ai fait mais il me met "cette commande va arreter le débogueur"

**Renardo** · 27/12/2007, 14h15

Bonjour
A tu essayes avec un bouton qui fermerait ton formulaire?

**noutfi35** · 27/12/2007, 14h17

Oui, j'ai un bouton qui le ferme

**Renardo** · 27/12/2007, 14h22

Pourquoi ne met tu pas le code sur le bouton

Code :

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

1
2
Me.DATE_COURRIER = date()
docmd.close acform,"nom du form"

**noutfi35** · 27/12/2007, 14h25

Ca ne marche que pour le dernier enregistrement qui apparait dans le formulaire

**Renardo** · 27/12/2007, 14h31

Tu as un formulaire en mode continu ?

**noutfi35** · 27/12/2007, 14h32

oui

**Renardo** · 27/12/2007, 14h37

Il faut que je fasse un test avant de te dire des bêtises

**Damran** · 27/12/2007, 14h43

Envoyé par noutfi35

C'est ce que j'ai fait mais il me met "cette commande va arreter le débogueur"

Ma remarque va peut-être te paraitre bête (dans ce cas, désolé), mais en générale il te mets ça justement quand tu debug. Clique sur le bouton "stop" de la fenêtre de débogage (ou la touche échape) et essai de nouveau de fermer ton formulaire.

bon courrage

**noutfi35** · 27/12/2007, 15h40

Ca ne marche pas.

Quand j'insère mon code, il me surligne en jaune "Me.DATE_COURRIER.value = date()"

**Renardo** · 28/12/2007, 08h42

Bonjour
Une des solutions est de passer par une requete mise a jour

**noutfi35** · 28/12/2007, 11h48

comment dois-je faire ?

**Gabout** · 28/12/2007, 13h38

Bonjour,

Essaie

Code :

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

1
2
3
docmd.setwarnings False   'Messages d'alerte hors fonction
docmd.runSQL "UPDATE Nom_du_formulaire SET Nom_du_formulaire.DATE_COURRIER = Date();"
docmd.setwarnings True    'Messages d'alerte en fonction

**Renardo** · 28/12/2007, 13h47

La requete doit etre dans se style

Code :

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

UPDATE Courrier SET Courrier.[Date courrier] = Date();

Courrier = Nom de la table
Ensuite a toi de voir si tu ne veux pas modifier toute les date courrier de la table de metre un critere dans la requete
ensuite il te reste plus qu'a lancer la requete avec le bouton quitter

Code :

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