[Resolvido]Filtrar todos os Registros da tabela atraves de um valor.

Prezados,

Eu tenho um formulario que se chama Frmplaca, dentro desse eu tenho dois campos onde carregam dados.
o campo da esquerda mostra os dados cadastrados e o da direita carrega os dados conforme selecionado do lado esquerdo. O que preciso é que ao clicar do lado esquerdo, os dados carreguem do lado direito e, filtre apenas os dados que contem a placa selecionada, e que contem no campo StatusVincplaca da tabela,o valor Zero. O zero siginifica que a placa ainda não foi processada.
Eu Deixei alguns dados com status 0 pra poder testar.

Se alguem puder me ajudar segue anexo o bd.

Se repararem quando clica uma vez no dado ele carrega do lado direito, e se clicar duas vezes ele pergunta se quer realizar a baixa, então quando "SIM" O statusvincplaca da tabela muda pra 1.

A ideia é filtrar dos lado direito apenas dados onde o campo statusvincplaca da tabela seja = 0

Desde já agradeço

Atte

Urbano Azevedo

Você tentou adicionar o campo  "statusvincplaca" na consulta que gera a caixa de listagem e em critério colocar 0 (zero)


Private Sub LstPlacasLiberadas_Click()
Me.txtPlaca = Me.LstPlacasLiberadas.Column(0)
Me.LstCargas.RowSource = "SELECT TblEntrada.Placa, Left([MAWB],3) & ' ' & Mid([MAWB],4,4) & ' ' & Right([MAWB],4) AS Master, TblEntrada.HAWB AS House, TblTransportadoras.Nome AS Transportadora, " + _
   "TblEntrada.LogLibPlacaDt AS [Data Libera??o], DateDiff('n',[LogLibPlacaDt],Now()) AS [Tempo (min)],TblEntrada.StatusVincPlaca " + _
   "FROM TblEntrada INNER JOIN TblTransportadoras ON TblEntrada.Transportadora = TblTransportadoras.C?digo " + _
   "WHERE (((TblEntrada.Placa) = '" & txtPlaca & "') And ((TblEntrada.LogLibPlacaUser) Is Not Null) And ((TblEntrada.LogDocaUser) Is Null)and ((TblEntrada.StatusVincPlaca)=0)) " + _
   "ORDER BY DateDiff('n',[LogLibPlacaDt],Now()) DESC"
CmdFinalizaPlaca.Visible = False
End Sub

Scandinavo,


Eu coloquei, mas parou de aparecer os registro fiou tudo em branco. Eu coloquei o banco pra download. Se possivel, da uma olhada. não sei mais o q fazer.

Veja ai,

Perfeito meu Amigo.
Muito Obrigado!

Atte.

Urbano Azevedo

Valeu pelo retorno.