Bom dia gente,me deu um branco na cabeça e não consigo filtrar por ano esse form.
Vejam.
Vejam.
Private Sub CboAno_AfterUpdate()
'Dim cxPesquisar As String
'cxPesquisar = txtAno.Value
'-- Se o ano for nulo, carrega tudo
If IsNull(CboAno) Then
With Me.FormServiço
.Form.Filter = "[Ano] >= 1900"
.Form.FilterOn = True
.Form.Requery
End With
Exit Sub
End If
'-- Filtra os dados ao informar o ano
With Me.FormServiço
.Form.Filter = "[Ano] = " & CboAno.Value & ""
.Form.FilterOn = True
.Form.Requery
End With
'If cxPesquisar <> "" Then
'Me.FormServiço.Form.Filter = "Ano Like '*" & cxPesquisar & "*'"
'Me.FormServiço.Form.FilterOn = True
'Else
'Me.FormServiço.Form.FilterOn = False
'End If
End Sub
|
|