Extraer numeros de un Campo

Monica
28 de Abril del 2005
Hola a todos, en una tabla tengo un campo cuyo valor es ejemplo “05.025”, los dos primeros digitos equivalen al a帽o en curso, un punto, y los tres siguientes digitos corresponden a un numero que se le asigna al registro.
Bueno como puedo extraer dicho numero del recordset y sumarle uno...
Yo hago lo siguiente:

Clave.Text = Mid(r2.Fields(0), 4, 3) + 1

Y consigo que en el caso del ejemplo extraiga el “26”, cuando deberia de extraerme el “026”....

Porque si pongo esto: Clave.Text = Mid(r2.Fields(0), 3, 3) + 1

Me da un error y me dice que no coinciden los tipos...

Gracias por vuestro tiempo.

lorrich
28 de Abril del 2005
Creo que eso es porque el 0 lo descarta al hacer la suma, lo que podrias hacer es comprobar si tiene 2 caracteres tu le incluyes el cero delante.

Un saludo.

Monica
28 de Abril del 2005
Como puedo ver si tiene un Caracter, tiene dos 贸 tiene tres... para introducir uno 贸 dos Ceros?

lorrich
28 de Abril del 2005
if(Len(Mid(r2.Fields(0), 3, 3) + 1)=1)then
'tiene 1 digito
end if
if(Len(Mid(r2.Fields(0), 3, 3) + 1)=2)then
'tiene dos digitos
end if