Message sur formulaire

Fermé
LApprenti2 Messages postés 14 Date d'inscription mardi 15 mai 2012 Statut Membre Dernière intervention 27 septembre 2013 - 25 sept. 2013 à 15:34
 lapprenti2 - 7 oct. 2013 à 08:57
Bonjour,

Access 2010

j'ai dans le formulaire 1, un bouton "mise a jour des fichiers de base" qui, sur un clic lance une macro qui épure de gros fichiers afin de pouvoir travailler plus vite par la suite.

à la fin de la macro j'ai mise une zone message qui dit "Mise à jour fichier de base terminée" on clic sur ok .

1) a partir de là, est t'il possible d'afficher dans une zone de texte du dit formulaire le message suivant "dernière mise à jour le (jour/mois/année et heure)25/09/2013 à 14 h 10"

2) que ce message reste même après fermeture de la base, jusqu'à ce que l'on clic de nouveau sur le bouton "mise a jour des fichiers de base"

3) je ne connais rien VBA.

merci d'avance




--
A voir également:

8 réponses

blux Messages postés 26531 Date d'inscription dimanche 26 août 2001 Statut Modérateur Dernière intervention 16 décembre 2024 3 317
26 sept. 2013 à 11:28
Salut,

1 - Oui
2 - Oui
3 - C'est pas grave...
0
LApprenti2 Messages postés 14 Date d'inscription mardi 15 mai 2012 Statut Membre Dernière intervention 27 septembre 2013
26 sept. 2013 à 15:15
bonjour,

merci pour la réponse,

pourrai- je avoir la solution, spv

@+ Lapprenti2



--
0
blux Messages postés 26531 Date d'inscription dimanche 26 août 2001 Statut Modérateur Dernière intervention 16 décembre 2024 3 317
26 sept. 2013 à 15:21
1 - Il faut créer une zone de texte dans le formulaire et rajouter une ligne de code VBA dans le bouton "mise à jour des fichiers de base". Ce code ressemblera à ça :

zone_de_texte.value = "derniere mise à jour le " & date & " à " time

2 - Rien à toucher
0
LApprenti2 Messages postés 14 Date d'inscription mardi 15 mai 2012 Statut Membre Dernière intervention 27 septembre 2013
26 sept. 2013 à 17:09
re bonjour

merci
qu'entend tu par zone de texte

zone de texte ou étiquette

j'ai inséré une zone texte "TEXTE 30"

ensuite je suis allé dans mon bouton de commande, ou j'ai fait crée code événement, générateur de code, ou j'ai collé ton code:

Private Sub Commande0_Click()

End Sub

Private Sub Commande0_DblClick(Cancel As Integer)
zone_de_texte.value = "derniere mise à jour le " & date & " à " time
End Sub
0
blux Messages postés 26531 Date d'inscription dimanche 26 août 2001 Statut Modérateur Dernière intervention 16 décembre 2024 3 317
26 sept. 2013 à 21:02
le code VBA est à rajouter au code existant qui lance la macro...

et je viens de m'apercevoir que j'ai oublié un &...

C'est :

zone_de_texte.value = "derniere mise à jour le " & date & " à " & time 
Où zone_de_texte est le nom de la zone de texte (et pas une étiquette) que tu viens de créer.
0
LApprenti2 Messages postés 14 Date d'inscription mardi 15 mai 2012 Statut Membre Dernière intervention 27 septembre 2013
27 sept. 2013 à 08:47
bonjour BLUX,

merci pour ta patience,

donc si j'ai bien compris le code que je doit rajouté est:

Texte30.value = "derniere mise à jour le " & date & " à " & time

pour le rajouter au code je passe par l'onglet événement de la propriété du bouton.

sur double clic : MAC_001_MISE A JOUR FICHIERS DE BASE

je suppose un séparateur ?

Texte30.value = "derniere mise à jour le " & date & " à " & time

cela devrait donner quelque chose comme cela ?

sur double clic MAC_001_MISE A JOUR FICHIERS DE BASE;Texte30.value = "derniere mise à jour le " & date & " à " & time

cette syntaxe ne fonctionne pas.
0
blux Messages postés 26531 Date d'inscription dimanche 26 août 2001 Statut Modérateur Dernière intervention 16 décembre 2024 3 317
27 sept. 2013 à 10:02
Ton bouton doit déjà avoir du code (dans l'évènement 'sur clic', je suppose) : celui qui lance la macro.
Il suffit de rajouter la ligne à la fin, avant le 'End Sub'.
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
LApprenti2 Messages postés 14 Date d'inscription mardi 15 mai 2012 Statut Membre Dernière intervention 27 septembre 2013
27 sept. 2013 à 13:51
oui j'ai dans l'onglet propriété (du bouton) puis l'onglet Evénement, sur la ligne double clic:

MAC_001_MISE A JOUR FICHIERS DE BASE

mais c'est tout

en mode création si je clic sur générateur de code du bouton , je n'est pas de code VBA

c'est dommage que l'on ne puisse pas coller des copies d'écran

là je suis perdu,
0
blux Messages postés 26531 Date d'inscription dimanche 26 août 2001 Statut Modérateur Dernière intervention 16 décembre 2024 3 317
Modifié par blux le 30/09/2013 à 10:51
On peut coller des images sur le site...

Ce qu'on va faire, c'est changer le mode d'appel de la macro, on va le mettre en VBA.

Tu vas aller sur ton bouton et sur la ligne double-clic tu vas choisir 'Procédure evenementielle'.
Ca va ouvrir une fenêtre VBA.
Tu y colleras ensuite les lignes suivantes (entre le Private Sub et le End Sub) :

DoCmd.RunMacro "MAC_001_MISE A JOUR FICHIERS DE BASE "
Texte30.value = "derniere mise à jour le " & date & " à " & time

Ca devrait marcher...
0
Bonjour Blux,

merci de ton aide,

avec ce code çà marche:

Private Sub Commande0_DblClick(Cancel As Integer)

DoCmd.RunMacro "MAC_001_MISE_A_JOUR_FICHIERS_DE_BASE"

Texte30.Value = " Derniere mise à jour le " & Date & " à " & Time

End Sub


s'en vouloir abuser, je souhaiterai que lorsque que l'utilisateur ferme la base cette information reste et apparaisse à la prochaine ouverture, ce qui n'est pas le cas.

a l'ouverture la zone de texte 30 est vide.

encore merci
Lapprenti2
0
blux Messages postés 26531 Date d'inscription dimanche 26 août 2001 Statut Modérateur Dernière intervention 16 décembre 2024 3 317
Modifié par blux le 3/10/2013 à 13:41
Ce n'est pas abuser, c'était posé au début, j'ai juste zappé ;-)

Le truc n'est pas simple, donc on va ruser :

- créer un objet de type 'module'.
- ajouter dans ce module la ligne suivante :
Public DerDate As String
- enregistrer le module
- changer le code affecté au bouton par les lignes suivantes :
DoCmd.RunMacro "MAC_001_MISE_A_JOUR_FICHIERS_DE_BASE"
DerDate = " Derniere mise à jour le " & Date & " à " & Time
Texte30.Value = DerDate
- ajouter du code dans l'évènement "sur ouverture' du formulaire :
Texte30.Value = DerDate
Ca devrait fonctionner...
0
re

ok mais je n'ai pas d'événement "sur ouverture"

sur clic
sur réception focus
sur perte focus
sur double clic
sur souris relâchée
sur suris appuyée
sur souris déplacée
sur touche appuyée
sur touche relâchée
sur touche active
sur entre
sur sortie

petite précision le formule "Formulaire1" s'ouvre à l'ouverture de la base.

j'ai fait un essai avec "sur entrée" çà marche
0
blux Messages postés 26531 Date d'inscription dimanche 26 août 2001 Statut Modérateur Dernière intervention 16 décembre 2024 3 317
4 oct. 2013 à 21:43
Si tu n'as pas d'évènement 'sur ouverture', c'est que tu n'as fait défiler assez la zone des évènements...
0
bonjour Blux,

non c'est que j'était dans les propriétés du bouton au lieu d'être dans les propriétés du Formulaire....

maintenant que je suis allé au bon endroit, cela fonctionne tant que je ne ferme pas la base de donnée,

est ce possible de faire la même chose à l'ouverture de la base en sachant quelle ouvre sur le formulaire 1

encore merci
0