... Assinatura do site por 3 anos + Kit MontaRibbons + 3 Livros em PDF + Diversas Revistas (pdf) de brinde, por apenas R$182,00
(
podendo parcelar em até 10 vezes no cartão de crédito)...

Clique aqui e obtenha mais detalhes do nosso kit completo e de como comprar.


Justificar texto em formulários e relatórios (sem programação)

Esta tarefa no Access 2007/2010/2013 agora é nativa, ou seja, basta alterarmos duas propriedades de um campo.  São elas:  Formato de texto  e  Alinhamento de texto.

Formato de texto = Rich Text
Alinhamento de texto = Distribuir

Veja o resultado de dois campos em um formulário: o primeiro campo sem o alinhamento e o segundo com o alinhamento.

Justificando texto em campo rich text em um formulário

 

Observe o resultado dos mesmos campos em um relatório:

Justificando texto em campo rich text em um relatório

 

Com o uso do formato Rich Text, temos a possibilidade de destacar palavras ou frases dentro do texto, conforme você está observando nas figuras acima. 

No artigo Access 2007 x outlook 2007 você pode também observar o potencial de uso do formato rich text., no campo assunto.

Bom estudo!


 

 


42 comentário(s)

joão do botão   21/05/2010 13:22:46

olá avelino, em primeiro quero parabenizar te pelo trabalho, muito bom mesmo. você parece dominar muito bem o access e não ser dominado por ele.
uma pergunta: tem como destacar palavras em um mesmo label via vba? tipo eu coloco uma condição para que ao realizar uma tarefa seja colocado no label lblMensagem a frase "Seu desempenho foi regular". tem como eu colocar somente a palavra regular em negrito e de outra cor? eu tentei criar variáveis para cada bloco de palavras e juntar essas variáveis no label mas não consegui.
obrigado desde então.

Avelino Sampaio   24/05/2010 08:00:06

João,

A solução que vejo para este seu caso é substituir o label por um campo texto, com fundo e bordas transparente e usando a propriedade Rich Text.

Sucesso

Ivan   04/07/2010 18:01:44

olá Avelino
Não sei se entendi, mas pelo que eu lí no artigo acima é possivel destacar (com outra cor por exemplo) uma palavra do texto usando o Rich Text.

"Com o uso do formato Rich Text, temos a possibilidade de destacar palavras ou frases dentro do texto, conforme você está observando nas figuras acima."

Como se faz isso no campo texto?

Nikolas   17/03/2011 21:17:38

Blz, muito bom mesmo este seu trabalho, eu adoro programar no access também e já faço isto há mais de 5 anos. Aproveitando estou com um problema que quando fico com minha aplicação aberta sem usar por mais ou menos 40 minutos quando tento clicar em algum meno fica travado com ampulheta rodando mais ou menos uns 3 minutos para liberar, e não estou com sistema de proteção de tela e nem de desligar o disco rígido após um tempo. Minha aplicação esta no formato Access 2010 e com o banco dividido e tanto faz estar em rede ou local apresenta o mesmo problema, se puder me ajudar com alguma dica agradeço. té

apitoo   17/04/2011 15:53:25

Boa dica

Kátia Fernandes   30/06/2011 10:02:06

Bom dia Avelino!
Estou tentando criar um relatório que apareça um texto e depois linhas em branco, como faço?

Obrigada
Kátia

Avelino Sampaio   30/06/2011 10:05:44

Katia,

Vá na seção tutorias e baixe o exemplo do tutorial "programação de relatórios - parte 1"

Sucesso!

xavier   29/12/2011 15:20:53

Tentei seguir as orientações para justificar texto, mas não tive sucesso, continuou a ficar com alinhamento à esquerda. Para o documento que estou utilizando necessito que o texto realmente fique justificado. Já passei para o formato Rich, já previ o alinhamento distribuido e não obtive êxito, por favor o que devo fazer agora?

Avelino Sampaio   02/01/2012 08:14:36

Xavier,

Se o campo tem origem numa tabela, altere este campo para RICH também no campo da tabela. Antes do teste faça um back da base de dados.

Como teste , crie um BD novo com uma tabela que contenha o campo RICH e então faça um teste.

Sucesso!


James   16/01/2012 16:58:21

Avelino,

Estou tentando inserir, via programação, um parágrafo numa caixa de texto com formato rich text, mas não funciona; o texto que deveria ficar no parágrafo seguinte continua na mesma linha. Estou usando na programação o comando a constante "vbccrlf", que é a concatenação de chr(10) e chr(13).

Avelino Sampaio   16/01/2012 17:08:41

James,

use HTML. No caso use a tag BR ou a tag P

Sucesso!

Rodrigo   19/01/2012 21:29:29

Só mais uma questão relacionada a rich text: na textbox, quando eu seleciono parte do texto e movimento o ponteiro do mouse um pouco para cima, aparece uma barra flutuante (que descobri se chamar Mini Barra de Ferramentas) com as principais formatações (negrito, itálico, sublinhado...)

Tem como desativá-la?

Avelino Sampaio   20/01/2012 06:15:46

Rodrigo,

terás que criar uma chave do tipo REG_DWORD, no registro do Windows, de nome "AllowSelectionFloaties" e no seguinte endereço:

HKEY_CURRENT_USER\Software\Microsoft\office\12.0\Common\Toolbars\Access\AllowSelectionFloaties

0 - Desativa a Mini Barra
1 - Ativa a Mini Barra

Sucesso!

Moacyr Bezerra Santos   30/04/2012 20:56:22

Avelino, há anos muitos clientes meus pedem para alinhar o texto de forma justificada; agora o desejo deles será realizado. Obrigado, você é um pesquisador inato mesmo...

DOMINGOS CASARIM   24/10/2012 20:06:25

BOA NOITE AVELINO. O comando Format(string, "000000") preenche com zeros a esquerda um campo numérico. E, como faço para num campo texto, forçar o preenchimento a direita com branco? Preciso formatar um arquivo pra banco e os campos textos precisam ter tamanho fixo com branco a direita. A exportação de texto delimitado pra mim neste caso não funciona. O comando format(string, &&&&&) funciona pra fixar o tamanho mas o texto fica alinhado a direita e não a esquerda.
Desde já agradeço.

Avelino Sampaio   25/10/2012 06:42:18

Domingos,

experimente usando a função Space().

Exemplo: Supondo que eu queira manter 20 caractares fixos para o primeiro nome, em relação ao segundo nome.

? "Avelino" & space(20 - len("Avelino")) & "Sampaio"
? "Avel" & space(20 - len("Avel")) & Sampiao

Terá como resultado uma padronização exata.

Sucesso!

aline do rosario silva   14/01/2013 21:36:55

eu quero mudar um campo
de clinte, quero escrever o nome do clinte e dai fika aprecendo este seguite anuncio:
"o valor que vc inseriu não é valido para este campo
por exemplo, talves voce tenha inserido texto em um campo numérico ou um numero maior quqe o permitido pela configução do campo de texto''
eu queria escrever o nome do clinte em um icone e no outro o deo funcionario

Kamila Fernanda   20/02/2013 11:31:42

Olá, bom dia! Show... mas confesso que fiquei com algumas dúvidas. No access 2010, quando coloco Rich text, meu texto fica alinhado perfeitamente. Porém, preciso fazer um documento com "espaçamento entre linhas" de 1,5. E com o esse formato de texto, no modo de exibição fica certinho, porém quando visualizo o relatório ou a impressão dele, as linhas ficam sem o "entre linhas".
Já no "texto sem formatação" as "entre linhas" aparecem com o espaçamento que solicito, porém a ultima linha do texto fica justificada, deixando o relatório com aparencia feia.

Pode me salvar? Por favor! Obrigada! Abraços!

Avelino Sampaio   23/02/2013 08:02:14

Kamila,

Creio que não será possível conciliar as duas coisas. Quando usamos o “Rich Text” passamos a ter um ambiente HTML e existem restrições no uso das tag´s e seus atributos. Creio que por causa disso terá a quebra de linhas apenas de forma controlada, usando o a tag < BR >. Usando duas tag’s (< BR >< BR >) vc consegue o espaçamento entre linhas.

Se conseguir algo promissor com isso me avise.

Bom, se usa documento padrão, vc pode utilizar o WORD e fazer o Access alimentar este documento com os dados necessários. Exige uma programação mas não é muito difícil.

Sucesso!

Cesar Alexandre Virgini   25/02/2013 09:40:27

Bom Dia Avelino, minha duvida é a seguite: possuo um relatorio onde agrego varios campos e funçoes.., preciso de um "ponto paragrafo" entre esses campos onde o texto entre eles ira variar ( por isso a funçao SPACE nao se encaixa nesse caso..)..sera que vc pode me ajudar ??, brigadao

Cesar Alexandre Virgini   25/02/2013 17:46:19

Após ler a solução e introduzir a tag
o problema do paragrafo foi resolvido.., Grato

Kamila Fernanda   07/03/2013 10:39:19

Avelino,

Sim, agora fiz como Mala Direta no Word. Porém só consigo usar a função quando a base de dados parte de uma tabela.
A minha consulta tem critério. Onde pergunta: "Qual o código do cliente?". E tentei, tentei e não consegui vincular a Mala Direta com a Consulta com Critério.

Isso é possível? Vi alguns tutoriais, mas não deu certo de maneira nenhuma. (http://support.microsoft.com/kb/214183/pt-br).

Uso o Office 2010.

Fico no aguardo e agradeço a atenção. Abraços,

Hephraim BF   26/04/2013 10:13:05

Macacos me mordam!!!

Não consigo configurar esse formato:
Formato de texto = Rich Text

Alguém pode me ajudar?
Walhew

Hephraim BF   26/04/2013 10:21:56

Achei!!!

Tá na guia 'Todas'.

Carlos Barrionuevo   23/07/2013 12:33:59

Access 2010 - Tenho um campo texto (150) em uma tabela com dados de diferentes tamanhos. Como faço para excluir os espaços em branco atravez de consulta?

Avelino Sampaio   24/07/2013 08:34:11

Carlos,

não entendi muito bem. Use a função TRIM(). Exemplo

UPDATE tblClientes SET NomeCliente = Trim([NomeCliente]);

Sucesso!

Vitor Silva   12/08/2013 17:07:44

Avelino,
Qdo. crio um formulário e vou preenche-lo, acontece assim:
Nome do Assunto Ex.: Nome:
No campo criado para ser preenchido, o texto fica assim do alinhamento da palavra "nome"
O correto seria assim: NOME: José da Silva, mas fica, o José fica mais elevado.
Como faço???
Obrigado, Vitor

Marcos Herculano   28/03/2014 09:19:37

Bom dia,

Caros colegas, estou com um pequeno programa(access), o qual ele deveria retornar partes do texto no relatório em negrito, inclusive com o alinhamento JUSTIFICADO, mas não consigo visualizar a solução nos textos acima..., então como faço para ver o exemplo???????

Avelino Sampaio   28/03/2014 12:35:52

Marcos,

o campo lá na tabela está configurado para Rich Text ? Configure.

No aguardo

Thomazo   08/04/2014 12:54:28

Avelino boa Tarde!

No dia 23/02/2013 você disse que poderia resolvel o espaçamento de linhas usando duas tag’s (< BR >< BR >). Não conheço muito de html, você poderia me dar um exemplo prático?



Thomazo   08/04/2014 14:00:38

Avelino boa Tarde!

No dia 23/02/2013 você disse que poderia resolvel o espaçamento de linhas usando duas tag’s (< BR >< BR >). Não conheço muito de html, você poderia me dar um exemplo prático?



Avelino Sampaio   09/04/2014 07:21:13

Thomazo,

entre em contato pela seção CONTATO aqui do site para eu receber seu email.

No aguardo

Claudio   18/08/2014 17:53:05

Ola, como faço para separar um campo em uma consulta do access, quero tudo q estiver dentro do parenteses, lembrando que nunca terá a mesma quantidade de números e nunca estará na mesma ordem. ex: teste teste (123456)

Avelino Sampaio   18/08/2014 18:15:35

Claudio,

supondo que o nome do campo, que possui o texto, seja K:

NovoCampo: mid(([k];instr([k];"(")+1;((instr([k];")"))-1)-(instr([k];"(")))

Nota: estou considerando que haja apenas um conjunto de parênteses por texto.

Sucesso!

Claudio   01/09/2014 18:18:10

Muito obrigado Avelino, deu certíssimo, apenas tirei um parenteses do inicio e ficou tudo certo.
Obrigado mesmo!
mid([k];instr([k];"(")+1;((instr([k];")"))-1)-(instr([k];"(")))

Claudio   13/10/2014 16:43:09

Amigo,
gostaria de saber o seguinte, como faço para criar um If no access com a condição se em um campo tiver a palavra HD quero que me retorno HD.
exemplo de como pode estar preenchido o campo:
RET_VC_HDTOP_20140929_1417 ou SERCOM_ATIVO_UP01_HD_HD_12SEP14 e outros campos que não vai ter HD.

Avelino Sampaio   13/10/2014 16:47:07

Claudio,

experimente utilizar a função instr(). Exemplo:

if instr(me!NomeDoCampoPesquisado,"HD")>0 then
msgbox "Tem HD..."
else
msgbox "Não tem HD..."
end if

Sucesso!

Claudio   13/10/2014 18:21:52

Avelino, perdão não expliquei direito, na verdade quero criar um novo campo no ACCESS com o SeImed
onde quero localizar o texto "HD" e quero que me retorne "tem HD".
EX:
SeImed((NOME_CAMPO),localiza("HD"),"TEM HD","NÃO TEM")

Avelino Sampaio   14/10/2014 06:19:49

Claudio,

pelo VBA:

me!NomeCampo = iif(instr(me!NomeDoCampoPesquisado,"HD")>0,"Tem HD","Não tem")

pela lista de propriedades:

=SeImed(instr([NomeDoCampoPesquisado];"HD")>0;"Tem HD";"Não tem")

pela consulta:

NomeCampo: =SeImed(instr([NomeDoCampoPesquisado];"HD")>0;"Tem HD";"Não tem")

Sucesso!

Claudio   27/10/2014 13:44:05

Boa tarde!

Gostaria de saber o seguinte, tenho uma consulta com macro que faço um insert int em uma tabela, só que, quando inseri o registro o formato vai como texto ou binário, como faço para que o formato fique como data?

ex: DIA_ATUAL: [Data?]

Claudio   28/10/2014 17:34:42

Você conhece algum tipo de consulta que atualiza registro em tabela do access?

Lúcio   03/11/2015 18:19:46

Ola querido, é possível realizar alguma formula que me ajude a identificar o dia da semana e a semana.
1 = Domingo, 2 = Segunda-feira, 3 = Terça-feira, 4 = Quarta-feira, 5 = Quinta-feira, 6 = Sexta-feira, 7 = Sábado. Isso informando qual a semana do mês independente do ano.
exemplo:
DIA 1° DIA OR. SEMANA
sáb 01/08/2015 1-7
dom 01/08/2015 1-1
seg 01/08/2015 1-2
ter 01/08/2015 1-3
qua 01/08/2015 1-4
qui 01/08/2015 1-5
sex 01/08/2015 1-6
sáb 01/08/2015 2-7

No Excel utilizo essa formula:
=TRUNCAR((D2-B2)/7)+1&"-"&DIA.DA.SEMANA(D2)



Envie seu comentário: