Início![[Resolvido]Filtrar por ano Empty](https://2img.net/i/empty.gif)
Kaynan 23/1/2022, 13:43Bom dia gente,me deu um branco na cabeça e não consigo filtrar por ano esse form.
Vejam.
Vejam.
2 participantes
[Resolvido]Filtrar por ano
Kaynan- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 2980
Registrado : 09/04/2012
Alexandre Fim- Developer
- Respeito às regras :
Sexo :
Localização :
Mensagens : 3494
Registrado : 13/12/2016
Olá Kaynan,
Substitua Apos Atualizar do combo do ano pelo código abaixo:
É isso
Boa sorte
Substitua Apos Atualizar do combo do ano pelo código abaixo:
- Código:
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
É isso
Boa sorte
.................................................................................
Marcar tópico como Resolvido: clique aqui Postar anexos no fórum: clique aqui ![[Resolvido]Filtrar por ano Setinf11](https://i.servimg.com/u/f50/19/64/99/05/setinf11.png)
Sistemas e Tecnologia Ltda
Kaynan- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 2980
Registrado : 09/04/2012
Grande Alexandre,vc é o cara,muito obrigado mais uma vez.
Abraços.
Abraços.