Funciones MID y LEN

[rafapaskual]

Hola,

Con el text1.text<>"" puedes tener un problema ya que en el caso que en la caja de texto haya uno o mas espacios en blanco la condicion sera falso. Es posible que ya te interese eso, pero si no es así puedes usar la funcion trim() que te quita los espacios que haya a derecha e izquierda del texto con lo que quedaria la condicion

if trim(text1.text)<>"" and len(text1.text)<>12 then
...
end if

Espero que te haya sido de ayuda.

Saludos a todos!