PREENCHER COM BRANCOS
Senhores,
Carrego a string com dados de uma banco.
Exemplo:
sNmCliente = rec!Nm_Cliente
So que gostaria de carregar um certa quantidade de caracters.
Digamos que o nome do cliente seja:
MARIA DAS GRACAS
1234567890123456
"MARIA DAS GRACAS" tem 16 caractes, mas eu gostaria que carregasse na sNmCliente 30 caracaters. Ou seja "MARIA DAS GRACAS" + 14 espacos em branco (que vao dar 30 caracters).Pois irei imprimir esse nome + os espacos em branco usando o objeto printer.
Alguem sabe a solucao do problema?
Um abraco a todos
Carrego a string com dados de uma banco.
Exemplo:
sNmCliente = rec!Nm_Cliente
So que gostaria de carregar um certa quantidade de caracters.
Digamos que o nome do cliente seja:
MARIA DAS GRACAS
1234567890123456
"MARIA DAS GRACAS" tem 16 caractes, mas eu gostaria que carregasse na sNmCliente 30 caracaters. Ou seja "MARIA DAS GRACAS" + 14 espacos em branco (que vao dar 30 caracters).Pois irei imprimir esse nome + os espacos em branco usando o objeto printer.
Alguem sabe a solucao do problema?
Um abraco a todos
sNmCliente = rec!Nm_Cliente & space(30 - Len(rec!Nm_Cliente))
nessa string ele pega o nome + a quantidade de espaços necessários 30 - a quantidade de caracteres existentes no campo.
Abraço
nessa string ele pega o nome + a quantidade de espaços necessários 30 - a quantidade de caracteres existentes no campo.
Abraço
Cara se vc utiliza SQL é so ir no banco de dados em mode design e mudar Nm_Cliente para Char com 30 de length. ele tras com 30 mesmo se for vazio.
Uso uma função para isso:
[/c]
[c]Public Function AdcionaBranco(strNumero As String, intTamanho As Long) As String
If Len(strNumero) >= intTamanho Then
AdcionaBranco = Left(strNumero, intTamanho)
Exit Function
End If
strNumero = Trim(strNumero) & String(intTamanho - Len(Trim(strNumero)), " ")
AdcionaBranco = strNumero
End Function
[/c]
nao deu certo galera. O que faco?
tem msn ? Posta ai o erro...fica mais fácil !!!
[S74]
[S74]
A função naum deu certo ??
Public Function AdcionaBrancoEsq(strNumero As String, intTamanho As Long) As String
If Len(strNumero) >= intTamanho Then
AdcionaBrancoEsq = Right(strNumero, intTamanho)
Exit Function
End If
strNumero = String(intTamanho - Len(Trim(strNumero)), " ") & Trim(strNumero)
AdcionaBrancoEsq = strNumero
End Function
usando o exemplo do ALETERNOLE
QUANDO PASSA NA LINHA ABAIXO (ESTOU VERIFICANDO COM F8) ACONCETE O ERRO LOGO APOS
sCliNome = rec!nm_pessoa & Space(30 - Len(rec!nm_pessoa))
5-Invalid procedure call or argument
QUANDO PASSA NA LINHA ABAIXO (ESTOU VERIFICANDO COM F8) ACONCETE O ERRO LOGO APOS
sCliNome = rec!nm_pessoa & Space(30 - Len(rec!nm_pessoa))
5-Invalid procedure call or argument
1 - Ele passa pela linha, ou o erro está na linha ?
2 - O campo naum está em Branco ?
3 - O campo é tipo string (texto) ?
o caminho p/ fazer essa necessidade é este msm.... basta fazer os acertos pÂÂ'/ o seu sistema...
2 - O campo naum está em Branco ?
3 - O campo é tipo string (texto) ?
o caminho p/ fazer essa necessidade é este msm.... basta fazer os acertos pÂÂ'/ o seu sistema...
o erro esta na linha
o campo nao esta em branco e é string
o campo nao esta em branco e é string
Tópico encerrado , respostas não são mais permitidas