MaximoAccess

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

Obrigado

Administração do MaximoAccess


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.

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Ajuda no exemplo AutoCompletaCaixaTexto

    avatar
    Naldo
    Avançado
    Avançado

    Respeito às Regras 100%

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

    [Resolvido]Ajuda no exemplo AutoCompletaCaixaTexto Empty [Resolvido]Ajuda no exemplo AutoCompletaCaixaTexto

    Mensagem  Naldo 3/6/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
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

    [Resolvido]Ajuda no exemplo AutoCompletaCaixaTexto Empty Re: [Resolvido]Ajuda no exemplo AutoCompletaCaixaTexto

    Mensagem  FabioPaes 3/6/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!
    avatar
    Naldo
    Avançado
    Avançado

    Respeito às Regras 100%

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

    [Resolvido]Ajuda no exemplo AutoCompletaCaixaTexto Empty Re: [Resolvido]Ajuda no exemplo AutoCompletaCaixaTexto

    Mensagem  Naldo 3/6/2016, 16:05

    Agora esta dando erro na continuação conforme imagem
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

    [Resolvido]Ajuda no exemplo AutoCompletaCaixaTexto Empty Re: [Resolvido]Ajuda no exemplo AutoCompletaCaixaTexto

    Mensagem  FabioPaes 3/6/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!
    avatar
    Naldo
    Avançado
    Avançado

    Respeito às Regras 100%

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

    [Resolvido]Ajuda no exemplo AutoCompletaCaixaTexto Empty Re: [Resolvido]Ajuda no exemplo AutoCompletaCaixaTexto

    Mensagem  Naldo 3/6/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
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

    [Resolvido]Ajuda no exemplo AutoCompletaCaixaTexto Empty Re: [Resolvido]Ajuda no exemplo AutoCompletaCaixaTexto

    Mensagem  FabioPaes 3/6/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!
    avatar
    Naldo
    Avançado
    Avançado

    Respeito às Regras 100%

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

    [Resolvido]Ajuda no exemplo AutoCompletaCaixaTexto Empty Re: [Resolvido]Ajuda no exemplo AutoCompletaCaixaTexto

    Mensagem  Naldo 3/6/2016, 21:05

    Ok segue em anexo o form com erro

    Sou muito grato ela sua atenção.
    Anexos
    [Resolvido]Ajuda no exemplo AutoCompletaCaixaTexto AttachmentExemplo estudos.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (1.7 Mb) Baixado 21 vez(es)
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

    [Resolvido]Ajuda no exemplo AutoCompletaCaixaTexto Empty Re: [Resolvido]Ajuda no exemplo AutoCompletaCaixaTexto

    Mensagem  FabioPaes 3/6/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!
    avatar
    Naldo
    Avançado
    Avançado

    Respeito às Regras 100%

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

    [Resolvido]Ajuda no exemplo AutoCompletaCaixaTexto Empty Re: [Resolvido]Ajuda no exemplo AutoCompletaCaixaTexto

    Mensagem  Naldo 4/6/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.
    avatar
    Naldo
    Avançado
    Avançado

    Respeito às Regras 100%

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

    [Resolvido]Ajuda no exemplo AutoCompletaCaixaTexto Empty Re: [Resolvido]Ajuda no exemplo AutoCompletaCaixaTexto

    Mensagem  Naldo 4/6/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.
    avatar
    Naldo
    Avançado
    Avançado

    Respeito às Regras 100%

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

    [Resolvido]Ajuda no exemplo AutoCompletaCaixaTexto Empty Re: [Resolvido]Ajuda no exemplo AutoCompletaCaixaTexto

    Mensagem  Naldo 4/6/2016, 01:12

    Desculpe-me esqueci de dar por resolvido.

      Data/hora atual: 27/2/2021, 07:06