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

    Filtro por selecao com dois parametros

    ronaldojr1
    ronaldojr1
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 419
    Registrado : 01/08/2011

    Filtro por selecao com dois parametros Empty Filtro por selecao com dois parametros

    Mensagem  ronaldojr1 em 9/11/2012, 12:34

    ' Exemplo de como filtar por selecao com dois parametros
    ' usando recordset e bookmark
    ' Created by Ronaldo X. Souza Jr

    ' associe o seguinte codigo no evento de um botao

    dim filtro1 as string
    dim filtro2 as string

    'Guarda valores do campo 1 e campo 2

    filtro1 = "NomeDoCampo1 = " & me.NomeDoCampo1
    filtro2 = "NomeDoCampo2 = " & me.NomeDoCampo2

    'Filtra campo1
    'Procura pelo valor guardado da variavel filtro1
    Me.RecordSet.FindFirst (filtro1)

    'Aponta o formulario para o cursor que o .FindFirst Achou
    Form_NomeDoFormulario.Bookmark = Me.RecordSetClone.Bookmark

    'Seleciona O campo1
    docmd.GoToControl "NomeDoCampo1"

    'Comando usado para filtrar por selecao
    DoCmd.RunCommand acCmdFilterBySelection
    'Fim Filtra Campo 1

    'Filtra Campo 2

    Me.RecordSet.FindFirst (filtro2)
    Form_NomeDoFormulario.Bookmark = Me.RecordSetClone.Bookmark
    DoCmd.GoToControl "NomeDoCampo2"
    DoCmd.RunCommand acCmdFilterBySelection

    'Fim Filtra Campo 2




      Data/hora atual: 3/12/2020, 10:04