MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

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
    avatar
    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.
    avatar
    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: Qua 13 Dez 2017, 16:31