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]Contar caracteres

    Compartilhe

    adriano944
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 187
    Registrado : 10/02/2010

    Contar caracteres

    Mensagem  adriano944 em Sex 26 Mar 2010, 12:58

    Pessoal

    Estou com uma duvida que é o seguinte..

    como faço para contar os caracteres de uma célula, porem precisa ser via VBA..

    tentei usar o LEN, porem nao obtive sucesso..

    eu preciso fazer um if..onde se a quantidade de caracteres seja igual a 11, senao...olha a celula abaixo...e assim sucessivamente...

    obrigado
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9337
    Registrado : 04/11/2009

    Re: [Resolvido]Contar caracteres

    Mensagem  JPaulo em Sex 26 Mar 2010, 13:35

    Private Sub CaixaTexto1_Change()
    Me.CaixaTexto1.AutoTab = False
    If Len(CaixaTexto1.Text) = 11 Then
    DoCmd.GoToControl "CaixaTexto2"
    Else
    Exit Sub
    End If
    End Sub


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

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

    Sucesso e Bons Estudos
    Success and Good Studies

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

    adriano944
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 187
    Registrado : 10/02/2010

    Re: [Resolvido]Contar caracteres

    Mensagem  adriano944 em Sex 26 Mar 2010, 17:57

    Obrigado JPaulo

    lepedesa
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 64
    Registrado : 04/06/2013

    Re: [Resolvido]Contar caracteres

    Mensagem  lepedesa em Sab 10 Set 2016, 03:05

    Ótima lembrança. cheers

      Data/hora atual: Sab 22 Jul 2017, 05:48