Filtro em caixa de listagem formulario desacoplado

Tenho em um formulario desacoplado uma caixa de listagem e não estou conseguindo fazer o filtro com opções

Private Sub subCrgListaDiarias()

Dim strSQL As String
Dim rs As DAO.Recordset

If Me.OpFiltro = 1 Then
strSQL = "select ID_Diarias, VPedido,Matricula, Nome, Origem, Destino, Saida, Chegada, Qtd, Total, Fonte, Ano, Oficio, Lotação, Instituição, Mês, Serviço_Prestado, Descrição_NE, Nº_NE, Situação from TblDiarias WHERE VPedido=" & Me.TxtF
ElseIf Me.OpFiltro = 2 Then
strSQL = "select ID_Diarias, VPedido, Matricula, Nome, Origem, Destino, Saida, Chegada, Qtd, Total, Fonte, Ano, Oficio, Lotação, Instituição, Mês, Serviço_Prestado, Descrição_NE, Nº_NE, Situação from TblDiarias WHERE VPedido=" & Me.TxtF
End If

Set rs = CurrentDb.OpenRecordset(strSQL, , 4)

Me.ListarDiaria.RowSource = ""
Me.ListarDiaria.AddItem "ID; Pedido; Matricula; Nome do Servidor; Origem; Destino; Saida; Chegada; Qtd; Total; Fonte; Ano; Oficio; Lotação; Instituição; Mês; Serviço_Prestado; Descrição_NE; Nº_NE; Situação"

Do Until rs.EOF

Me.ListarDiaria.AddItem rs!ID_Diarias & ";" & rs!VPedido & ";" & rs!Matricula & ";" & rs!Nome & ";" & rs!Origem & ";" & rs!Destino & ";" & rs!Saida & ";" & rs!Chegada & ";" & rs!Qtd & ";" & rs!Total & ";" & rs!Fonte & ";" & rs!Ano & ";" & rs!Oficio & ";" & rs!Lotação & ";" & rs!Instituição & ";" & rs!Mês & ";" & rs!Serviço_Prestado & ";" & rs!Descrição_NE & ";" & rs!Nº_NE & ";" & rs!Situação
rs.MoveNext
Loop

rs.Close
Set rs = Nothing

End Sub


dá o seguinte erro " Erro em tempo de execução '3075': Erro de sintaxe (operador faltando) na expressão de consulta 'VPedido='.

clico em depurar e aparece sublinhado - Set rs = CurrentDb.OpenRecordset(strSQL, , 4)

Olá Saulo,

Seja bem-vindo o fórum.

Se o campo "VPedido" da tabela for do tipo texto, na instrução SQL o critério deve vir acompanhado de aspas simples:

'" & Me.TxtF & "'

Tente isso e veja se funciona.

Att,

FIM

Um pitaco.

observe que você também colocou as aspas de fechamento logo após o sinal de igual, ou seja parte da instrução está de fora.


If Me.OpFiltro = 1 Then
strSQL = "select ID_Diarias, VPedido,Matricula, Nome, Origem, Destino, Saida, Chegada, Qtd, Total, Fonte, Ano, Oficio, Lotação, Instituição, Mês, Serviço_Prestado, Descrição_NE, Nº_NE, Situação from TblDiarias WHERE VPedido=" & Me.TxtF
ElseIf Me.OpFiltro = 2 Then
strSQL = "select ID_Diarias, VPedido, Matricula, Nome, Origem, Destino, Saida, Chegada, Qtd, Total, Fonte, Ano, Oficio, Lotação, Instituição, Mês, Serviço_Prestado, Descrição_NE, Nº_NE, Situação from TblDiarias WHERE VPedido=" & Me.TxtF
End If