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


2 participantes

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

    GCONTABIL
    GCONTABIL
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  GCONTABIL 18/7/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
    Caio
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Caio 29/7/2015, 16:27

    segue um exemplo:

      Data/hora atual: 19/4/2024, 11:56