Este código não estar funcionando alguém por ajudar?
Desde já agradeço.
- 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.