MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


    [Resolvido]Centralizar botões e caixa de textos automaticamente

    avatar
    tombr300
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 223
    Registrado : 08/04/2018

    [Resolvido]Centralizar botões e caixa de textos automaticamente Empty [Resolvido]Centralizar botões e caixa de textos automaticamente

    Mensagem  tombr300 em 19/7/2019, 17:01

    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?



    Última edição por tombr300 em 19/7/2019, 19:11, editado 1 vez(es)
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 848
    Registrado : 13/12/2016

    [Resolvido]Centralizar botões e caixa de textos automaticamente Empty Re: [Resolvido]Centralizar botões e caixa de textos automaticamente

    Mensagem  Alexandre Fim em 19/7/2019, 18:23

    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


    .................................................................................
    "Aprender é a única coisa de que a mente nunca se cansa, nunca tem medo e nunca se arrepende." (Leonardo da Vinci)
    "O impossível existe até que alguém duvide dele e prove o contrário." (Albert Einstein)
    avatar
    tombr300
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 223
    Registrado : 08/04/2018

    [Resolvido]Centralizar botões e caixa de textos automaticamente Empty Re: [Resolvido]Centralizar botões e caixa de textos automaticamente

    Mensagem  tombr300 em 19/7/2019, 18:58

    Olá, Alexandre Fim

    Obrigado pela dica.

    Eu já tinha percebido isso.

    Porém não estou conseguindo centralizar automaticamente.


    Última edição por tombr300 em 20/7/2019, 16:36, editado 1 vez(es)
    good guy
    good guy
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1273
    Registrado : 05/02/2010

    [Resolvido]Centralizar botões e caixa de textos automaticamente Empty Centralizar botões e caixa de texto automaticamente

    Mensagem  good guy em 19/7/2019, 19:27

    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.
    avatar
    tombr300
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 223
    Registrado : 08/04/2018

    [Resolvido]Centralizar botões e caixa de textos automaticamente Empty Re: [Resolvido]Centralizar botões e caixa de textos automaticamente

    Mensagem  tombr300 em 19/7/2019, 20:15

    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.
    good guy
    good guy
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1273
    Registrado : 05/02/2010

    [Resolvido]Centralizar botões e caixa de textos automaticamente Empty Centralizar botões e caixa de texto automaticamente

    Mensagem  good guy em 19/7/2019, 21:09

    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.

    http://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
    IvanJr.
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1017
    Registrado : 22/11/2016

    [Resolvido]Centralizar botões e caixa de textos automaticamente Empty Re: [Resolvido]Centralizar botões e caixa de textos automaticamente

    Mensagem  IvanJr. em 19/7/2019, 21:42

    Por você dizer que faz manualmente, entendo que esteja querendo o ajuste centralizado no modo design tipo a opção abaixo oferecida no powerpoint
    [Resolvido]Centralizar botões e caixa de textos automaticamente Ffffdf10

    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.


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    avatar
    tombr300
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 223
    Registrado : 08/04/2018

    [Resolvido]Centralizar botões e caixa de textos automaticamente Empty Re: [Resolvido]Centralizar botões e caixa de textos automaticamente

    Mensagem  tombr300 em 20/7/2019, 00:04

    Olá, good guy e IvanJr.

    Obrigado pela dicas e ajuda.

    Como não é possível centralizar automaticamente os dados na grande igual ao Word.

    Vou encerrar tópico.

    Por código VBA não me atende.
    IvanJr.
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1017
    Registrado : 22/11/2016

    [Resolvido]Centralizar botões e caixa de textos automaticamente Empty Re: [Resolvido]Centralizar botões e caixa de textos automaticamente

    Mensagem  IvanJr. em 20/7/2019, 14:04

    O fórum agradece o retorno. Sucesso.


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.

    Conteúdo patrocinado

    [Resolvido]Centralizar botões e caixa de textos automaticamente Empty Re: [Resolvido]Centralizar botões e caixa de textos automaticamente

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 23/11/2019, 00:26