Início
gildosantoss 17/1/2022, 19:17Bom dia
Preciso transcrever essa instrução SQL para um botão de pesquisa, mais quando uso o RowSourse . no formulario não exibe nada
SELECT Entrada_Pessoas.Id_Entrada, Pessoa.Nome_Pessoa, Empresa.Nome_Empresa, Entrada_Pessoas.Tipo_Acesso, Veiculo.Veiculo, Veiculo.Placa, Veiculo.Placa2, Entrada_Pessoas.Setor, Entrada_Pessoas.Data_Entrada, Entrada_Pessoas.[Hora Chegada], Entrada_Pessoas.Hora_Entrada, Entrada_Pessoas.Data_Saida, Entrada_Pessoas.Hora_Saida, Entrada_Pessoas.NumeroNota, Entrada_Pessoas.PesoNota, Entrada_Pessoas.PesoBalanca, Entrada_Pessoas.PesoSaida, Entrada_Pessoas.Vigilante, Entrada_Pessoas.Obs
FROM Tipo_Veiculo INNER JOIN ((Empresa INNER JOIN (Veiculo INNER JOIN Entrada_Pessoas ON Veiculo.Id_Veiculo = Entrada_Pessoas.Id_Veiculo) ON Empresa.Id_Empresa = Entrada_Pessoas.Id_Empresa) INNER JOIN Pessoa ON (Pessoa.Id_Pessoa = Entrada_Pessoas.Id_Pessoa) AND (Empresa.Id_Empresa = Pessoa.ID_Empresa)) ON Tipo_Veiculo.Id_Tipo_Veiculo = Veiculo.Id_Tipo_Veiculo;
Private Sub Comando117_Click()
Me.Lista43.RowSource = "SELECT Entrada_Pessoas.Id_Entrada, Pessoa.Nome_Pessoa, Empresa.Nome_Empresa, Entrada_Pessoas.Tipo_Acesso, Veiculo.Veiculo, Veiculo.Placa, Veiculo.Placa2, Entrada_Pessoas.Setor, Entrada_Pessoas.Data_Entrada, Entrada_Pessoas.[Hora Chegada], Entrada_Pessoas.Hora_Entrada, Entrada_Pessoas.Data_Saida, Entrada_Pessoas.Hora_Saida, Entrada_Pessoas.NumeroNota, Entrada_Pessoas.PesoNota, Entrada_Pessoas.PesoBalanca, Entrada_Pessoas.PesoSaida, Entrada_Pessoas.Vigilante, Entrada_Pessoas.Obs" & _
"FROM Tipo_Veiculo INNER JOIN ((Empresa INNER JOIN (Veiculo INNER JOIN Entrada_Pessoas ON Veiculo.Id_Veiculo = Entrada_Pessoas.Id_Veiculo) ON Empresa.Id_Empresa = Entrada_Pessoas.Id_Empresa) INNER JOIN Pessoa ON (Pessoa.Id_Pessoa = Entrada_Pessoas.Id_Pessoa) AND (Empresa.Id_Empresa = Pessoa.ID_Empresa)) ON Tipo_Veiculo.Id_Tipo_Veiculo = Veiculo.Id_Tipo_Veiculo;"
Preciso transcrever essa instrução SQL para um botão de pesquisa, mais quando uso o RowSourse . no formulario não exibe nada
SELECT Entrada_Pessoas.Id_Entrada, Pessoa.Nome_Pessoa, Empresa.Nome_Empresa, Entrada_Pessoas.Tipo_Acesso, Veiculo.Veiculo, Veiculo.Placa, Veiculo.Placa2, Entrada_Pessoas.Setor, Entrada_Pessoas.Data_Entrada, Entrada_Pessoas.[Hora Chegada], Entrada_Pessoas.Hora_Entrada, Entrada_Pessoas.Data_Saida, Entrada_Pessoas.Hora_Saida, Entrada_Pessoas.NumeroNota, Entrada_Pessoas.PesoNota, Entrada_Pessoas.PesoBalanca, Entrada_Pessoas.PesoSaida, Entrada_Pessoas.Vigilante, Entrada_Pessoas.Obs
FROM Tipo_Veiculo INNER JOIN ((Empresa INNER JOIN (Veiculo INNER JOIN Entrada_Pessoas ON Veiculo.Id_Veiculo = Entrada_Pessoas.Id_Veiculo) ON Empresa.Id_Empresa = Entrada_Pessoas.Id_Empresa) INNER JOIN Pessoa ON (Pessoa.Id_Pessoa = Entrada_Pessoas.Id_Pessoa) AND (Empresa.Id_Empresa = Pessoa.ID_Empresa)) ON Tipo_Veiculo.Id_Tipo_Veiculo = Veiculo.Id_Tipo_Veiculo;
Private Sub Comando117_Click()
Me.Lista43.RowSource = "SELECT Entrada_Pessoas.Id_Entrada, Pessoa.Nome_Pessoa, Empresa.Nome_Empresa, Entrada_Pessoas.Tipo_Acesso, Veiculo.Veiculo, Veiculo.Placa, Veiculo.Placa2, Entrada_Pessoas.Setor, Entrada_Pessoas.Data_Entrada, Entrada_Pessoas.[Hora Chegada], Entrada_Pessoas.Hora_Entrada, Entrada_Pessoas.Data_Saida, Entrada_Pessoas.Hora_Saida, Entrada_Pessoas.NumeroNota, Entrada_Pessoas.PesoNota, Entrada_Pessoas.PesoBalanca, Entrada_Pessoas.PesoSaida, Entrada_Pessoas.Vigilante, Entrada_Pessoas.Obs" & _
"FROM Tipo_Veiculo INNER JOIN ((Empresa INNER JOIN (Veiculo INNER JOIN Entrada_Pessoas ON Veiculo.Id_Veiculo = Entrada_Pessoas.Id_Veiculo) ON Empresa.Id_Empresa = Entrada_Pessoas.Id_Empresa) INNER JOIN Pessoa ON (Pessoa.Id_Pessoa = Entrada_Pessoas.Id_Pessoa) AND (Empresa.Id_Empresa = Pessoa.ID_Empresa)) ON Tipo_Veiculo.Id_Tipo_Veiculo = Veiculo.Id_Tipo_Veiculo;"
Domine Access e VBA Criando Um Incrível Sistema Financeiro - [Passo a passo]
Conheça meu canal no Youtube e se inscreva.