[VB6] Gérer variable d'access

**boudincweole10** · 08/05/2006, 18h57

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

)

**AlainTech** · 08/05/2006, 19h19

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?

**boudincweole10** · 08/05/2006, 19h23

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

**jmfmarques** · 08/05/2006, 20h03

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

à Thierry)

**boudincweole10** · 08/05/2006, 20h15

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?

mat.M · 08/05/2006, 20h15

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

**sovo** · 08/05/2006, 20h20

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

**boudincweole10** · 08/05/2006, 20h29

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"

**boudincweole10** · 08/05/2006, 20h31

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

**sovo** · 08/05/2006, 20h41

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.

**boudincweole10** · 08/05/2006, 20h47

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

Code :

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

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

**sovo** · 08/05/2006, 20h50

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

**boudincweole10** · 08/05/2006, 20h59

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

**sovo** · 08/05/2006, 21h07

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.

**boudincweole10** · 08/05/2006, 21h26

merci bcp, j'ai trouvé!!!

**sovo** · 10/05/2006, 15h26

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

[VB6] Gérer variable d'access

VB 6 et antérieur

Discussions similaires

Partager

Partager