Code VBA Access pour obtenir aaaammjjhhmmss à partir de now()
Résolu
doublem93
Messages postés
349
Statut
Membre
-
doublem93 Messages postés 349 Statut Membre -
doublem93 Messages postés 349 Statut Membre -
Bonjour,
Je souhaiterais avoir le code vba permettant d'inscrire dans un champ que je vais nommer IdAR la date et l'heure système sous un format texte de ce type AAAAMMJJHHMMSS au moment où je clique sur le bouton.
Ex : Si la date système indique que 18/06/2016 13:18:27, je voudrais obtenir 20160618131827
Merci pour votre aide
Je souhaiterais avoir le code vba permettant d'inscrire dans un champ que je vais nommer IdAR la date et l'heure système sous un format texte de ce type AAAAMMJJHHMMSS au moment où je clique sur le bouton.
Ex : Si la date système indique que 18/06/2016 13:18:27, je voudrais obtenir 20160618131827
Merci pour votre aide
A voir également:
- Code VBA Access pour obtenir aaaammjjhhmmss à partir de now()
- Code ascii - Guide
- Reboot system now - Guide
- Comment déverrouiller un téléphone quand on a oublié le code - Guide
- Scan now - Guide
- Creer un groupe whatsapp a partir d'un autre groupe - Guide
1 réponse
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
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.