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

    Numera linhas em Campo Memo

    Compartilhe
    avatar
    HARYSOHN
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12233
    Registrado : 01/03/2011

    Numera linhas em Campo Memo

    Mensagem  HARYSOHN em Seg 23 Jul 2012, 06:46

    Em ajuda a um colega do Fórum, um pequeno exemplo que pode ser útil

    1 - Crie uma caixa texto desacoplada e nomeeie txtTMP
    2 - Crie um modulo e Nomeeie VarPublicas
    Neste modulo crie duas variáveis publicas:
    Public X as Integer
    Public StrTexto as String
    * Essas variáveis não são limpas ao digitar ou executar o codigo do form. é necessário ao fechar o form, limpá-las.
    3 - Crie uma caixa texto que pode deixar com a largura = 0 para ficar oculta e nomeeie de RecebeFoco

    Em eventos do Form, ao apertar tecla.


    Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 Then
    Me.RecebeFoco.SetFocus
    If X = Empyt Then
    X = 1
    StrTexto = X & " - " & StrTexto & Me.txtTMP
    MsgBox StrTexto
    Me.CpMEMO = StrTexto
    Me.txtTMP = ""
    Else
    X = X + 1
    StrTexto = Me.CpMEMO & vbCrLf & X & " - " & Me.txtTMP
    MsgBox StrTexto
    Me.CpMEMO = StrTexto
    Me.txtTMP = ""
    End If
    Me.txtTMP.SetFocus
    End If
    End Sub


    A lógica disso é ir carregando a variável com o texto digitado na caixa txtTMP e esta variável precedida do Valor de X, que vai sendo incrementado a cada Enter..
    Observe que o primeiro texto a variável assume o valor de 1 e nos proximos enter o codigo remete para a clausula Else, que X será incrementado. e no final Leva ao campo memo ó texto contido na variável.
    A caixa texto txtTMP é limpa a cada enter, e a variável é acrescima do campo Memo /Enter /Novo texto..


    Tópico
    [Você precisa estar registrado e conectado para ver este link.]

    Link do Exemplo
    [Você precisa estar registrado e conectado para ver este link.]


    Cumprimentos.


    .................................................................................
    PILOTO
    الله أكبر Paz, Justiça e Liberdade! الله أكبر
    [Você precisa estar registrado e conectado para ver este link.]

    Iniciando no Access? Então veja esse [Você precisa estar registrado e conectado para ver este link.] e também [Você precisa estar registrado e conectado para ver este link.]


    [Você precisa estar registrado e conectado para ver este link.]

    Quando tua dúvida for RESOLVIDA, dê retorno com AGRADECIMENTO a aqueles que gastaram seu tempo em te ajudar.
    Clique no botão Resolvido logo acima do botão Enviar, do lado direito. Todos nós agradecemos.  
    [Você precisa estar registrado e conectado para ver esta imagem.]

      Data/hora atual: Sab 21 Out 2017, 11:23