[Resolvido]Código não executa

Grandes 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

Olá,

São os espaços excessivos entre o apóstrofo e o asterisco.

Aproveitei e fiz uns ajustes, colocando o tratamento de erro:

Código:



Private Sub SubFiltrar()
On Error GoTo trata_erro
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
   
    Exit Sub

trata_erro:

    MsgBox "Erro gerado: " & Err.Number & " - " & Err.Description & "", vbCritical, "Erro!!!"
    Exit Sub

   
End Sub



É isso

Abs

Valeu Alexandre, resolvido, muito grato, forte abraço.

Valeu amigo. O fórum agradece.
Sucesso !!!