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]Caixa de texto ao receber o foco

    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4772
    Registrado : 06/11/2009

    [Resolvido]Caixa de texto ao receber o foco Empty [Resolvido]Caixa de texto ao receber o foco

    Mensagem  Assis 29/10/2014, 13:01

    Ba tarde amigos
    Tenho uma caixa de texto que ao receber o foco tem a seguinte função:

    Private Sub txtMensagem_GotFocus()
    On Error Resume Next
    If IsNull(Me.txtMensagem) Or Me.txtMensagem = "" Then
    Me.txtMensagem = "Cumprimentos" & vbCrLf & Me.Nome
    Me.txtMensagem.BackColor = 8454143
    Else
    End If
    End Sub

    Quando entro na caixa tem já digitado

    Cumprimentos
    Anibal Assis

    Mas a palavra Cumprimentos está logo no inicio da caixa e eu queria que ela estivesse na segunda linha.

    Já tentei assim mas nao resultou

    Me.txtMensagem = " & vbCrLf &" "Cumprimentos" & vbCrLf & Me.Nome


    .................................................................................
    *** Só sei que nada sei ***
    LiveBrain
    LiveBrain
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 182
    Registrado : 15/05/2011

    [Resolvido]Caixa de texto ao receber o foco Empty Re: [Resolvido]Caixa de texto ao receber o foco

    Mensagem  LiveBrain 29/10/2014, 14:05

    Opa Assis,
    Tente o seguinte
    Código:
    Me.txtMensagem = vbCrLf & "Cumprimentos" & vbCrLf & Me.Nome


    .................................................................................
    Abraços

    Live Brain Tutoriais

    "Fraca é a pessoa que não conhece a força que possui nos amigos"
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4772
    Registrado : 06/11/2009

    [Resolvido]Caixa de texto ao receber o foco Empty Re: [Resolvido]Caixa de texto ao receber o foco

    Mensagem  Assis 29/10/2014, 14:28

    Fabio

    Só isto " a +

    Estive perto
    Obrigado


    .................................................................................
    *** Só sei que nada sei ***

    Conteúdo patrocinado


    [Resolvido]Caixa de texto ao receber o foco Empty Re: [Resolvido]Caixa de texto ao receber o foco

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 7/11/2024, 19:11