Favor ajuda neste função do exemplo do nosso colega.
Exemplo na minha tabela eu tenho um codigo 0000003859 eu quero que exiba 0003859.
Antes de qualquer coisa muito obrigado pela atenção de todos.
Function fncRemoverZerosEsq(Str As String)
'Trata zeros esquerda
Do While Left(Str, 1) = "0"
Str = Mid(Str, 2)
Loop
fncRemoverZerosEsq = Str
End Function
Exemplo na minha tabela eu tenho um codigo 0000003859 eu quero que exiba 0003859.
Antes de qualquer coisa muito obrigado pela atenção de todos.
Function fncRemoverZerosEsq(Str As String)
'Trata zeros esquerda
Do While Left(Str, 1) = "0"
Str = Mid(Str, 2)
Loop
fncRemoverZerosEsq = Str
End Function