Code VBA Access pour obtenir aaaammjjhhmmss à partir de now()
Résolu/Fermé
doublem93
Messages postés
337
Date d'inscription
samedi 16 août 2008
Statut
Membre
Dernière intervention
20 novembre 2016
-
19 juin 2016 à 17:46
doublem93 Messages postés 337 Date d'inscription samedi 16 août 2008 Statut Membre Dernière intervention 20 novembre 2016 - 20 juin 2016 à 22:08
doublem93 Messages postés 337 Date d'inscription samedi 16 août 2008 Statut Membre Dernière intervention 20 novembre 2016 - 20 juin 2016 à 22:08
A voir également:
- Code VBA Access pour obtenir aaaammjjhhmmss à partir de now()
- Code ascii de a - Guide
- Recherche a partir dune photo - Guide
- Code de déverrouillage oublié - Guide
- Code puk bloqué - Guide
- Code blocks free - Télécharger - Langages
1 réponse
le meruvien
Messages postés
1111
Date d'inscription
vendredi 12 août 2011
Statut
Membre
Dernière intervention
15 avril 2024
40
20 juin 2016 à 06:51
20 juin 2016 à 06:51
bonjour,
Voila! c'est peut etre pas élégent, mais ça marche!
J'ai mis 3 champs, qui peuvent bien sur être cachés!
1) il prend la date la date et l'heure: =Date() & Temps()
2) il enlève les barres /
3) il enlève les :
le 4eme, est le premier champ de ton formulaire, et a la propriété sur réception de focus, tu met:
Donc a l'ouverture de ton form, dans le champ texte3, il affiche ce que tu veut!
Si tu veut plus d'explication, je suis chez free, et mon ID est vdb.roger
Roger
Voila! c'est peut etre pas élégent, mais ça marche!
J'ai mis 3 champs, qui peuvent bien sur être cachés!
1) il prend la date la date et l'heure: =Date() & Temps()
2) il enlève les barres /
3) il enlève les :
le 4eme, est le premier champ de ton formulaire, et a la propriété sur réception de focus, tu met:
Texte2 = Replace(Texte0, "/", "")
Texte3 = Replace(Texte2, ":", "")
Donc a l'ouverture de ton form, dans le champ texte3, il affiche ce que tu veut!
Si tu veut plus d'explication, je suis chez free, et mon ID est vdb.roger
Roger
Modifié par doublem93 le 20/06/2016 à 22:10
J'ai trouvé le code suivant
Sur un Command click
Private Sub Commande8_Click()
Me![IdLRAR].Value = Format(Date, "yyyymmdd" ) & Format( Time, "HhNnSs" )
End Sub
Donc quand je clique sur le bouton, j'obtiens bien dans le champ IdLRAR la donnée date et heure système de l'instant où je clique sur le bouton sous la forme 20160618131827.