[VB6] Gérer variable d'access

Bonsoir,

En fait, j'importe donc des variables provenant d'Access dans un recordset et j'aimerais faire des modifications sur ces variables. Il y en a 2 (Durée et Période) qui ont été défini dans access comme TIME...donc dans visual basic, l'utilisateur est obligé d'introduire une donnée de type 00:00 sinon le programme plante. Est-il possible de mettre un message à l'utilisateur s'il n'entre pas un format 00:00 dans la textbox??

Merci d'avance

(j'espère avoir +/- bien formulé ma question :mouarf: )

Pour clarifier un peu.

Je suppose que tu récupères des champs de base de données et pas des variables.

Je me trompe?

oui pardon, tu as bien raison mais ces champs sont définis en tant que TIME

Gere la saisie par l'événement Keypress (un exemple encore aujourd'hui) ou utilise le contrôle DtPicker (;) à Thierry)

Oui mais ce que je veux, c'est vérifier sur l'utilisateur a bien rentré qqch du style 00:00 et avec KeyPress il me semble que c'est impossible non?

Citation:

---

En fait, j'importe donc des variables provenant d'Access dans un recordset et j'aimerais

---

Oui on peut mettre une msgbox ! Je ne comprends pas trop bien le problème.
"ca plante" ne veut rien dire pour moi ; il faut utiliser l'instruction Format()
Voir le MSDN

moi je te propose un MaskEdit, evidement en prenant soin de choisir le masque de saisie.

quand je veux dire que "ça plante", et bien si par exemple dans la textbox représentant la durée, j'indique 2min13 au lieu de 2:13...et que je valide, VB me dit "Une opération en plusieurs étapes a généré des erreurs. Veuillez vérifiez chaque valeur d'état"

Sinon je trouve pas MaskEdit dans l'aide en ligne...:(

c'est un control que tu doit ajouter c'est fait ??

sinon c'est le controle "Microsoft Masked Edit Control 6.0" ou le fichier "C:\windows\system32\MSMASK32.ocx"

une fois que tu l'aura ajoute tu le selectionnes et tu fait "F1" tu aura desormais toutes la doc dessus.

PS: Pour ajouter un controle, fait Ctrl + t, une boite va s'ouvrir cherche le controle en question (dans notre cas le controle si dessus) ou alors tu click sur parcourir et tu recherches le fichiers (dans notre cas le fichier si dessus). Ensuite tu le selectionne et tu clique sur OK.

j'ai testé avec la fonction Format mais cela ne fonctionne pas...voici mon bout de code si jamais vous voyez une erreur

Code:

---

1 2 3 4 5

If txtedit(2).Text <> Format(txtedit(2).Text, "HH:mm:ss") Then MsgBox ("Veuillez introduire en format xx : xx") Exit Sub End If

---

et le maskedit que dit il ?? finalement je croit qu'il devrais resoudre ton pb.

En fait, j'ai ajouté donc le MaskEdBox...je lui ai précisé comme format hh:mm:ss mais j'arrive à introduire 2min14 dedans et il me met la mm erreur

dans les propriete du maskedit met "mask" a " ##:##:##" (lorsque je ne change que cette propriete chez moi, ca marche comme tu veux) .alors essai d'en faire de meme et tu nous donne le resultat.

merci bcp, j'ai trouvé!!!

Si tu as trouver satisfaction, alors n'oubli pas le tag [RESOLU]