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


    [Resolvido]Relatório com vários critérios de busca e seleção múltipla

    avatar
    RegisBorda
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 58
    Registrado : 07/02/2014

    [Resolvido]Relatório com vários critérios de busca e seleção múltipla Empty [Resolvido]Relatório com vários critérios de busca e seleção múltipla

    Mensagem  RegisBorda 16/10/2022, 17:44

    Prezados,

    Boa tarde a todos,

    Estou tentando gerar um relatório "Rel Contas a Receber" com alguns critérios de busca e uma seleção múltipla "filtro" de empresas porém não consigo fazer funcionar.

    A seleção das empresas "filtro" não está sendo considerada.

    Não estou conseguindo identificar o problema.

    Alguém poderia me dar uma ajudinha.

    Muito Grato,

    Forte abraço a todos

    Regis Borda

    Segue o código :

    On Error Resume Next
    If IsNull([TipoVenda]) Then
      MsgBox "Você deve informar o Tipo de Venda!!! Use Tab para mudar de campo.", , "Erro de Tipo Venda"
      DoCmd.GoToControl "TipoVenda"
    Else
      If IsNull([FormPgto]) Then
         MsgBox "Você deve informar a Forma de Pgto!!! Use Tab para mudar de campo.", , "Erro de Form Pgto"
         DoCmd.GoToControl "FormPgto"
      Else
         If IsNull([TipoBanco]) Then
            MsgBox "Você deve informar o Banco!!! Use Tab para mudar de campo.", , "Erro de Tipo Banco"
            DoCmd.GoToControl "TipoBanco"
         Else
            If IsNull([Pago]) Then
               MsgBox "Você deve informar se foi Pago (Sim -1 ou Não 0)!!! Use Tab para mudar de campo.", , "Erro de Pago"
               DoCmd.GoToControl "Pago"
            Else
               If IsNull([DtEmissaoInicial]) Or IsNull([DtEmissaoFinal]) Then
                  MsgBox "Você deve informar a Data Inicial e Final!!! Use Tab para mudar de campo.", , "Erro de Data"
                  DoCmd.GoToControl "DtEmissaoInicial"
               Else
                  If [DtEmissaoInicial] > [DtEmissaoFinal] Then
                     MsgBox "A Data Final deve ser maior ou igual a Data Inicial.", , "Erro de Data"
                     DoCmd.GoToControl "DtEmissaoFinal"
                  Else
                     Dim filtro As String, Sel As Variant, nSel As Integer, j As Boolean
                     filtro = "in("
                     For Each Sel In Me!Lista.ItemsSelected
                     'filtro = filtro & Me!Lista.Column(0, Sel) & ","
                     filtro = filtro & "'" & Me!Lista.Column(0, Sel) & "',"
                     j = True
                     Next
                     filtro = Mid(filtro, 1, InStrRev(filtro, ",") - 1) & ")"
                     filtro = "CodParc " & filtro
                     If j = False Then Exit Sub

                     DoCmd.OpenReport "Rel Contas a Receber", 2, , -"DtEmissaoInicial>=#" & Me![DtEmissaoInicial] & "# And DtEmissaoFinal <= #" - Me![DtEmissaoFinal] & " And TipoVenda <=" - Me![TipoVenda] & " And FormPgto <=" - Me![FormPgto] & " And TipoBanco <=" - Me![TipoBanco] & " And Pago <=" - Me![Pago] & " And filtro <=" - filtro
                     DoCmd.RunCommand acCmdZoom75
                     Me.visible = False 'torna o form invisível
                     DoCmd.SelectObject acReport, "Rel Contas a Receber", False
                  End If
               End If
            End If
         End If
      End If
    End If
    End Sub
    avatar
    RegisBorda
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 58
    Registrado : 07/02/2014

    [Resolvido]Relatório com vários critérios de busca e seleção múltipla Empty Re: [Resolvido]Relatório com vários critérios de busca e seleção múltipla

    Mensagem  RegisBorda 16/10/2022, 18:29

    Pessoal

    Consegui resolver.

    Eliminei o campo código parceiros. deixando o campo só de Parceiros e acertei o código.

    Abs

    Regois Borda

      Data/hora atual: 25/2/2024, 09:08