[Resolvido]Centralizar botão e caixa de texto

Olá,

Por favor, me ajudar se possível.

Todos os botões de comando e caixa de texto eu centralizo manualmente.

Gostaria de saber se é possível o programa centralizar automaticamente a grade?

tombr300,

Selecione os objetos que voce quer centralizar ou distribui o espaço igualmente, clica com o botão direito do mouse e vai aparecer um menu..
e ai tem vários itens...não me recordo de cabeça ( e tmb não tem access na maquina aqui no trabalho)

Mas ai vc vê qual ajuste se adéqua a sua necessidade.

Abs

Olá, Alexandre Fim

Obrigado pela dica.

Eu já tinha percebido isso.

Porém não estou conseguindo centralizar automaticamente.

Olá tom,

Já tentou com a propriedade TextAlign = 2?

Me.caixadetexto.TextAlign = 2

Ou neste exemplo:

Forms("Fornecedores").Controls("txtEndereco").TextAlign = 2

Aplique no evento Form_Open do formulário.

Olá, good guy

Muito obrigado pela sua dica e ajuda.

Mas não entendi nada.

Eu queria uma forma mais simples igual ao Word de centralizar os dados na grade.

Uso o Access 2019.

Olá Belobo,

Se quer centralizar uma caixa de texto a propriedade TextAlign faz isso pra você. 2 centraliza, 1 alinha à esquerda e 3 alinha à direita.

Me.Nomedacaixadetexto.TextAlign = 2

Veja a tabela de alinhamento dessa propriedade aqui:

https://docs.microsoft.com/en-us/office/vba/api/access.label.textalign


Se ainda restou dúvidas. Mais informação aqui mesmo no MaximoAccess com o uso da função Space.

https://www.maximoaccess.com/t1180-resolvidodistribuicao-de-texto-em-um-caixa-de-texto

ou aqui:

https://support.office.com/pt-br/article/fun%C3%A7%C3%A3o-space-2da0a51c-ae96-43bc-8352-abd97b815ab1


No meu livro DOMINE O ACCESS VBA eu trato o assunto com a seguinte função:

Código:

Public Function ModificaCaixa ()
On Error Resume Next

‘TextAlign (Alinhamento de texto)

If CurrentProject.AllForms("Logos").IsLoaded Then‘Se o formulário Logos estiver aberto faça assim
If Forms!Catálogo!cboPosicao.Column(0) = "À Direita" Then
Forms("MeuFormulário").Controls("MinhaCaixadeTexto").TextAlign = 3      ‘Alinha o texto à direita
ElseIf Forms!Catálogo!cboPosicao.Column(0) = "À Esquerda" Then    'Utilize uma caixa de combinação com uma lista de valores para determinar a posição das caixas de texto

Forms("MeuFormulário").Controls("MinhaCaixadeTexto").TextAlign = 1    ‘Alinha o texto à esquerda

ElseIf Forms!Catálogo!cboPosicao.Column(0) = "Centro" Then

Forms("MeuFormulário").Controls("MinhaCaixadeTexto").TextAlign = 2    ‘Alinha o texto no centro

ElseIf Forms!Catálogo!cboPosicao.Column(0) = "Justificado" Then

Forms("MeuFormulário").Controls("MinhaCaixadeTexto").TextAlign = 4      ‘Alinha o texto justificado

Else
Exit Sub
End If
End Function


Por você dizer que faz manualmente, entendo que esteja querendo o ajuste centralizado no modo design tipo a opção abaixo oferecida no powerpoint


O Access não tem essa opção. Mas isso pode ser feito via código. No fórum tem um exemplo de ajuste de formulário à resolução do monitor que centraliza controles.

Olá, good guy e IvanJr.

Obrigado pela dicas e ajuda.

O fórum agradece o retorno. Sucesso.

Olá,

Abri o tópico novamente.

Alguém poderia me ajudar como centralizar por código? Já que não é possível fazer de outro jeito.

Quero centralizar caixa de texto e o botão de comando.

Talvez ajude

https://www.maximoaccess.com/t40139-centralizando-controles-horizontalmente-no-formulario#273465