Reemplazar espacios vacíos con ceros
Tengo dos campos con los cuales estoy creando un código campo1 y campo2, campo1 lleva un dato fijo (2008) y campo dos lleva un control autonumérico (1,2,3..), necesito crear un tercero uniendo campo1 y campo2, para crear un código.
Como puedo poner para que el autonumérico no me ponga 1,2,3... Sino que 0001,0002,0003, para que al concatenar no quede (20081, sino que 2008001).
Por su colaboración, muchas gracias!
Como puedo poner para que el autonumérico no me ponga 1,2,3... Sino que 0001,0002,0003, para que al concatenar no quede (20081, sino que 2008001).
Por su colaboración, muchas gracias!
Respuesta de Omar Aguiar
1
NLen = 4 ' Esta es la longitud del string a concatenar
Campo3 = str$(campo3)& string("0",nLen-Len(trim(Campo2)))& trim$(str(campo2))
Esto te sirve para VB y VBA (Ms access)
Puedes hacer una función como esta:
'Funcion para rellenar a la izq, caracteres especificados
Public Function lFill(MyVar As String, cFill As String, nSize As Integer)
Dim nVarSize As Integer
MyVar = Trim$(MyVar)
nVarSize = Len(MyVar)
If nVarSize > nSize Then nSize = nVarSize
lFill = String$(nSize - nVarSize, cFill) & MyVar
End Function
y llamarla de esta forma
Campo3 = Campo1 & lFIll(Campo2,"0",4)
Campo3 = str$(campo3)& string("0",nLen-Len(trim(Campo2)))& trim$(str(campo2))
Esto te sirve para VB y VBA (Ms access)
Puedes hacer una función como esta:
'Funcion para rellenar a la izq, caracteres especificados
Public Function lFill(MyVar As String, cFill As String, nSize As Integer)
Dim nVarSize As Integer
MyVar = Trim$(MyVar)
nVarSize = Len(MyVar)
If nVarSize > nSize Then nSize = nVarSize
lFill = String$(nSize - nVarSize, cFill) & MyVar
End Function
y llamarla de esta forma
Campo3 = Campo1 & lFIll(Campo2,"0",4)
Hola buen día, muchas gracias por tu respuesta, pero podrías aclararme, en donde es que tengo que ingresar estas instrucciones, porque no se donde hacerlo:
nLen=4
Campo3=str$(campo3)& string("0",nlen-len(trim(campo2)))& trim4(str(campo2))
Por tu ayuda, muchas gracias.
nLen=4
Campo3=str$(campo3)& string("0",nlen-len(trim(campo2)))& trim4(str(campo2))
Por tu ayuda, muchas gracias.
Si tienes un botón AGREGAR, ese es buen sitio, pero debes colocarlo al final del código. No lo va a hacer automáticamente, ya que es una instrucción creada según tus necesidades.
