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


3 participantes

    [Resolvido]filtrar utilizando 3 caixas de listagens independentemente

    avatar
    fapapa
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]filtrar utilizando 3 caixas de listagens independentemente Empty filtrar utilizando 3 caixas de listagens independentemente

    Mensagem  fapapa Ter 09 Ago 2011, 12:58 am

    Como escrever o código para um formulário com duas caixas de listagens realizarem filtragens para impressão de um relatório?
    Cada caixa de listagem pertence à uma determinada tabela individual.
    Consegui escrever o código para filtrar a 1ª caixa de listagem ao clicar em btRelatorio.
    Consegui ainda escrever o código de um botão que limpar todas as seleções.
    Preciso de ajuda para filtrar as duas caixas de listagens, quer sejam selecionadas juntas ou separadamente...

    Segue o código que escrevi até agora...


    Option Compare Database

    Private Sub btRelatorio_Click()
    Dim filtro As String
    Dim Sel As Variant
    Dim j As Boolean

    filtro = "in("
    For Each Sel In Me!ListaFornec.ItemsSelected
    filtro = filtro & Me!ListaFornec.Column(0, Sel) & ","
    j = True

    Next
    filtro = Mid(filtro, 1, (Len(filtro) - 1)) & ")"
    filtro = "IDFornec" & filtro

    If j = False Then
    MsgBox "Selecione um ou mais fornecedor.", vbInformation, "Aviso"
    Me!ListaFornec.SetFocus
    Me!Lista = 0

    Else
    DoCmd.OpenReport "rltprecos", acViewPreview, filtro

    End If
    End Sub


    Private Function fncSelecionar(Status As Boolean)
    Dim j As Long
    For j = Me!ListaFornec.ListCount - 1 To 0 Step -1
    Me!ListaFornec.Selected(j) = Status
    Me!ListaEspecie.Selected(j) = Status

    Next
    Me!ListaFornec.SetFocus
    Me!ListaFornec = 0

    End Function
    avatar
    ton0612
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 275
    Registrado : 30/03/2011

    [Resolvido]filtrar utilizando 3 caixas de listagens independentemente Empty Re: [Resolvido]filtrar utilizando 3 caixas de listagens independentemente

    Mensagem  ton0612 Qua 10 Ago 2011, 2:05 am

    Boa tarde amigo tudo bem?

    O relatório vem de uma consulta? eu faria assim:

    crie uma consulta e nos campos de critérios utilize, por exemplo no cod_fornecedor, como "*" & [Formulários]![frmDadosRelatorio]![Cod_Fornecedor] & "*"

    Faça isso para cada critério e no botão de abrir o relatório só use o openreport.......
    ele ja abre com os critérios da consulta.




    vieirasoft
    vieirasoft
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7304
    Registrado : 11/05/2010

    [Resolvido]filtrar utilizando 3 caixas de listagens independentemente Empty Re: [Resolvido]filtrar utilizando 3 caixas de listagens independentemente

    Mensagem  vieirasoft Qua 10 Ago 2011, 2:22 am

    Não sei se ajuda. mas aqui no repositório de exemplos tem lá um exemplo que filtra 3 combos. É tentar adaptar às suas necessidades
    vieirasoft
    vieirasoft
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7304
    Registrado : 11/05/2010

    [Resolvido]filtrar utilizando 3 caixas de listagens independentemente Empty Re: [Resolvido]filtrar utilizando 3 caixas de listagens independentemente

    Mensagem  vieirasoft Qua 10 Ago 2011, 2:30 am

    http://dl.dropbox.com/u/8157744/combos3.rar
    vieirasoft
    vieirasoft
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7304
    Registrado : 11/05/2010

    [Resolvido]filtrar utilizando 3 caixas de listagens independentemente Empty Re: [Resolvido]filtrar utilizando 3 caixas de listagens independentemente

    Mensagem  vieirasoft Ter 16 Ago 2011, 10:49 pm

    Como não retornou, o tópico passa a resolvido. Qualquer coisa reabra, por favor.

    Conteúdo patrocinado


    [Resolvido]filtrar utilizando 3 caixas de listagens independentemente Empty Re: [Resolvido]filtrar utilizando 3 caixas de listagens independentemente

    Mensagem  Conteúdo patrocinado


      Data/hora atual: Sex 29 Mar 2024, 5:59 am