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
lapprenti2 - 7 oct. 2013 à 08:57
A voir également:
- Message sur formulaire
- Comment recuperer un message supprimé sur whatsapp - Guide
- Message d'absence thunderbird - Guide
- Ce compte ne peut pas recevoir vos messages car il n’autorise aucune invitation par message ✓ - Forum Facebook
- Laisser un message vocal et raccrocher - Forum Mobile
- Messenger impossible de retirer le message ✓ - Forum Facebook Messenger
8 réponses
blux
Messages postés
26006
Date d'inscription
dimanche 26 août 2001
Statut
Modérateur
Dernière intervention
25 avril 2024
3 289
26 sept. 2013 à 11:28
26 sept. 2013 à 11:28
Salut,
1 - Oui
2 - Oui
3 - C'est pas grave...
1 - Oui
2 - Oui
3 - C'est pas grave...
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
26 sept. 2013 à 15:15
bonjour,
merci pour la réponse,
pourrai- je avoir la solution, spv
@+ Lapprenti2
--
merci pour la réponse,
pourrai- je avoir la solution, spv
@+ Lapprenti2
--
blux
Messages postés
26006
Date d'inscription
dimanche 26 août 2001
Statut
Modérateur
Dernière intervention
25 avril 2024
3 289
26 sept. 2013 à 15:21
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 :
2 - Rien à toucher
zone_de_texte.value = "derniere mise à jour le " & date & " à " time
2 - Rien à toucher
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
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
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
blux
Messages postés
26006
Date d'inscription
dimanche 26 août 2001
Statut
Modérateur
Dernière intervention
25 avril 2024
3 289
26 sept. 2013 à 21:02
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 :
et je viens de m'apercevoir que j'ai oublié un &...
C'est :
zone_de_texte.value = "derniere mise à jour le " & date & " à " & timeOù zone_de_texte est le nom de la zone de texte (et pas une étiquette) que tu viens de créer.
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
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.
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.
blux
Messages postés
26006
Date d'inscription
dimanche 26 août 2001
Statut
Modérateur
Dernière intervention
25 avril 2024
3 289
27 sept. 2013 à 10:02
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'.
Il suffit de rajouter la ligne à la fin, avant le 'End Sub'.
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
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,
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,
blux
Messages postés
26006
Date d'inscription
dimanche 26 août 2001
Statut
Modérateur
Dernière intervention
25 avril 2024
3 289
Modifié par blux le 30/09/2013 à 10:51
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) :
Ca devrait marcher...
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...
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
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
blux
Messages postés
26006
Date d'inscription
dimanche 26 août 2001
Statut
Modérateur
Dernière intervention
25 avril 2024
3 289
Modifié par blux le 3/10/2013 à 13:41
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 :
- changer le code affecté au bouton par les lignes suivantes :
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"- ajouter du code dans l'évènement "sur ouverture' du formulaire :
DerDate = " Derniere mise à jour le " & Date & " à " & Time
Texte30.Value = DerDate
Texte30.Value = DerDateCa devrait fonctionner...
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
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
blux
Messages postés
26006
Date d'inscription
dimanche 26 août 2001
Statut
Modérateur
Dernière intervention
25 avril 2024
3 289
4 oct. 2013 à 21:43
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...
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
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
