[Resolvido]Erro em Criterio consulta em VBA

Boa tarde !

Tenho uma consulta que funciona perfeitamente no access

mas estou tentando passar ela para o VBA e da erro no Where


Ja tentei assim
WHERE (Tbl_Manutencao.Man_Oficina) Like Forms!Frm_Equip_Retidos.CbX_Oficina & "*"


e Assim
WHERE (Tbl_Manutencao.Man_Oficina) Like Forms!Frm_Equip_Retidos.CbX_Oficina & '*'

Assim
WHERE ((Tbl_Manutencao.Man_Oficina) Like [Forms!Frm_Equip_Retidos.CbX_Oficina] & '*')"


E nada...

Alguma ideia ?

Saudacoes !

WHERE Tbl_Manutencao.Man_Oficina Like '" & Forms!Frm_Equip_Retidos.CbX_Oficina & "*'"

Da forma que voce postou nao deu , da erro ...mas tentei assim tambem e nada
WHERE Tbl_Manutencao.Man_Oficina Like ' & Forms!Frm_Equip_Retidos.CbX_Oficina & *'



So ressaltando que no access na consulta eu uso dessa forma e funciona
WHERE (Tbl_Manutencao.Man_Oficina) Like Forms!Frm_Equip_Retidos.CbX_Oficina & "*"

mas no VBA nao esta funcionando


Saudações !

Publique toda a expressão.

Se eu tiro a parte de Vermelho funciona


SELECT DISTINCT Tbl_Manutencao.Man_ID AS ID, Tbl_Manutencao.Man_Oficina AS Oficina, Tbl_Manutencao.Equ_Nome AS Ativo, Tbl_Manutencao.Tip_Servico AS Motivo, Tbl_Manutencao.Man_OS AS Numero_OS, Tbl_Manutencao.Man_Descricao AS Descricao, (Format(Tbl_Manutencao.Man_Dt_Inicio,'dd/mm/yy hh:nn')) AS Man_Dt_Inicio, (SELECT TOP 1 Eve_Nome FROM Tbl_Manutencao_Acompanhamento AS Acomp WHERE Tbl_Manutencao.Man_ID = Acomp.Man_ID order by Aco_ID desc) AS Evento, (SELECT TOP 1 Format( Rep_Dt_Saida,'dd/mm/yy hh:mm') FROM Tbl_Reprogramacao_Manutencao AS Saida WHERE Tbl_Manutencao.Man_ID = Saida.Man_ID order by Rep_ID desc ) AS Data_Hora_Saida, Tbl_Manutencao.Man_Status AS Status, (SELECT TOP 1 Aco_Dt_Inicio FROM Tbl_Manutencao_Acompanhamento AS Acomp WHERE Tbl_Manutencao.Man_ID = Acomp.Man_ID order by Aco_ID desc) AS DtEvento, Tbl_Equipamentos.Equ_Frota, (Select Count (Rep_ID)-1 From Tbl_Reprogramacao_Manutencao as Reprogramacao Where Tbl_Manutencao.Man_ID = Reprogramacao.Man_ID ) AS Qtde_Repr, Tbl_Manutencao.Man_Local, (Format(Tbl_Manutencao.Man_Dt_Registro,'dd/mm/yy hh:nn')) AS Dt_Registro
FROM Tbl_Manutencao INNER JOIN Tbl_Equipamentos ON Tbl_Manutencao.Equ_Nome=Tbl_Equipamentos.Equ_Nome
WHERE (((Tbl_Manutencao.Man_Oficina) Like Forms!Frm_Equip_Retidos.CbX_Oficina & "*") And ((Tbl_Manutencao.Equ_Nome) Like Forms!Frm_Equip_Retidos.Txt_Ativo & "*") And ((Tbl_Manutencao.Man_Status) Like Forms!Frm_Equip_Retidos.CbX_Status & "*" And (Tbl_Manutencao.Man_Status)<>"LIBERADO"))
ORDER BY Tbl_Manutencao.Man_ID DESC;

Parece-me que falta espaço antes de WHERE

nao é isso nao ja testei

SELECT DISTINCT Tbl_Manutencao.Man_ID AS ID, Tbl_Manutencao.Man_Oficina AS Oficina, Tbl_Manutencao.Equ_Nome AS Ativo, Tbl_Manutencao.Tip_Servico AS Motivo, Tbl_Manutencao.Man_OS AS Numero_OS, Tbl_Manutencao.Man_Descricao AS Descricao, (Format(Tbl_Manutencao.Man_Dt_Inicio,'dd/mm/yy hh:nn')) AS Man_Dt_Inicio, (SELECT TOP 1 Eve_Nome FROM Tbl_Manutencao_Acompanhamento AS Acomp WHERE Tbl_Manutencao.Man_ID = Acomp.Man_ID order by Aco_ID desc) AS Evento, (SELECT TOP 1 Format( Rep_Dt_Saida,'dd/mm/yy hh:mm') FROM Tbl_Reprogramacao_Manutencao AS Saida WHERE Tbl_Manutencao.Man_ID = Saida.Man_ID order by Rep_ID desc ) AS Data_Hora_Saida, Tbl_Manutencao.Man_Status AS Status, (SELECT TOP 1 Aco_Dt_Inicio FROM Tbl_Manutencao_Acompanhamento AS Acomp WHERE Tbl_Manutencao.Man_ID = Acomp.Man_ID order by Aco_ID desc) AS DtEvento, Tbl_Equipamentos.Equ_Frota, (Select Count (Rep_ID)-1 From Tbl_Reprogramacao_Manutencao as Reprogramacao Where Tbl_Manutencao.Man_ID = Reprogramacao.Man_ID ) AS Qtde_Repr, Tbl_Manutencao.Man_Local, (Format(Tbl_Manutencao.Man_Dt_Registro,'dd/mm/yy hh:nn')) AS Dt_Registro
FROM Tbl_Manutencao INNER JOIN Tbl_Equipamentos ON Tbl_Manutencao.Equ_Nome=Tbl_Equipamentos.Equ_Nome WHERE Tbl_Manutencao.Man_Oficina Like Forms!Frm_Equip_Retidos.CbX_Oficina & '*' And Tbl_Manutencao.Equ_Nome Like Forms!Frm_Equip_Retidos.Txt_Ativo & '*' And Tbl_Manutencao.Man_Status Like Forms!Frm_Equip_Retidos.CbX_Status & '*' And Tbl_Manutencao.Man_Status<>'LIBERADO'
ORDER BY Tbl_Manutencao.Man_ID DESC;

Parametros Insuficientes . Eram esperados 3.


Justamente as tres combox

SELECT DISTINCT Tbl_Manutencao.Man_ID AS ID, Tbl_Manutencao.Man_Oficina AS Oficina, Tbl_Manutencao.Equ_Nome AS Ativo, Tbl_Manutencao.Tip_Servico AS Motivo, Tbl_Manutencao.Man_OS AS Numero_OS, Tbl_Manutencao.Man_Descricao AS Descricao, (Format(Tbl_Manutencao.Man_Dt_Inicio,'dd/mm/yy hh:nn')) AS Man_Dt_Inicio, (SELECT TOP 1 Eve_Nome FROM Tbl_Manutencao_Acompanhamento AS Acomp WHERE Tbl_Manutencao.Man_ID = Acomp.Man_ID order by Aco_ID desc) AS Evento, (SELECT TOP 1 Format( Rep_Dt_Saida,'dd/mm/yy hh:mm') FROM Tbl_Reprogramacao_Manutencao AS Saida WHERE Tbl_Manutencao.Man_ID = Saida.Man_ID order by Rep_ID desc ) AS Data_Hora_Saida, Tbl_Manutencao.Man_Status AS Status, (SELECT TOP 1 Aco_Dt_Inicio FROM Tbl_Manutencao_Acompanhamento AS Acomp WHERE Tbl_Manutencao.Man_ID = Acomp.Man_ID order by Aco_ID desc) AS DtEvento, Tbl_Equipamentos.Equ_Frota, (Select Count (Rep_ID)-1 From Tbl_Reprogramacao_Manutencao as Reprogramacao Where Tbl_Manutencao.Man_ID = Reprogramacao.Man_ID ) AS Qtde_Repr, Tbl_Manutencao.Man_Local, (Format(Tbl_Manutencao.Man_Dt_Registro,'dd/mm/yy hh:nn')) AS Dt_Registro
FROM Tbl_Manutencao INNER JOIN Tbl_Equipamentos ON Tbl_Manutencao.Equ_Nome=Tbl_Equipamentos.Equ_Nome WHERE Tbl_Manutencao.Man_Oficina Like " & Forms!Frm_Equip_Retidos.CbX_Oficina & " & '*' And Tbl_Manutencao.Equ_Nome Like " & Forms!Frm_Equip_Retidos.Txt_Ativo & "& '*' And Tbl_Manutencao.Man_Status Like " & Forms!Frm_Equip_Retidos.CbX_Status & "& '*' And Tbl_Manutencao.Man_Status<>'LIBERADO'
ORDER BY Tbl_Manutencao.Man_ID DESC;

Alexandre,
Desculpe por ter retornado ontem mas estava sem internet em casa

Tentei da ultima forma que sugeriu e apresenta o seguinte erro.

Tentei dessa forma e nao deu erro mas tambem nao traz os dados quando o Combox é null.

Tbl_Manutencao.Man_Oficina = '" & Forms!Frm_Equip_Retidos.CbX_Oficina & " * " & "'

Saudações !

Penso eu...

Tbl_Manutencao.Man_Oficina Like ""*"" & Forms!Frm_Equip_Retidos.CbX_Oficina & ""*""

Quer testar ?


strSQL = "SELECT DISTINCT Tbl_Manutencao.Man_ID AS ID, Tbl_Manutencao.Man_Oficina AS Oficina, " _
& " Tbl_Manutencao.Equ_Nome AS Ativo, Tbl_Manutencao.Tip_Servico AS Motivo, Tbl_Manutencao.Man_OS AS Numero_OS, " _
& " Tbl_Manutencao.Man_Descricao AS Descricao, (Format(Tbl_Manutencao.Man_Dt_Inicio,'dd/mm/yy hh:nn')) AS Man_Dt_Inicio, " _
& " (SELECT TOP 1 Eve_Nome FROM Tbl_Manutencao_Acompanhamento AS Acomp WHERE Tbl_Manutencao.Man_ID = Acomp.Man_ID order by Aco_ID desc) AS Evento, " _
& " (SELECT TOP 1 Format( Rep_Dt_Saida,'dd/mm/yy hh:mm') FROM Tbl_Reprogramacao_Manutencao AS Saida WHERE Tbl_Manutencao.Man_ID = Saida.Man_ID order by Rep_ID desc ) AS Data_Hora_Saida, " _
& " Tbl_Manutencao.Man_Status AS Status, (SELECT TOP 1 Aco_Dt_Inicio FROM Tbl_Manutencao_Acompanhamento AS Acomp WHERE Tbl_Manutencao.Man_ID = Acomp.Man_ID order by Aco_ID desc) AS DtEvento, " _
& " Tbl_Equipamentos.Equ_Frota, (Select Count (Rep_ID)-1 From Tbl_Reprogramacao_Manutencao as Reprogramacao Where Tbl_Manutencao.Man_ID = Reprogramacao.Man_ID ) AS Qtde_Repr, Tbl_Manutencao.Man_Local, " _
& " (Format(Tbl_Manutencao.Man_Dt_Registro,'dd/mm/yy hh:nn')) AS Dt_Registro " _
& " FROM Tbl_Manutencao INNER JOIN Tbl_Equipamentos ON Tbl_Manutencao.Equ_Nome=Tbl_Equipamentos.Equ_Nome " _
& " WHERE (((Tbl_Manutencao.Man_Oficina) Like ""*"" & Forms!Frm_Equip_Retidos.CbX_Oficina & ""*"") And ((Tbl_Manutencao.Equ_Nome) Like ""*"" & Forms!Frm_Equip_Retidos.Txt_Ativo & ""*"") And ((Tbl_Manutencao.Man_Status) Like ""*"" & Forms!Frm_Equip_Retidos.CbX_Status & ""*"" And (Tbl_Manutencao.Man_Status)<>'LIBERADO')) " _
& " ORDER BY Tbl_Manutencao.Man_ID DESC;"

JPaulo
Deu tipo incopatives

Eu penso que por CBoX_Oficina ser do tipo texto teria um aspas simples antes nao ?

algo mais ou menos assim
Tbl_Manutencao.Man_Oficina Like '""*"" & Forms!Frm_Equip_Retidos.CbX_Oficina & ""*""'

Apesar que teste e nao deu erro mas tbm nao vem os registro porque CbX_Oficina esta null.


Obs: A Lstbox que é carregada com essa instrução é preenchida no load do form ou seja dependendo do usuario sempre sera null mesmo, e somente depois do form aberto o usuario pode mudar CbX_Oficina para algum valor que ira preencher novamente a list com o paramentro informado(CbX_Oficina)

Teste por favor;


strSQL = "SELECT DISTINCT Tbl_Manutencao.Man_ID AS ID, Tbl_Manutencao.Man_Oficina AS Oficina, " _
& " Tbl_Manutencao.Equ_Nome AS Ativo, Tbl_Manutencao.Tip_Servico AS Motivo, Tbl_Manutencao.Man_OS AS Numero_OS, " _
& " Tbl_Manutencao.Man_Descricao AS Descricao, (Format(Tbl_Manutencao.Man_Dt_Inicio,'dd/mm/yy hh:nn')) AS Man_Dt_Inicio, " _
& " (SELECT TOP 1 Eve_Nome FROM Tbl_Manutencao_Acompanhamento AS Acomp WHERE Tbl_Manutencao.Man_ID = Acomp.Man_ID order by Aco_ID desc) AS Evento, " _
& " (SELECT TOP 1 Format( Rep_Dt_Saida,'dd/mm/yy hh:mm') FROM Tbl_Reprogramacao_Manutencao AS Saida WHERE Tbl_Manutencao.Man_ID = Saida.Man_ID order by Rep_ID desc ) AS Data_Hora_Saida, " _
& " Tbl_Manutencao.Man_Status AS Status, (SELECT TOP 1 Aco_Dt_Inicio FROM Tbl_Manutencao_Acompanhamento AS Acomp WHERE Tbl_Manutencao.Man_ID = Acomp.Man_ID order by Aco_ID desc) AS DtEvento, " _
& " Tbl_Equipamentos.Equ_Frota, (Select Count (Rep_ID)-1 From Tbl_Reprogramacao_Manutencao as Reprogramacao Where Tbl_Manutencao.Man_ID = Reprogramacao.Man_ID ) AS Qtde_Repr, Tbl_Manutencao.Man_Local, " _
& " (Format(Tbl_Manutencao.Man_Dt_Registro,'dd/mm/yy hh:nn')) AS Dt_Registro " _
& " FROM Tbl_Manutencao INNER JOIN Tbl_Equipamentos ON Tbl_Manutencao.Equ_Nome=Tbl_Equipamentos.Equ_Nome " _
& " WHERE (((Tbl_Manutencao.Man_Oficina) Like '*" & Forms!Frm_Equip_Retidos.CbX_Oficina & "*') And ((Tbl_Manutencao.Equ_Nome) Like '*" & Forms!Frm_Equip_Retidos.Txt_Ativo & "*') And ((Tbl_Manutencao.Man_Status) Like '*" & Forms!Frm_Equip_Retidos.CbX_Status & "*' And (Tbl_Manutencao.Man_Status)<>'LIBERADO')) " _
& " ORDER BY Tbl_Manutencao.Man_ID DESC;"

Nao da erro mas tambem nao vem os registros.

Código:

Sub LstBox_Equip_Retidos()

Dim db As DAO.Database
Dim Ws As DAO.Workspace
Dim strSelect As String

Caminho_Banco
Set Ws = DBEngine.Workspaces(0)
Set db = Ws.OpenDatabase(Caminho & "\Meu_Banco.accdb", False, False, "Ms Access;PWD=***")

strSelect = "SELECT DISTINCT Tbl_Manutencao.Man_ID AS ID, Tbl_Manutencao.Man_Oficina AS Oficina, " _
& " Tbl_Manutencao.Equ_Nome AS Ativo, Tbl_Manutencao.Tip_Servico AS Motivo, Tbl_Manutencao.Man_OS AS Numero_OS, " _
& " Tbl_Manutencao.Man_Descricao AS Descricao, (Format(Tbl_Manutencao.Man_Dt_Inicio,'dd/mm/yy hh:nn')) AS Man_Dt_Inicio, " _
& " (SELECT TOP 1 Eve_Nome FROM Tbl_Manutencao_Acompanhamento AS Acomp WHERE Tbl_Manutencao.Man_ID = Acomp.Man_ID order by Aco_ID desc) AS Evento, " _
& " (SELECT TOP 1 Format( Rep_Dt_Saida,'dd/mm/yy hh:mm') FROM Tbl_Reprogramacao_Manutencao AS Saida WHERE Tbl_Manutencao.Man_ID = Saida.Man_ID order by Rep_ID desc ) AS Data_Hora_Saida, " _
& " Tbl_Manutencao.Man_Status AS Status, (SELECT TOP 1 Aco_Dt_Inicio FROM Tbl_Manutencao_Acompanhamento AS Acomp WHERE Tbl_Manutencao.Man_ID = Acomp.Man_ID order by Aco_ID desc) AS DtEvento, " _
& " Tbl_Equipamentos.Equ_Frota, (Select Count (Rep_ID)-1 From Tbl_Reprogramacao_Manutencao as Reprogramacao Where Tbl_Manutencao.Man_ID = Reprogramacao.Man_ID ) AS Qtde_Repr, Tbl_Manutencao.Man_Local, " _
& " (Format(Tbl_Manutencao.Man_Dt_Registro,'dd/mm/yy hh:nn')) AS Dt_Registro " _
& " FROM Tbl_Manutencao INNER JOIN Tbl_Equipamentos ON Tbl_Manutencao.Equ_Nome=Tbl_Equipamentos.Equ_Nome " _
& " WHERE (((Tbl_Manutencao.Man_Oficina) Like '*" & Nz(Forms!Frm_Equip_Retidos.CbX_Oficina, 0) & "*') And ((Tbl_Manutencao.Equ_Nome) Like '*" & Forms!Frm_Equip_Retidos.Txt_Ativo & "*') And ((Tbl_Manutencao.Man_Status) Like '*" & Forms!Frm_Equip_Retidos.CbX_Status & "*' And (Tbl_Manutencao.Man_Status)<>'LIBERADO')) " _
& " ORDER BY Tbl_Manutencao.Man_ID DESC;"

Set Me!LisBx_EquipRetidos.Recordset = db.OpenRecordset(strSelect)
Me!LisBx_EquipRetidos.ColumnCount = 14
Me!LisBx_EquipRetidos.ColumnWidths = "0cm;1,12cm;1,3cm;1,12cm;2,304cm;12,6cm;2,4cm;2,702cm;2,4cm;1,108cm;0cm;0cm;0cm;0cm"

End Sub

Toda a instrução foi validada e está correta, provavelmente não tem registos mesmo para esses criterios.

Acrescente apenas no final;

Me!LisBx_EquipRetidos.Requery

Que está em falta.

JPaulo,
Registro com esses critério eu sei que tem.

So pra voce ter uma nocao se eu crio uma COnsulta e uso o seguinte codigo

SELECT DISTINCT Tbl_Manutencao.Man_ID AS ID, Tbl_Manutencao.Man_Oficina AS Oficina, Tbl_Manutencao.Equ_Nome AS Ativo, Tbl_Manutencao.Tip_Servico AS Motivo, Tbl_Manutencao.Man_OS AS Numero_OS, Tbl_Manutencao.Man_Descricao AS Descricao, (Format(Tbl_Manutencao.Man_Dt_Inicio,'dd/mm/yy hh:nn')) AS Man_Dt_Inicio, (SELECT TOP 1 Eve_Nome FROM Tbl_Manutencao_Acompanhamento AS Acomp WHERE Tbl_Manutencao.Man_ID = Acomp.Man_ID order by Aco_ID desc) AS Evento, (SELECT TOP 1 Format( Rep_Dt_Saida,'dd/mm/yy hh:mm') FROM Tbl_Reprogramacao_Manutencao AS Saida WHERE Tbl_Manutencao.Man_ID = Saida.Man_ID order by Rep_ID desc ) AS Data_Hora_Saida, Tbl_Manutencao.Man_Status AS Status, (SELECT TOP 1 Aco_Dt_Inicio FROM Tbl_Manutencao_Acompanhamento AS Acomp WHERE Tbl_Manutencao.Man_ID = Acomp.Man_ID order by Aco_ID desc) AS DtEvento, Tbl_Equipamentos.Equ_Frota, (Select Count (Rep_ID)-1 From Tbl_Reprogramacao_Manutencao as Reprogramacao Where Tbl_Manutencao.Man_ID = Reprogramacao.Man_ID ) AS Qtde_Repr, Tbl_Manutencao.Man_Local, (Format(Tbl_Manutencao.Man_Dt_Registro,'dd/mm/yy hh:nn')) AS Dt_Registro
FROM Tbl_Manutencao INNER JOIN Tbl_Equipamentos ON Tbl_Manutencao.Equ_Nome=Tbl_Equipamentos.Equ_Nome
WHERE (((Tbl_Manutencao.Man_Oficina) Like Forms!Frm_Equip_Retidos.CbX_Oficina & "*") And ((Tbl_Manutencao.Equ_Nome) Like Forms!Frm_Equip_Retidos.Txt_Ativo & "*") And ((Tbl_Manutencao.Man_Status) Like Forms!Frm_Equip_Retidos.CbX_Status & "*" And (Tbl_Manutencao.Man_Status)<>"LIBERADO"))
ORDER BY Tbl_Manutencao.Man_ID DESC;


Funciona...

Mas no VBA nao

Tentei o Me!LisBx_EquipRetidos.Requery e nada

Essa instrução do SQL da consulta, transformada em VBA, fica assim, mas para mim não é o correto, pode testar;


strSQL = "SELECT DISTINCT Tbl_Manutencao.Man_ID AS ID, Tbl_Manutencao.Man_Oficina AS Oficina, Tbl_Manutencao.Equ_Nome AS Ativo, Tbl_Manutencao.Tip_Servico AS Motivo, Tbl_Manutencao.Man_OS AS Numero_OS, Tbl_Manutencao.Man_Descricao AS Descricao, (Format(Tbl_Manutencao.Man_Dt_Inicio,'dd/mm/yy hh:nn')) AS Man_Dt_Inicio, (SELECT TOP 1 Eve_Nome " _
& " FROM Tbl_Manutencao_Acompanhamento AS Acomp WHERE Tbl_Manutencao.Man_ID = Acomp.Man_ID order by Aco_ID desc) AS Evento, (SELECT TOP 1 Format( Rep_Dt_Saida,'dd/mm/yy hh:mm') FROM Tbl_Reprogramacao_Manutencao AS Saida WHERE Tbl_Manutencao.Man_ID = Saida.Man_ID order by Rep_ID desc ) AS Data_Hora_Saida, Tbl_Manutencao.Man_Status AS Status, " _
& " (SELECT TOP 1 Aco_Dt_Inicio FROM Tbl_Manutencao_Acompanhamento AS Acomp WHERE Tbl_Manutencao.Man_ID = Acomp.Man_ID order by Aco_ID desc) AS DtEvento, Tbl_Equipamentos.Equ_Frota, (Select Count (Rep_ID)-1 From Tbl_Reprogramacao_Manutencao as Reprogramacao Where Tbl_Manutencao.Man_ID = Reprogramacao.Man_ID ) AS Qtde_Repr, " _
& " Tbl_Manutencao.Man_Local, (Format(Tbl_Manutencao.Man_Dt_Registro,'dd/mm/yy hh:nn')) AS Dt_Registro " _
& " FROM Tbl_Manutencao INNER JOIN Tbl_Equipamentos ON Tbl_Manutencao.Equ_Nome=Tbl_Equipamentos.Equ_Nome " _
& " WHERE (((Tbl_Manutencao.Man_Oficina) Like Forms!Frm_Equip_Retidos.CbX_Oficina & ""*"") And ((Tbl_Manutencao.Equ_Nome) Like Forms!Frm_Equip_Retidos.Txt_Ativo & ""*"") And ((Tbl_Manutencao.Man_Status) Like Forms!Frm_Equip_Retidos.CbX_Status & ""*"" And (Tbl_Manutencao.Man_Status)<>""LIBERADO"")) " _
& " ORDER BY Tbl_Manutencao.Man_ID DESC;"

Não sei se dá para você anexar aqui parte do banco;

JPaulo ,
Esse formulário é meio complexo (Posso te enviar por email ?)

Outra coisa,
Me deixou confuso quando disse que não acha que é correto...Porque ?(Gostaria de saber para poder melhorar)

Saudações !

Envie para mim sim, em casa vejo isso e depois posto aqui a solução;

jpaulo65@gmail.com

Testado e a funfar;


Sub LstBox_Equip_Retidos()

Dim db As DAO.Database
Dim Ws As DAO.Workspace
Dim strSelect As String

Caminho_Banco
Set Ws = DBEngine.Workspaces(0)
Set db = Ws.OpenDatabase(Caminho & "\Manutencao.accdb", False, False, "Ms Access;PWD=******")

strSelect = "SELECT DISTINCT Tbl_Manutencao.Man_ID AS ID, Tbl_Manutencao.Man_Oficina AS Oficina, Tbl_Manutencao.Equ_Nome AS Ativo, Tbl_Manutencao.Tip_Servico AS Motivo, Tbl_Manutencao.Man_OS AS Numero_OS, Tbl_Manutencao.Man_Descricao AS Descricao, (Format(Tbl_Manutencao.Man_Dt_Inicio,'dd/mm/yy hh:nn')) AS Man_Dt_Inicio, (SELECT TOP 1 Eve_Nome " _
& " FROM Tbl_Manutencao_Acompanhamento AS Acomp WHERE Tbl_Manutencao.Man_ID = Acomp.Man_ID order by Aco_ID desc) AS Evento, (SELECT TOP 1 Format( Rep_Dt_Saida,'dd/mm/yy hh:mm') FROM Tbl_Reprogramacao_Manutencao AS Saida WHERE Tbl_Manutencao.Man_ID = Saida.Man_ID order by Rep_ID desc ) AS Data_Hora_Saida, Tbl_Manutencao.Man_Status AS Status, " _
& " (SELECT TOP 1 Aco_Dt_Inicio FROM Tbl_Manutencao_Acompanhamento AS Acomp WHERE Tbl_Manutencao.Man_ID = Acomp.Man_ID order by Aco_ID desc) AS DtEvento, Tbl_Equipamentos.Equ_Frota, (Select Count (Rep_ID)-1 From Tbl_Reprogramacao_Manutencao as Reprogramacao Where Tbl_Manutencao.Man_ID = Reprogramacao.Man_ID ) AS Qtde_Repr, " _
& " Tbl_Manutencao.Man_Local, (Format(Tbl_Manutencao.Man_Dt_Registro,'dd/mm/yy hh:nn')) AS Dt_Registro " _
& " FROM Tbl_Manutencao INNER JOIN Tbl_Equipamentos ON Tbl_Manutencao.Equ_Nome=Tbl_Equipamentos.Equ_Nome " _
& " WHERE (((Tbl_Manutencao.Man_Oficina) Like '*" & Forms!Frm_Equip_Retidos.CbX_Oficina & "*') And ((Tbl_Manutencao.Equ_Nome) Like '*" & Forms!Frm_Equip_Retidos.Txt_Ativo & "*') And ((Tbl_Manutencao.Man_Status) Like '*" & Forms!Frm_Equip_Retidos.CbX_Status & "*' And (Tbl_Manutencao.Man_Status)<>'LIBERADO')) " _
& " ORDER BY Tbl_Manutencao.Man_ID DESC;"

Set Me!LisBx_EquipRetidos.Recordset = db.OpenRecordset(strSelect)
Me!LisBx_EquipRetidos.ColumnCount = 14
Me!LisBx_EquipRetidos.ColumnWidths = "0cm;1,12cm;1,3cm;1,12cm;2,304cm;12,6cm;2,4cm;2,702cm;2,4cm;1,108cm;0cm;0cm;0cm;0cm"
Me!LisBx_EquipRetidos.Requery
End Sub

Resolvido!

Obrigado !

Obrigado pelo retorno o forum agradece.