Discussion :

[modus57]

Bonjour le forum.

Je souhaiterais que le champ « DateDeSaisie » dans un formulaire récupère la valeur Date si un changement intervient dans le sous formulaire.

Voila le code de la propriété « Après mise à jour » du sous formulaire :

Code :

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

1
2
3
Private Sub Form_BeforeUpdate(Cancel As Integer)
    Forms![SouFormulaireClients]![DateDeSaisie.Value] = Date
End Sub

Ma syntaxe n’est certainement pas bonne, car si je modifie un champ du sous formulaire le champ « DateDeSaisie » dans le formulaire ne change pas ??

Comment faire pour corriger ce petit problème.

Merci d’avance pour votre réponse.

Cordialement modus57.

[Invité]

Bonjour

Je t'invite à faire un petit tour dans la FAQ, car ta syntaxe est incorrecte.

De plus ton code est sur lévènement "Avant Mise à Jour", et Non "Aprés Mise à jour".

Un petit coup de pour voir les événements du formulaire.


Starec

[modus57]

Bonjour Starec.

Après consultation de la FAQ, j'ai modifié ma syntaxe :

Code :

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

1
2
3
Private Sub Form_AfterUpdate()
    Forms![FormulaireCLIENTS].[DateDeSaisie.Value] = Date
End Sub

Cela ne s'améliore pas, si je modifie un champ du sous formulaire [SouFormulaireClients], le champ « DateDeSaisie » dans le formulaire [FormulaireCLIENTS] ne change pas ??

A quel joli navire, je rammmmmmmmmmmmmmmmmme.

J'espère que tu vas me donner une ligne de navigation.

@ +

[Invité]

Re

Je sais que ton code peut marcher si tu le mets sur l'évènement AfterUpdate d'un contrôle de ton sous-formulaire.

Starec

[modus57]

Re bonjour Starec.

J'ai placé le code sur l'évènement AfterUpdate d'un contrôle du sous-formulaire [SouFormulaireClients].

Voici le nouveau code:

Code :

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

1
2
3
Private Sub Libellé_AfterUpdate()
    Forms![FormulaireCLIENTS].DateDeSaisie.Value = Date
End Sub

Si je modifie ce contrôle, le champ « DateDeSaisie » dans le formulaire [FormulaireCLIENTS] ne change pas ??

J'ai essayé une autre syntaxe :

Code :

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

1
2
3
Private Sub Libellé_AfterUpdate()
    Forms![FormulaireCLIENTS]![DateDeSaisie.Value] = Date
End Sub

et une 3ème

Code :

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

1
2
3
Private Sub Libellé_AfterUpdate()
    Forms![FormulaireCLIENTS]![DateDeSaisie] = Date
End Sub

Cela ne marche pas.

Je ne suis pas très expérimenté en VBA ACCESS et la je patauge.

modus57

[modus57]

Bonjour Starec.

J’ai une piste c’est dans MVB =>Outils =>Références voir images ci-dessous :

[IMG][/IMG]

La 1ère image liste les références activées dans la BDD « MaBase » que je suis en train de concevoir.

La 2ème image liste les Références activées dans la BDD « bd1 » qui m’a servie pour tester si l’expression Date() fonctionne, et ça fonctionne bien.

J’ai activé par hasard les Références à l’identique de la BDD « bd1 » dans « MaBase » et l’expression Date() fonctionne. Dès qu’un changement intervient dans un contrôle du sous-formulaire « SousFormulaireClients » le contrôle « DateDeSaisie » dans le formulaire « FormulaireCLIENTS » affiche la date courante.

Par contre si je ferme « MaBase » et je l’ouvre à nouveau, la date courante dans le contrôle « DateDeSaisie » du formulaire « FormulaireCLIENTS » ne s’affiche plus. Si je modifie un contrôle du sous formulaire
« SousFormulaireClients » la date s’affiche ???

Je souhaiterais que la date reste affichée à l'ouverture de la BDD "MaBase".

Encore un tracasserie que je n’arrive pas régler.

Un petit coup de pouce serait le bien venu.

Merci d’avance @ +

[modus57]

Bonjour à tous.

Je reviens sur ce fil pour préciser ce je que je cherche à faire.

Le but à atteindre : afficher dans le contrôle « DateDeSaisie » du formulaire « FormulaireCLIENTS » la date de la dernière modification ou du dernier enregistrement dans le sous-formulaire « SousFormulaireClients ».

J’espère que cela permettra de mieux comprendre le problème.

Cordialement modus57

[mystikgirl30]

Salut !!

Est ce que tu as un champ "date" dans ton sous-formulaire ?

[modus57]

Bonjour mystikgirl30.

Merci de t'intéresser à cette discussion.

Pour répondre à ta question, j'avais un champ "Date" dans mon sous-formulaire et comme je craignais qu'il provoque une confusion, je l'ais remplacé par "DateType".

@ +

[mystikgirl30]

Je sollicite assez souvent les gentils gens d'ici alors je peux aider à mon tour

Ce que j'aimerais savoir c'est si dans ton sous-formulaire, tu saisis une date ou si elle s'incrémente toute seule ?

Je te donne une idée de programmation mais je garantis pas le résultat quand même (je reprends les noms de controle que tu as mis entre guillemets)

Code :

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

me.DateDeSaisie.value=[forms]![FormulaireClients]![sousFormulaireClients]![DateType].value

Ici, tu prends la valeur qui est dans ton champ datetype du sous formulaire et tu la mets dans le champ datedesaisie du formulaire.

J'espère que j'ai été assez claire et que ça va marcher surtout !
Tiens moi au courant !

[modus57]

Re bonjour mystikgirl30.

Dans mon sous-formulaire la date est incrémentée toute seule.

J'ai placé le code suivant sur l'évènement AfterUpdate du sous-formulaire [SouFormulaireClients].

Code :

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

1
2
3
Private Sub Form_AfterUpdate()
Forms![FormulaireCLIENTS].DateDeSaisie.Value = Date
End Sub

[mystikgirl30]

Bonjour, désolée de ne repondre que mainenant mais le pont a eu raison de ma reflexion sur ACCESS

Je vois que tu as résolu ton problème, c'est cool !

Bonne journée ++