08/07/2005, 00:59
|
| | | Fecha de Ingreso: mayo-2005
Mensajes: 93
Antigüedad: 19 años Puntos: 1 | |
| 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).
__________________
No te hubieran dado la capacidad de soñar sin darte también la posibilidad de convertir tus sueños en realidad |