[Resolvido]Usando WHERE IN no formulário

Olá pessoal,

Preciso de uma ajuda!

tenho um formulário com uma caixa de Listagem que é alimenta através de um select em uma tabela do banco.

Desejo que essa lista seja alimentada usando como filtro clausa WHERE IN os valores de um determinado campo do formulário.

Nome do campo que será usado pela clausa WHERE IN é (Car_Roteiro) neste campo pode ter um roteiro ou varios separados por ponto e virgula.

Ex:
(Car_Roteiro) = 123456 ou (Car_Roteiro) = 123456,658974,456789

Veja o código que estou tentando usar.

****************************************
Private Sub Car_Roteiro_AfterUpdate()
Dim strSql As String
Dim k As Long
Dim soma As Double
Dim soma1 As Double

strSql = "SELECT nu_rom, peso_tot, qtde_entr FROM tblRomaneio WHERE nu_rom In = & Me!Car_Roteiro;"
Me!Lista.RowSource = strSql

For k = 1 To Me!Lista.ListCount - 1
soma = soma + CDbl(IIf(IsNumeric(Me!Lista.Column(1, k)), Me!Lista.Column(1, k), 0))
soma1 = soma1 + CDbl(IIf(IsNumeric(Me!Lista.Column(2, k)), Me!Lista.Column(2, k), 0))
Next k
Me!Car_Peso = soma
Me!Car_Entrega = soma1
End Sub
***************************************

Em anexo segue o banco exemplo para melhor entendimento.

Se possível alguém me ajude.

Desde de já agradeço!

Baixei aqui seu aplicativo e não consegui identificar qual a relação
existente entre as tabelas tblCargas e tblRomaneio.

Qual o campo que você para relacioná-la?

Essa sua SQL: SELECT nu_rom, peso_tot, qtde_entr FROM tblRomaneio WHERE nu_rom In = & Me!Car_Roteiro;"

O destaque em vermelho está estranho, o correto é:

"SELECT nu_rom, peso_tot, qtde_entr FROM tblRomaneio WHERE nu_rom = " & Me!Car_Roteiro &";"

Mas não entendi como relaciona as tabelas citadas acima. Mas faça essa correção
e veja se resolve.

O códico é aconselhavel por no evento "No atual" e não após atualizar do campo, como vc está usando.

Olá Marcelo,

Muito obrigado por sua ajuda.

Da forma que me passou não atende minha necessidade.

Desejo substituir os valores que estão dentro dos parentes pelo valores digitados Me!Car_Roteiro.


Ex:

Estou informando os valores dentro da consulta.

"SELECT nu_rom, peso_tot, qtde_entr FROM tblRomaneio WHERE nu_rom IN (1,2,3,12345,4567);"

Quero que seja informado no campo do formulario.

"SELECT nu_rom, peso_tot, qtde_entr FROM tblRomaneio WHERE nu_rom IN " & (Me!Car_Roteiro) &";"

Vou informar no campo do formulario os valores separados por ponto e virgula.
Ex: 1,2,3,12345,4567

Pode me ajudar ?

Se apenas quer filtrar, basta usar da forma que eu passei...
Sua consulta está com escrita incorreta. O que correto é como eu já passei..
Teste aí.

Fiz a alteração que falou,

O fato é que desejo filrar mais de um roteiro.

Ex:

quero colocar o roteiro 1 e o roteiro 2 no campo Car_roteiro do formulário e que os mesmo sejam exibidos na caixa de listagem

Entendeu ?

Por esse motivo estou tentando usar o WHERE IN ( ,,,, )

Marcelo,

Fiz uma imagem de como ficaria se estivesse funcionando.

Se possível, dê uma olhada.

Desde de já agradeço.

Entendo meu amigo, agora vou tentar algo aqui.
Mas observe que WHERE não tem o IN como está na sua consulta!

Já posto seu banco com minha sugestão.

Olá, amigo, fiz umas implementações no seu banco.

Agora pode por os números de romaneio separados por virgula
que irão para a listbox.

Algo que não pediu, mas que fiz também foi um tratamento de erro
que informa caso o usuário insira um número de romaneio que não exista.
Nesse caso o sistema avisa.

Veja se atende:

Marcelo,

Sensacional, tudo que eu deseja... Atende perfeitamente minha necessidade.

Muito obrigado!!!

Trabalho de gênio.

Grato amigão pela retorno!