Ajouter/Enlever des 0

Question

salu alor voila j ai un formulaire avec une variable NumID.
Celle ci recoit :

NumID = Val(Mid(rs_ibm("NumIdCertificat"), 5, Len(rs_ibm("NumIdCertificat")) - 4)) + 1

la date systeme + est incrémentée automatiquement.
Ce que j aimerais faire c enlever la date systeme et afficher deux 0 s il n y a qu un chiffre, un s il y en a deux etc ..
(au lieu d avoir "20031" je voudrais avoir "001" ou "011")
Merci de maider !:p a ++

cs_rene38 · Answer

Bonjour
C'est ta variable NumID qui vaut "20031", "20032", ..., "200312" ?

brokenbracelet · Answer

oui la variable NumID est un textbox et jy affecte l annee systeme + 1 a chaque click

cs_rene38 · Answer

Essaie 

Format(Mid(NumID, 5),"000")

brokenbracelet · Answer

En fait je crois que je me suis mal exprimé oups ! dsl ! 
j affiche un msFlexGrid avec certains champs provenant d une requete a savoir NumIdCertificat (celui la a pour valeur par exemple 20031) ,PartNo,NumSerie,Date

et donc j aimerais qu a laffichage du Grid s il s agit d un seul chiffre rajouter deux 0 sinon un zero !

Merci de mavoir aidé et dsl encore ! ++

cs_Benouille · Answer

bon je suis pas sur d'avoir compris ce que tu veux mais :

¹dans ta colonne, si tu veux afficher le texte '001' alors tu dois l'afficher en tant que texte.

²ensuite tu regarde la taille de ton numid et tu rajoutes les 0

avec un code du genre:
txtnumid= cstr(numid)
txtnumid= iif ( len(txtnumid)=1, "0",empty) & txtnumid

(ça rajoute le caracère "0" si la chaine ne fais qu'un de longueur)

j'ai bien compris la question?
Benouille la grenouille

brokenbracelet · Answer

oui c a peu pres ca en fait ! merci ! on peut faire ca avec :

if  Is Numeric(Mid("recordset",5,1)

?

Ajouter/Enlever des 0

6 réponses

Discussions similaires