X antal cifre i et tal!!

format(nr,"000")

Sæt evt. følgende på lostfocus:

text1.text = format(text1.text,"000")

Hej.

Dette er lige sakset fra et af min projekter.  Her dannes varenumre ved udfyldning med nuller.

  If lbnr + 1 > 999 Then txtdata(0).Text = grpnr & "-" & lbnr + 1
  If lbnr + 1 > 99 Then txtdata(0).Text = grpnr & "-0" & lbnr + 1
  If lbnr + 1 > 9 Then txtdata(0).Text = grpnr & "-00" & lbnr + 1
  If lbnr + 1 < 10 Then txtdata(0).Text = grpnr & "-000" & lbnr + 1

M.v.h.  Jørn

ocp > eller evt. Text1_Validate

Den er vist beregnet til netop det!

Korrekt, men lostfocus fungerer også glimrende til formålet.

Så sandt :o)