[Resolvido]Preencher casas de texto

Pina 3/2/2013, 11:47

Pina: Avançado; Respeito às regras :

Sexo :
Localização :
Mensagens : 354
Registrado : 19/02/2011

Mensagem nº1

Preencher casas de texto

Mensagem Pina 3/2/2013, 11:47

Bom dia a todos

Tenho um campo de Texto numa consulta que queria preencher com zeros à esquerda.
Com números e casas décimais consigo com a ajuda do Alexadre Neves. Formatar([CasaTotal]*100;"0000000000000")
que não me dá para preencher o texto mesmo sem casas décimais
Obrigado
Pina

criquio 3/2/2013, 13:25

criquio

criquio: Moderador Global; Respeito às regras :

Sexo :
Localização :
Mensagens : 11229
Registrado : 30/12/2009

Mensagem nº2

Re: [Resolvido]Preencher casas de texto

Mensagem criquio 3/2/2013, 13:25

Faça uma pesquisa no fórum. Tem algo que dá adaptar.

.................................................................................

Meu novo site: www.vcssistemas.com.br

Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.

DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
1 - faça uma cópia do aplicativo
2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
3 - use o Compactar/Reparar
4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)

Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
Positive as mensagens que achar útil, no canto superior direito delas.

Pina 3/2/2013, 14:13

Pina

Pina: Avançado; Respeito às regras :

Sexo :
Localização :
Mensagens : 354
Registrado : 19/02/2011

Mensagem nº3

Preencher casas de texto

Mensagem Pina 3/2/2013, 14:13

Bom dia Criquio
Obrigado pela sua resposta e ajuda
mas fiz novamente um pesquisa e não encontrei nada para texto só para números
na consulta quando fçao Formatar([Nome];"0000000000000")
dá-me assim (Pina) eu pretendia assim (00000000Pina)
Obrigado
Pina

criquio 3/2/2013, 15:31

criquio

criquio: Moderador Global; Respeito às regras :

Sexo :
Localização :
Mensagens : 11229
Registrado : 30/12/2009

Mensagem nº4

Re: [Resolvido]Preencher casas de texto

Mensagem criquio 3/2/2013, 15:31

Talvez assim:

Código:: Dim N As Integer, Texto As String For N = 1 To 13 - Len(Me.NomeDoCampo) Texto = Texto & "0" Next Me.NomeDoCampo = Texto & Me.NomeDoCampo

.................................................................................

Meu novo site: www.vcssistemas.com.br

Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.

DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
1 - faça uma cópia do aplicativo
2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
3 - use o Compactar/Reparar
4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)

Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
Positive as mensagens que achar útil, no canto superior direito delas.

Pina 3/2/2013, 16:24

Pina

Pina: Avançado; Respeito às regras :

Sexo :
Localização :
Mensagens : 354
Registrado : 19/02/2011

Mensagem nº5

Preencher casas de texto à esquerda

Mensagem Pina 3/2/2013, 16:24

Boas Criquio
Obrigado, mas este código funciona em consultas?
O que se pretendia era para formatar o campo de texto na consulta como se faz em números.
Formatar([valor];"000000000000000")=0000000000055 que vem do valor 55
Formatar([Texto];"000000000000000")=000000000Pina tinha que ficar assim o Texto de Pina
não sem se é possível
Mais uma vez obrigado
Pina

criquio 3/2/2013, 16:54

criquio

criquio: Moderador Global; Respeito às regras :

Sexo :
Localização :
Mensagens : 11229
Registrado : 30/12/2009

Mensagem nº6

Re: [Resolvido]Preencher casas de texto

Mensagem criquio 3/2/2013, 16:54

É só jogar em uma função pública criada em um módulo e declarando, nos parênteses depois do nome da função, uma variável que representará os campos na consulta:

Código:: Public Function Formatar(fTexto As String) Dim N As Integer, Texto As String For N = 1 To 13 - Len(fTexto) Texto = Texto & "0" Next fTexto = Texto & fTexto End Function

Na consulta, crie um campo extra:

CampoExtra:Formatar([NomeDoCampo])

Sendo Formatar o nome que eu dei à função e NomeDoCampo o nome do campo aonde está o texto original.

.................................................................................

Meu novo site: www.vcssistemas.com.br

Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.

DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
1 - faça uma cópia do aplicativo
2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
3 - use o Compactar/Reparar
4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)

Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
Positive as mensagens que achar útil, no canto superior direito delas.

Pina 3/2/2013, 17:11

Pina

Pina: Avançado; Respeito às regras :

Sexo :
Localização :
Mensagens : 354
Registrado : 19/02/2011

Mensagem nº7

Preencher casas de texto à esquerda

Mensagem Pina 3/2/2013, 17:11

Boas Criquio
Fiz e que me disse mas ficou na mesma
CampoExtra: Formatar([CasaRendaBanc])=Renda
Pina

criquio 3/2/2013, 18:46

criquio

criquio: Moderador Global; Respeito às regras :

Sexo :
Localização :
Mensagens : 11229
Registrado : 30/12/2009

Mensagem nº8

Re: [Resolvido]Preencher casas de texto

Mensagem criquio 3/2/2013, 18:46

Era para o amigo quebrar a cabeça e adaptar:

Código:: Public Function Formatar(fTexto As String) As String Dim N As Integer, Texto As String For N = 1 To 13 - Len(fTexto) Texto = Texto & "0" Next Formatar = Texto & fTexto End Function

E no campo da consulta não iguala a nada não:

Errado:
CampoExtra: Formatar([CasaRendaBanc])=Renda

Certo:
CampoExtra: Formatar([CasaRendaBanc])

.................................................................................

Meu novo site: www.vcssistemas.com.br

Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.

DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
1 - faça uma cópia do aplicativo
2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
3 - use o Compactar/Reparar
4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)

Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
Positive as mensagens que achar útil, no canto superior direito delas.

Pina 3/2/2013, 18:55

Pina

Pina: Avançado; Respeito às regras :

Sexo :
Localização :
Mensagens : 354
Registrado : 19/02/2011

Mensagem nº9

Preencher casas de texto à esquerda

Mensagem Pina 3/2/2013, 18:55

Boas Criquio
Peço desculpa pela minha informação dada anterior
Realmente fiz a fornula certa que me endicou
CampoExtra: Formatar([CasaRendaBanc])
só queria dizer que ficou só Renda e pretendia-se (00000000Renda)

Obrigado
Pina

**Alexandre Neves** 3/2/2013, 20:54

Alexandre Neves

Alexandre Neves: Moderador Global; Respeito às regras :

Sexo :
Localização :
Mensagens : 8499
Registrado : 05/11/2009

Mensagem nº10

Re: [Resolvido]Preencher casas de texto

Mensagem Alexandre Neves 3/2/2013, 20:54

renda = String(13 - Len(renda), "0") & renda

.................................................................................
Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

Pina 3/2/2013, 21:09

Pina

Pina: Avançado; Respeito às regras :

Sexo :
Localização :
Mensagens : 354
Registrado : 19/02/2011

Mensagem nº11

Preencher casas de texto à esquerda

Mensagem Pina 3/2/2013, 21:09

Boas Alexrande
Mais uma vez obrigado
Na sua forula dá um erro de, e coloquei ;
Mas o resultado é o Número 0
Pina

**Alexandre Neves** 3/2/2013, 21:12

Alexandre Neves

Alexandre Neves: Moderador Global; Respeito às regras :

Sexo :
Localização :
Mensagens : 8499
Registrado : 05/11/2009

Mensagem nº12

Re: [Resolvido]Preencher casas de texto

Mensagem Alexandre Neves 3/2/2013, 21:12

Veja qual o conteúdo de Renda

.................................................................................
Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

Pina 3/2/2013, 21:28

Pina

Pina: Avançado; Respeito às regras :

Sexo :
Localização :
Mensagens : 354
Registrado : 19/02/2011

Mensagem nº13

Preencher casas de texto

Mensagem Pina 3/2/2013, 21:28

Boas Alexandre
o campo é = CasaRendaBanc
O conteudo = Renda e tem que ter conforme o conteudo 15 digitos fazia-se com 13 mas eu alterava para 15
Pina

**Alexandre Neves** 3/2/2013, 21:30

Alexandre Neves

Alexandre Neves: Moderador Global; Respeito às regras :

Sexo :
Localização :
Mensagens : 8499
Registrado : 05/11/2009

Mensagem nº14

Re: [Resolvido]Preencher casas de texto

Mensagem Alexandre Neves 3/2/2013, 21:30

O conteúdo é o que contém. veja se não é nulo.
Testei a fórmula e funcionou

.................................................................................
Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

Pina 3/2/2013, 21:55

Pina

Pina: Avançado; Respeito às regras :

Sexo :
Localização :
Mensagens : 354
Registrado : 19/02/2011

Mensagem nº15

Preencher casas de texto

Mensagem Pina 3/2/2013, 21:55

Boas Alexandre
Deve ter razão
vou enviar um expemlo para ver como fica
éra bom que o campo que tem renda tivesse 15 digitos
Pina

Pina 3/2/2013, 21:57

Pina

Pina: Avançado; Respeito às regras :

Sexo :
Localização :
Mensagens : 354
Registrado : 19/02/2011

Mensagem nº16

Preencher casas de texto

Mensagem Pina 3/2/2013, 21:57

não foi a base dados

Anexos

TesteAlexandre.zip: Você não tem permissão para fazer download dos arquivos anexados.; (23 Kb) Baixado 8 vez(es)

criquio 3/2/2013, 22:45

criquio

criquio: Moderador Global; Respeito às regras :

Sexo :
Localização :
Mensagens : 11229
Registrado : 30/12/2009

Mensagem nº17

Re: [Resolvido]Preencher casas de texto

Mensagem criquio 3/2/2013, 22:45

Eu fiz um teste aqui e funcionou da forma que passei.

.................................................................................

Meu novo site: www.vcssistemas.com.br

Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.

DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
1 - faça uma cópia do aplicativo
2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
3 - use o Compactar/Reparar
4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)

Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
Positive as mensagens que achar útil, no canto superior direito delas.

Pina 3/2/2013, 23:46

Pina

Pina: Avançado; Respeito às regras :

Sexo :
Localização :
Mensagens : 354
Registrado : 19/02/2011

Mensagem nº18

Preencher casas de texto

Mensagem Pina 3/2/2013, 23:46

Boas Criquio
Importa-se de ver este exemplo que fiz como me disse mas não aparece digitos atrás do conteudo
Obrigado
Pina

Anexos

TesteTexto.zip: Você não tem permissão para fazer download dos arquivos anexados.; (33 Kb) Baixado 10 vez(es)

criquio 4/2/2013, 00:00

criquio

criquio: Moderador Global; Respeito às regras :

Sexo :
Localização :
Mensagens : 11229
Registrado : 30/12/2009

Mensagem nº19

Re: [Resolvido]Preencher casas de texto

Mensagem criquio 4/2/2013, 00:00

Amigão, dê uma verificada na dica da mensagem n° 8 e confira com a sua função, linha a linha. E verifique o nome que você colocou no CampoExtra na consulta e confira com o da dica.

.................................................................................

Meu novo site: www.vcssistemas.com.br

Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.

DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
1 - faça uma cópia do aplicativo
2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
3 - use o Compactar/Reparar
4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)

Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
Positive as mensagens que achar útil, no canto superior direito delas.

Pina 4/2/2013, 12:13

Pina

Pina: Avançado; Respeito às regras :

Sexo :
Localização :
Mensagens : 354
Registrado : 19/02/2011

Mensagem nº20

Preencher casas de texto

Mensagem Pina 4/2/2013, 12:13

Bom dia
consegui adaptar com a formula que o Alexandre enviou
renda = String(13 - Len(renda), "0") & renda
Obrigado Alexandre e Criquio
Pina

Conteúdo patrocinado

Conteúdo patrocinado

Conteúdo patrocinado

Mensagem nº21

Re: [Resolvido]Preencher casas de texto

Mensagem Conteúdo patrocinado

MaximoAccess

MaximoAccess

MaximoAccess

[Resolvido]Preencher casas de texto

Preencher casas de texto

Re: [Resolvido]Preencher casas de texto

Preencher casas de texto

Re: [Resolvido]Preencher casas de texto

Preencher casas de texto à esquerda

Re: [Resolvido]Preencher casas de texto

Preencher casas de texto à esquerda

Re: [Resolvido]Preencher casas de texto

Preencher casas de texto à esquerda

Re: [Resolvido]Preencher casas de texto

Preencher casas de texto à esquerda

Re: [Resolvido]Preencher casas de texto

Preencher casas de texto

Re: [Resolvido]Preencher casas de texto

Preencher casas de texto

Preencher casas de texto

Re: [Resolvido]Preencher casas de texto

Preencher casas de texto

Re: [Resolvido]Preencher casas de texto

Preencher casas de texto

Re: [Resolvido]Preencher casas de texto

Tópicos semelhantes

Tópicos semelhantes

Pesquisar

Resultados por: Mensagens Tópicos
Pesquisa avançada