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

4 participantes

    [Resolvido]Abrir formulario e filtrar dados, conforme dados selecionados em caixa de listagem

    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4704
    Registrado : 06/11/2009

    [Resolvido]Abrir formulario e filtrar dados, conforme dados selecionados em caixa de listagem Empty Abrir formulario e filtrar dados, conforme dados selecionados em caixa de listagem

    Mensagem  Assis 19/2/2013, 17:23

    Boa tarde

    Anexo exemplo com explicação..

    Obrigado


    .................................................................................
    *** Só sei que nada sei ***
    avatar
    Kaynan
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2756
    Registrado : 09/04/2012

    [Resolvido]Abrir formulario e filtrar dados, conforme dados selecionados em caixa de listagem Empty Re: [Resolvido]Abrir formulario e filtrar dados, conforme dados selecionados em caixa de listagem

    Mensagem  Kaynan 19/2/2013, 18:04

    https://dl.dropbox.com/u/90217826/Assis%20Filtro.rar
    É quase isso Assis.
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4704
    Registrado : 06/11/2009

    [Resolvido]Abrir formulario e filtrar dados, conforme dados selecionados em caixa de listagem Empty Re: [Resolvido]Abrir formulario e filtrar dados, conforme dados selecionados em caixa de listagem

    Mensagem  Assis 19/2/2013, 18:10

    Kaynan

    Link com erro ...


    .................................................................................
    *** Só sei que nada sei ***
    avatar
    Kaynan
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2756
    Registrado : 09/04/2012

    [Resolvido]Abrir formulario e filtrar dados, conforme dados selecionados em caixa de listagem Empty Re: [Resolvido]Abrir formulario e filtrar dados, conforme dados selecionados em caixa de listagem

    Mensagem  Kaynan 19/2/2013, 21:41

    Veja agora.
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10764
    Registrado : 04/11/2009

    [Resolvido]Abrir formulario e filtrar dados, conforme dados selecionados em caixa de listagem Empty Re: [Resolvido]Abrir formulario e filtrar dados, conforme dados selecionados em caixa de listagem

    Mensagem  JPaulo 20/2/2013, 15:00

    Assis, veja este meu exemplo e tente adaptar;

    Anexos
    [Resolvido]Abrir formulario e filtrar dados, conforme dados selecionados em caixa de listagem AttachmentFiltraComMultiSelect.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (18 Kb) Baixado 105 vez(es)


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Abrir formulario e filtrar dados, conforme dados selecionados em caixa de listagem Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Abrir formulario e filtrar dados, conforme dados selecionados em caixa de listagem Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Abrir formulario e filtrar dados, conforme dados selecionados em caixa de listagem Folder_announce_new Instruções SQL como utilizar...
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4704
    Registrado : 06/11/2009

    [Resolvido]Abrir formulario e filtrar dados, conforme dados selecionados em caixa de listagem Empty Re: [Resolvido]Abrir formulario e filtrar dados, conforme dados selecionados em caixa de listagem

    Mensagem  Assis 21/2/2013, 13:17

    Boa tarde amigos

    Já fiz algum progresso.

    Só falta conseguir filtar as "Rubrica".

    Exemplo

    1º - Selecionar o Banco "Banif"

    2 - Selecionar o Movimento "Pag Multibanco"

    3º - Selecionar 3 Rubricas na caixa Rubricas "Despesas de casa, Eletricidade, e Gás"

    Clikar no botão para abrir o form "Resultado" e ter só 3 registos


    .................................................................................
    *** Só sei que nada sei ***
    HARYSOHN
    HARYSOHN
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12226
    Registrado : 01/03/2011

    [Resolvido]Abrir formulario e filtrar dados, conforme dados selecionados em caixa de listagem Empty Re: [Resolvido]Abrir formulario e filtrar dados, conforme dados selecionados em caixa de listagem

    Mensagem  HARYSOHN 25/2/2013, 12:54

    Boas assis Vamos ver o Baita então...

    Cumprimentos.
    HARYSOHN
    HARYSOHN
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12226
    Registrado : 01/03/2011

    [Resolvido]Abrir formulario e filtrar dados, conforme dados selecionados em caixa de listagem Empty Re: [Resolvido]Abrir formulario e filtrar dados, conforme dados selecionados em caixa de listagem

    Mensagem  HARYSOHN 25/2/2013, 14:55

    Boas Assis, voce esta abrindo o formulario filtrado pelo texto contido na variavel... Faremos diferente..

    Carregaremos uma SQL filtrada por duas variáveis, uma para a primeira lista e a outra para a segunda, e ao abrir o form carregá-lo com esta SQL


    Private Sub Comando30_Click()
    If MsgBox("Confirma a Visualização dos Registos do " & Chr(13) & "" & [Caixa_de_combinação4], vbYesNo, "Gestão Bancária") = vbYes Then
    Dim varItem As Variant, strList As String, strList1 As String

    With Me.Movimentos
    If .ItemsSelected.Count = 0 Then 'conta se há pelo menos 1 selecionado
    MsgBox "Selecione pelo menos um Banco " & Chr(13) & "E um Tipo de Movimento!", vbExclamation, "Gestão Bancária"
    GoSub sai
    Else
    For Each varItem In .ItemsSelected
    ' Você deve alterar a strList conforme o seu caso específico
    If strList = "" Then ' 1º laço do Loop
    strList = .Column(0, varItem)
    Else
    ' A linha abaixo só vai ocorrer a partir do 2º laço
    strList = strList & "," & .Column(0, varItem)
    End If
    Next varItem
    strList = Mid(strList, 2)
    End If
    End With

    'Para a lista Rubrica
    With Me.Rubrica
    If .ItemsSelected.Count = 0 Then 'conta se há pelo menos 1 selecionado
    MsgBox "Selecione pelo menos uma Rubrica ", vbExclamation, "Gestão Bancária"
    GoSub sai
    Else
    For Each varItem In .ItemsSelected
    ' Você deve alterar a strList conforme o seu caso específico
    If strList1 = "" Then ' 1º laço do Loop
    strList1 = .Column(0, varItem)
    Else
    ' A linha abaixo só vai ocorrer a partir do 2º laço
    strList1 = strList1 & "','" & .Column(0, varItem)
    End If
    Next varItem
    strList1 = Mid(strList1, 1)
    End If
    End With
    On Error GoTo sai

    StrSQL = "SELECT Lançamentos.Ordenar, Lançamentos.LN, Lançamentos.Data, Lançamentos.Conta, Lançamentos.[Data Valor]," _
    & "Lançamentos.Movimentos, Lançamentos.Ref, Lançamentos.Entidade, Lançamentos.Doc, Lançamentos.Débito, Lançamentos.Crédito," _
    & "Lançamentos.Observações, Lançamentos.Reconciliado, Lançamentos.[Pré Datado], Lançamentos.Valor" _
    & " FROM Lançamentos WHERE Movimentos In ('" & strList & "') Or Ref In ('" & strList1 & "')"
    MsgBox StrSQL

    DoCmd.openForm "Resultado"

    On Error Resume Next 'erro 2501 caso você cancele a impressão
    If Err = 2501 Then
    Err.Clear
    DoCmd.Close
    'DoCmd.OpenForm "Diálogo Lançamentos"
    End If
    Else


    End If
    sai:
    End Sub


    E ao abrir o form Resultado:


    Private Sub Form_Load()
    Me.RecordSource = StrSQL
    End Sub

    Private Sub Form_Open(Cancel As Integer)
    On Error Resume Next
    'If Me.RecordsetClone.RecordCount = 0 Then
    ' MsgBox "Não Existem Movimentos Para Visualizar", vbQuestion, "Gestão Bancária"
    ' Cancel = True
    ' Exit Sub
    'DoCmd.Close acForm, "Resultado"
    ' End If
    ReSizeForm Me
    DoCmd.Maximize

    End Sub


    Observe que desativei alguns códigos no evento ao abrir... Adpate-os novamente a esta nova forma.

    Obs. Crie uma variável Publica em um Modulo: Public StrSQL as String
    Cumprimentos.
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4704
    Registrado : 06/11/2009

    [Resolvido]Abrir formulario e filtrar dados, conforme dados selecionados em caixa de listagem Empty Re: [Resolvido]Abrir formulario e filtrar dados, conforme dados selecionados em caixa de listagem

    Mensagem  Assis 25/2/2013, 17:03

    Piloto

    O resultado é o esperado.

    Porque aparece a imagem que anexo antes de abrir o Form Resultados

    Aguardo


    .................................................................................
    *** Só sei que nada sei ***
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4704
    Registrado : 06/11/2009

    [Resolvido]Abrir formulario e filtrar dados, conforme dados selecionados em caixa de listagem Empty Re: [Resolvido]Abrir formulario e filtrar dados, conforme dados selecionados em caixa de listagem

    Mensagem  Assis 25/2/2013, 17:48

    Obrigado Piloto

    Já percebi porque aparece a imagem da mensagem anterior

    Abraço


    .................................................................................
    *** Só sei que nada sei ***
    HARYSOHN
    HARYSOHN
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12226
    Registrado : 01/03/2011

    [Resolvido]Abrir formulario e filtrar dados, conforme dados selecionados em caixa de listagem Empty Re: [Resolvido]Abrir formulario e filtrar dados, conforme dados selecionados em caixa de listagem

    Mensagem  HARYSOHN 25/2/2013, 18:00

    E uma msgBox... Apenas a coloquei enquanto testava...

    Não se esqueça do Joinha na msg que o auxiliou.

    Cumprimentos.

      Data/hora atual: 10/8/2022, 18:42