PREENCHER COM BRANCOS

USUARIO.EXCLUIDOS 04/06/2007 14:13:10
#219629
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
USUARIO.EXCLUIDOS 04/06/2007 14:29:21
#219633
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
USUARIO.EXCLUIDOS 04/06/2007 14:36:39
#219636
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.
LIZANDRO 04/06/2007 14:39:21
#219641
Uso uma função para isso:

  
[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]
USUARIO.EXCLUIDOS 04/06/2007 14:41:51
#219642
nao deu certo galera. O que faco?
USUARIO.EXCLUIDOS 04/06/2007 14:43:30
#219643
tem msn ? Posta ai o erro...fica mais fácil !!!
[S74]
LIZANDRO 04/06/2007 14:44:08
#219644
A função naum deu certo ??
LIZANDRO 04/06/2007 14:44:34
#219646 

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
USUARIO.EXCLUIDOS 04/06/2007 15:01:01
#219655
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
USUARIO.EXCLUIDOS 04/06/2007 15:35:26
#219670
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...
USUARIO.EXCLUIDOS 04/06/2007 15:40:52
#219672
o erro esta na linha
o campo nao esta em branco e é string
Página 1 de 2 [14 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar