Início
![[Resolvido]Código não executa Empty](https://2img.net/i/empty.gif)
Finformática Qui 24 Mar 2022, 18:09Grandes Mestres, boa tarde!
Peço-lhes gentilmente que apontem onde está o erro do código abaixo que não aparece erro nem faz nada. Parte do banco anexo.
Private Sub TxtF_Change()
Call SubFiltrar
End Sub
Private Sub SubFiltrar()
Dim StrSQL As String
If Me.Opg = 1 Then
StrSQL = "SELECT * FROM TbContrato WHERE Tipo LIKE ' * " & Me.TxtF.Text & " * ' ORDER BY [Data Compra]"
Else
StrSQL = "Select * FROM TbContrato WHERE Descrição LIKE ' * " & Me.TxtF.Text & " * ' Order by [Data Compra]"
End If
Me.Lbx.RowSource = StrSQL
End Sub
Muito grato,
Forte Abraço
Peço-lhes gentilmente que apontem onde está o erro do código abaixo que não aparece erro nem faz nada. Parte do banco anexo.
Private Sub TxtF_Change()
Call SubFiltrar
End Sub
Private Sub SubFiltrar()
Dim StrSQL As String
If Me.Opg = 1 Then
StrSQL = "SELECT * FROM TbContrato WHERE Tipo LIKE ' * " & Me.TxtF.Text & " * ' ORDER BY [Data Compra]"
Else
StrSQL = "Select * FROM TbContrato WHERE Descrição LIKE ' * " & Me.TxtF.Text & " * ' Order by [Data Compra]"
End If
Me.Lbx.RowSource = StrSQL
End Sub
Muito grato,
Forte Abraço
- Anexos
![[Resolvido]Código não executa Attachment](https://2img.net/i/fa/attachment.png)
Filtro_Tabela.zip - Você não tem permissão para fazer download dos arquivos anexados.
- (491 Kb) Baixado 9 vez(es)
Marcar tópico como Resolvido: ![[Resolvido]Código não executa Setinf11](https://i.servimg.com/u/f50/19/64/99/05/setinf11.png)