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

    Mandy715
    Mandy715
    Intermediário
    Intermediário

    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 em 18/3/2020, 12:15

    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 18 vez(es)
    cleverson_manaus
    cleverson_manaus
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

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

    Mensagem  cleverson_manaus em 18/3/2020, 15:54

    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 100%

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

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

    Mensagem  Mandy715 em 19/3/2020, 11:40

    Muito Obrigada, funcionou perfeitamente !!

      Data/hora atual: 6/7/2020, 06:52