MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    Filtro pelo VB com critérios do Formulário para o Relatório

    Compartilhe

    GCONTABIL
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 138
    Registrado : 17/12/2011

    Filtro pelo VB com critérios do Formulário para o Relatório

    Mensagem  GCONTABIL em Sab 18 Jul 2015, 05:11

    Este código não estar funcionando alguém por ajudar?

    Código:
    Private Sub Pesquisar_Click()
    Dim StrFiltro As String


    StrFiltro = ""

    If Not IsNull(Me.txtUsuario) Then
    StrFiltro = "Responsavel ='" & Me.txtUsuario & "'"
    Else
    StrFiltro = StrFiltro
    End If


    If Not IsNull(Me.txtMeta) Then
    If StrFiltro = "" Then
    StrFiltro = "CNJ ='" & Me.txtMeta & "'"
    Else
    StrFiltro = StrFiltro & " and CNJ ='" & Me.txtMeta & "'"
    End If
    End If


    DoCmd.OpenReport "Fila", acViewPreview, , StrFiltro, acWindowNormal
    End Sub

    Desde já agradeço.

    Caio
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 301
    Registrado : 27/04/2015

    Re: Filtro pelo VB com critérios do Formulário para o Relatório

    Mensagem  Caio em Qua 29 Jul 2015, 16:27

    segue um exemplo:

      Data/hora atual: Sab 03 Dez 2016, 19:40