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]Pesquisa com Combobox

    Mandy715
    Mandy715
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 62
    Registrado : 23/12/2019

    [Resolvido]Pesquisa com Combobox Empty [Resolvido]Pesquisa com Combobox

    Mensagem  Mandy715 Qua Mar 18, 2020 6:15 am

    Olá! tenho um formulário que tem uma combobox de consulta, entretanto, as vezes ela não funciona, está com a consulta de macro mesmo.. alguém poderia me ajudar a modificá-lo para que funcione através de um código VBA?
    Anexos
    [Resolvido]Pesquisa com Combobox Attachmentbanco.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (46 Kb) Baixado 25 vez(es)
    cleverson_manaus
    cleverson_manaus
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1022
    Registrado : 23/09/2011

    [Resolvido]Pesquisa com Combobox Empty Re: [Resolvido]Pesquisa com Combobox

    Mensagem  cleverson_manaus Qua Mar 18, 2020 9:54 am

    bom dia,


    Aplica esse código na sua combo, no Evento Após Atualizar:

    Código:
    Private Sub BuscaMov_AfterUpdate()

      ' Encontrar o registro que coincide com o controle.
        Me.RecordsetClone.FindFirst "[ID_MOV] = " & Me![BuscaMov] & ""
        Me.Bookmark = Me.RecordsetClone.Bookmark
        Me.DATA_MOV.SetFocus
        Me.BuscaMov = Null

    End Sub


    Abraços,


    .................................................................................
    afro

    "É fazendo que se aprende a fazer aquilo que se deve aprender a fazer."(Aristóteles)
    - Dúvida resolvida!!! Marcar o tópico como resolvido!!!
    Mandy715
    Mandy715
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 62
    Registrado : 23/12/2019

    [Resolvido]Pesquisa com Combobox Empty Re: [Resolvido]Pesquisa com Combobox

    Mensagem  Mandy715 Qui Mar 19, 2020 5:40 am

    Muito Obrigada, funcionou perfeitamente !!

    Conteúdo patrocinado


    [Resolvido]Pesquisa com Combobox Empty Re: [Resolvido]Pesquisa com Combobox

    Mensagem  Conteúdo patrocinado


      Data/hora atual: Qui Nov 07, 2024 2:58 pm