[Resolvido]Filtro não funciona

Bom dia amigos,

Alguém pode me dá uma dica porque esse filtro não funciona. Onde está o erro?

Código:

Dim filtro As String
Dim Sel As Variant
Dim j As Boolean
Dim SqlTxt As String, Msg As String

filtro = "in("
For Each Sel In Me!Lista.ItemsSelected
    filtro = filtro & Me!Lista.Column(0, Sel) & ","
    j = True
Next
filtro = Mid(filtro, 1, (Len(filtro) - 1)) & ")"
filtro = "Codigo_Cliente " & filtro

If j = False Then
    MsgBox "Selecione uma ou mais funcionário...", vbInformation, "Aviso"
    Me!Lista.SetFocus
    Me!Lista = 0
Else

    DoCmd.SetWarnings False
    
    SqlTxt = "UPDATE tbl_Clientes SET tbl_Clientes.ImpContrato = 'Impresso' WHERE tbl_Clientes.Codigo_Cliente and filtro "

        DoCmd.RunSQL SqlTxt
        Me.Refresh

    DoCmd.SetWarnings True
End If

Não está atualizando a tabela.

Grato,

Amigo, com essas informaçoes fica meio Complicado lhe ajudar... Mas no Chute...

Achei meio estranha essa linha aqui:

SqlTxt = "UPDATE tbl_Clientes SET tbl_Clientes.ImpContrato = 'Impresso' WHERE tbl_Clientes.Codigo_Cliente and filtro "

Sua Condição esta meio estranha: WHERE tbl_Clientes.Codigo_Cliente and filtro " Seu Campo tem que ser igual a algo...
tbl_Clientes.Codigo_Cliente and filtro

Não seria: WHERE tbl_Clientes.Codigo_Cliente = filtro "

Suponhando que sua instrução anterior esteja toda correta, com nomes de Campos e tal... Ela Vai na Caixa de listagem chamada "Lista" e pega o valor da coluna (0) que em tese seriam Numeros e armazena na variavel Filtro nesse Formato: 10,80,45,90,100 para Ser usada na instrução SQL referenciada a cima...


Dica:

Coloque o que pretende fazer com esse codigo;
Poste seu Exemplo, pois assim fica mais facil dos utilizadores lhe ajudar!

Avelino Sampaio escreveu:Observe que filtro já inclui o campo Codigo_cliente

Bem lembrado meste...

Oi bom dia!

É verdade Avelino e Fábio!!
Muito obrigado, não conseguia enxergar o erro de jeito nenhum.

Grato!!!