MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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


2 participantes

    [Resolvido]Posicionar Cursor a Esqueda do TextBox

    Luiz Gustavo M
    Luiz Gustavo M
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 447
    Registrado : 13/09/2011

    [Resolvido]Posicionar Cursor a Esqueda do TextBox Empty Posicionar Cursor a Esqueda do TextBox

    Mensagem  Luiz Gustavo M Qui 10 Nov - 20:24

    Boa noite a todos.

    O problema:..... Ao receber foco, posicionar o cursor no inicio (lado esquerdo) do "MeuCampo".....

    Uso Access 2003
    Forms Simples não vinculado a nenhuma tabela.
    "MeuCampo" é textbox, sendo: "Formato": padrão (Ex.: 3.987,00), "Casa decimais" = 2 e "Valor padrão" = 0. Ao receber foco: Me.textbox = null

    Se eu deixo sem "Formato": padrão (Ex.: 3.987,00), da certo, ou seja, da o resultado esperado, no entanto preciso do formato padrão.

    Se usar: Me.MeuCampo.SelStart = 0 e Me.MeuCampo.SelLength = 0 o cursor se posiciona no inicio do texto e não no inicio do MeuCampo.

    Parece-me ser uma solução simples, mas esgotei minhas pesquisas no forum e não achei solução para o problema.

    Peço ajuda aos companheiros.

    Obrigado




    bitabit
    bitabit
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 225
    Registrado : 14/07/2010

    [Resolvido]Posicionar Cursor a Esqueda do TextBox Empty Re: [Resolvido]Posicionar Cursor a Esqueda do TextBox

    Mensagem  bitabit Qui 10 Nov - 22:06

    Será que serve assim?

    Coloque a textbox sem qualquer formato

    e depois:

    Código:

        Private Sub Texto0_AfterUpdate()
        Me.Texto0 = Format(Me.Texto0, "#,##0.00 €")
        End Sub


    .................................................................................
    Se vires um homem com fome, não lhe dês um peixe, ensina-o a pescar.
    Provérbio Chinês
    Luiz Gustavo M
    Luiz Gustavo M
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 447
    Registrado : 13/09/2011

    [Resolvido]Posicionar Cursor a Esqueda do TextBox Empty Re: [Resolvido]Posicionar Cursor a Esqueda do TextBox

    Mensagem  Luiz Gustavo M Qui 10 Nov - 22:19

    Olá
    Amigo

    Resolveu! No entanto criei um outro problema inesperado
    Ficou assim:

    Private Sub Valor_Exit(Cancel As Integer)
    Me.Valor = Format(Me.Valor, "#,##0.00 ")
    End Sub

    Só removi o simbolo que estava após os zeros. (Vai dar problema?)

    Preciso, ao sair do campo, que o valor fique a direita do campo. Me da mais esta ajuda?

    Obrigado


    bitabit
    bitabit
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 225
    Registrado : 14/07/2010

    [Resolvido]Posicionar Cursor a Esqueda do TextBox Empty Re: [Resolvido]Posicionar Cursor a Esqueda do TextBox

    Mensagem  bitabit Sex 11 Nov - 10:33

    o simbolo não vai dar qualquer problema, apenas coloquei porque pensei que se tratava de moeda.


    Quanto ao outro problema que tem, acrescente a linha que está a vermelho e teste:

    Private Sub Valor_Exit(Cancel As Integer)
    Me.Valor = Format(Me.Valor, "#,##0.00 ")
    Me.Valor.TextAlign = 3
    End Sub




    .................................................................................
    Se vires um homem com fome, não lhe dês um peixe, ensina-o a pescar.
    Provérbio Chinês
    Luiz Gustavo M
    Luiz Gustavo M
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 447
    Registrado : 13/09/2011

    [Resolvido]Posicionar Cursor a Esqueda do TextBox Empty Re: [Resolvido]Posicionar Cursor a Esqueda do TextBox

    Mensagem  Luiz Gustavo M Sex 11 Nov - 13:03

    Cara
    Você foi 10!!!

    Um grande abraço.

    Muito Obrigado.

    Luiz Gustavo
    bitabit
    bitabit
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 225
    Registrado : 14/07/2010

    [Resolvido]Posicionar Cursor a Esqueda do TextBox Empty Re: [Resolvido]Posicionar Cursor a Esqueda do TextBox

    Mensagem  bitabit Sex 11 Nov - 13:17

    O forum agradece, até à proxima... Smile


    .................................................................................
    Se vires um homem com fome, não lhe dês um peixe, ensina-o a pescar.
    Provérbio Chinês

    Conteúdo patrocinado


    [Resolvido]Posicionar Cursor a Esqueda do TextBox Empty Re: [Resolvido]Posicionar Cursor a Esqueda do TextBox

    Mensagem  Conteúdo patrocinado


      Data/hora atual: Qui 28 Mar - 9:31