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]Ajuda no exemplo AutoCompletaCaixaTexto

    Compartilhe

    Naldo
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 376
    Registrado : 16/02/2011

    [Resolvido]Ajuda no exemplo AutoCompletaCaixaTexto

    Mensagem  Naldo em Sex 03 Jun 2016, 14:49

    Bom dia a todos
    Não estou conseguindo adaptar o exemplo do João Paulo(JP) AutoCompletaCaixaTexto
    Esta dando o seguinte erro: Erro de Compilação variável não definida (como na imagemm)

    Algum amigo do Fórum poderia me dar uma luz.

    Sou grato pela atenção
    Anexos
    erro comp.gif
    Você não tem permissão para fazer download dos arquivos anexados.
    (21 Kb) Baixado 4 vez(es)
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3221
    Registrado : 14/08/2013

    Re: [Resolvido]Ajuda no exemplo AutoCompletaCaixaTexto

    Mensagem  FabioPaes em Sex 03 Jun 2016, 14:59

    A baixo da linha 'By JPaulo...

    Coloque:

    Dim I As Integer

    Deverá resolver!


    Obs: Topico na Sala Errada amigo! O correto seria em Módulos e VBA


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!

    Naldo
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 376
    Registrado : 16/02/2011

    Re: [Resolvido]Ajuda no exemplo AutoCompletaCaixaTexto

    Mensagem  Naldo em Sex 03 Jun 2016, 16:05

    Agora esta dando erro na continuação conforme imagem
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3221
    Registrado : 14/08/2013

    Re: [Resolvido]Ajuda no exemplo AutoCompletaCaixaTexto

    Mensagem  FabioPaes em Sex 03 Jun 2016, 16:08

    Sem Imagem...

    Posta seu BD amigo!


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!

    Naldo
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 376
    Registrado : 16/02/2011

    Re: [Resolvido]Ajuda no exemplo AutoCompletaCaixaTexto

    Mensagem  Naldo em Sex 03 Jun 2016, 16:12

    Public Sub LimparMinhaArray(ByRef strArray() As String)
    'By JPaulo@Outubro 2009
      min = LBound(strArray)    Aqui esta dando o erro
     max = UBound(strArray)
       For X = min To max
           strArray(X) = ""
       Next
    End Sub


    O Banco é grande demais
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3221
    Registrado : 14/08/2013

    Re: [Resolvido]Ajuda no exemplo AutoCompletaCaixaTexto

    Mensagem  FabioPaes em Sex 03 Jun 2016, 16:14

    Entao mova para um BD novo apenas a parte envolvida amigo!


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!

    Naldo
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 376
    Registrado : 16/02/2011

    Re: [Resolvido]Ajuda no exemplo AutoCompletaCaixaTexto

    Mensagem  Naldo em Sex 03 Jun 2016, 21:05

    Ok segue em anexo o form com erro

    Sou muito grato ela sua atenção.
    Anexos
    Exemplo estudos.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (1.7 Mb) Baixado 20 vez(es)
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3221
    Registrado : 14/08/2013

    Re: [Resolvido]Ajuda no exemplo AutoCompletaCaixaTexto

    Mensagem  FabioPaes em Sex 03 Jun 2016, 22:49

    Amigo, na sua List6 Mude a coluna Acoplada para 2;

    E mude sua funçao para:

    Código:
    Public Sub LimparMinhaArray(ByRef strArray() As String)
    'By JPaulo@Outubro 2009
    Dim Min, Max, X As Integer
        Min = LBound(strArray)
        Max = UBound(strArray)
       
        For X = Min To Max
            strArray(X) = ""
        Next
    End Sub


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!

    Naldo
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 376
    Registrado : 16/02/2011

    Re: [Resolvido]Ajuda no exemplo AutoCompletaCaixaTexto

    Mensagem  Naldo em Sab 04 Jun 2016, 00:03

    Ok, esta acontecendo um erro digito seleciona o texto até ai tudo certinho mas quando eu pressiono a tecla Enter apaga o teste selecionado, testa por ai para vc ver o erro.

    Naldo
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 376
    Registrado : 16/02/2011

    Re: [Resolvido]Ajuda no exemplo AutoCompletaCaixaTexto

    Mensagem  Naldo em Sab 04 Jun 2016, 01:10

    Fábio acertei por aqui, ao selecionar o texto pressiono a tecla Enter vai par o próximo campo e fica tudo certinho.

    Private Sub Obs_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyReturn Then
    NumeroCheque.Enabled = True
    Me.NumeroCheque.SetFocus
    End If
    End Sub


    Fábio sou muito grato pela sua atenção e presteza.
    Pessoas como você engrandece este Fórum.

    Grande abraço DEUS lhe abençoe.

    Naldo
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 376
    Registrado : 16/02/2011

    Re: [Resolvido]Ajuda no exemplo AutoCompletaCaixaTexto

    Mensagem  Naldo em Sab 04 Jun 2016, 01:12

    Desculpe-me esqueci de dar por resolvido.

      Data/hora atual: Ter 25 Jul 2017, 13:41