Grabar Registros con un formato...

[jpablogus]

Buenas!!
estoy haciendo un formulario para crear articulos, y quiero que al añadir uno nuevo, el codigo del articulo sea AR00025, Siendo el Número un campo autonumerico que se añade a la cadena "AR" antes de update.
Pero con el procedimiento que hago se graba AR25.

¿EN QUE ESTOY FALLANDO?

GRACIAS..

[zabait]

El problema es que concatenas un string con el autonumérico a pelo. Deberías cambiarlo a string el código ese correspondiente.

Tengo una función que hace esas cosillas. Ahí va eso!!!

Function PadL(CADENA, Longitud, Optional caracter)
If IsMissing(caracter) Then caracter = " "
If Longitud < Len(CADENA) Then
PadL = Left(CADENA, Longitud)
Else
PadL = Right(String(Longitud, caracter) & CADENA, Longitud)
End If

End Function

Y la llamada correspondiente sería, siendo COD el codigo del campo autonumérico :

dim str as string

str = "AR" & padl(COD,6,"0")

Esta función si no le introduces el caracter como parámetro te introduce espacios en blanco.

Espero que te haya servido y que pongas el código como más te sirva.

Voy a meter una FAQ en la que aparezcan todas las funciones de este tipo que tengo para rellenar espacios tanto por la derecha (PADR) como por la izquierda (PADL) como por el centro (PADC).