Börja på 0001, fortsätt med 0002 o.s.v.

jag är osäker på om du kan ställa in det direkt i databasen men 0001 är ju fortfarande 1 så egentligen är det bara en visuell effekt du är ute efter. :)

function addZero(str)
     dim retval
     retval = cstr(trim(str))

     select case len(retval)
          case 0 : retval = "0000"
          case 1 : retval = "000" & retval
          case 2 : retval = "00" & retval
          case 3 : retval = "0" & retval
     end select

     addZero = retval
end function

function addZero(str)
  if len(str) <= 4 then addZero = right("0000" & str,4) else addZero = str
end function

lite mindre kod :D

hmm, tänk att det alltid kommer nån med en snyggare lösning, för tidigt på morgonen för att skriva finkod kanske! :bire