Format af telefon nr. fejl...

Med lidt grænsetjek:

du skal tjekke på null før du bruger replace.

Function FormaterTelefonnr(telefonnr)
  dim normTlfnr
  if not isnull(telefonnr) then
    normTlfnr = replace(telefonnr, " ", "")
    FormaterTelefonnr = left(normTlfnr,2) & " " & _
        mid(normTlfnr, 3, 3) & " " & _
        mid(normTlfnr, 6, 3)
  else
    FormaterTelefonnr = " "
  end if
End function

Der skulle måske lige tilføjes en lille typekonvertering i den kode jeg viste tidligere:

Function FormaterTelefonnr(telefonnr)
  dim normTlfnr
  normTlfnr = replace(telefonnr, " ", "")
  if len(normTlfnr & "") = 8 then
    FormaterTelefonnr = left(normTlfnr,2) & " " & _
          mid(normTlfnr, 3, 3) & " " & _
          mid(normTlfnr, 6, 3)
  else
    FormaterTelefonnr = telefonnr & ""
  end if
End Function[/div]
Det skulle også tage hånd om evt. null-værdier, samtidig med der checkes for, om telefonnummeret har den korrekte længde til at lave den strengbehandling (slice and dice) der ønskes... :-)

Ups! Typekonverteringen skulle ligge lidt tidligere:

Super kom med et svar softspot :)

Velbekomme :-)