Discussion :

[micniv]

(dans un formulaire access 2000, en VBBA)
Je ne veux saisir que la partie HH:MM d'un champ date. Ce champ est défini dans une table en format "Date générale" car la partie "date" est aussi importante .
J'affiche ce champ date en format HH:MM (format date abrégée) mais je n'arrive pas à trouver le masque de saisie. Même avec le masque 09:00;0;_ dès que je mets le focus dessus, il me propose de resaisir la date complète.

Et dans les forums je n'ai pas trouvé la réponse...

Merci de votre aide

[Heureux-oli]

Essaye ça :

Code :

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

1
2
 
Format([date];"Short Time")

[micniv]

Essaye ça :

Code :

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

1
2
 
Format([date];"Short Time")

J'ai deja ce format dans le format (d'affichage) du controle.
C'est quand je passe à la saisie que la date dd/mm/aaaa s'affiche !!!

[stéphane_ais2]

Bonjour,

Este-ce que tu as regardé les fonctions Hour et Minute qui extrait d'une date respectivement le nombre d'heures et le nombre de minutes...

à tout hasard :

SE

[Julien Dufour]

Bonjour,

C'est normal qu'il te demande la date en saisie, cette information est stockée dans ta base, il faut bien que tu la renseignes quelque part.
Si ton champs est lié tu ne pourra pas empêcher la saisie de la date.

La seule solution est de définir ton champ comme indépendant. tu pourra alors définir le format de saisie désiré. A toi ensuite de gérer la mise à jour de ton champs dans la table en ajoutant l'heure saisie à la date (saisie dans un autre champ ou générer automatiquement selon ton traitement).

[ft035580]

Salut,

Je viens d'essayer avec une table dont le champ date est au format("Date générale") et ça fonctionne lorsque je fais ça:

Code :

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

1
2
3
4
Private Sub Date_GotFocus()
Me.Date = Format([Date], "Short Time")
Me.Date.InputMask = "00:00;0;_"
End Sub

[micniv]

Salut,

Je viens d'essayer avec une table dont le champ date est au format("Date générale") et ça fonctionne lorsque je fais ça:

Code :

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

1
2
3
4
Private Sub Date_GotFocus()
Me.Date = Format([Date], "Short Time")
Me.Date.InputMask = "00:00;0;_"
End Sub

Merci à tous , j'y suis enfin arrivé :
en rendant les champs de saisie Date et Heure indépendants
en mettant les lignes ci-dessus dans les evts GotFocus
un petit coup de DateSerial et TimeSerial dans les afterUpdate respectifs
Finalement, c'est pas si simple que ça !