[Resolvido]Comparar registros de tabelas diferentes e retornar os maiores valores

Olá pessoa!

É o seguinte: Eu tenho uma tabela com valores de resultados de alguns testes. Essa tabela tem os campos POÇOS, COMPOSTO e VALOR.

Em outra tabela eu possuo padrões de referência para cada composto. Essa tabela possui os campos COMPOSTO e VALOR.

Só me interessa, para análise, os resultados (da primeira tabela) que o valor do composto for superior ao valor da tabela dos padrões de referência.

Por isso eu gostaria de comparar os valores da primeira tabela (de acordo com cada composto) com os valores padrões da tabela padrões de referência. Dessa forma criando uma terceira tabela onde só fossem inseridos os registros que fossem superiores ao padrão.

Desde já agradeço.

Crie uma consulta união e coloque nela o critério pretendido.

A primeira coisa a saber é se você já criou uma relação entre as duas tabelas. e se sim quais campos você utilizou para criar esta relação.

Criquio, perdão, mas eu não entendi. Poderia ser mais detalhado? Obrigado!


Antonybrazil, o campo que precisa se relacionar é apenas o campo COMPOSTO. Porque eu tenho que comparar o valor de um determinado composto com o valor, desse mesmo composto, em uma tabela diferente. Dessa comparação me retornar uma terceira tabela apenas contendo os compostos, e seus respectivos valores, se esses valores forem maiores que os valores da tabela dos valores padrões para comparação.

Obrigado!

Você precisa ler um pouco sobre RELAÇÕES no Acess, na própria ajuda do access está bem detalhado isto. Eu particularmente penei muito até entender como funcionam as relações. É preciso que vc entenda que se vc escolher o campo composto para estabelecer a relação entre as tabelas, estes campos não podem conter nomes repetidos, ou seja, cada composto deverá ter um nome diferente para que o access possa diferencia-los. Feita a referência corretamente você pode começar a escrever o código. Eu entendo mais de Visual basic que SQL. Então uma sugestão seria:

Private Sub Form_AfterUpdate()

Dim ValorCompostoTabela1, ValorCompostoTabela2 As String

ValorCompostoTabela1 = Nz(DLookup("[Nomecampotabela1]", "Nometabela1", "[Nomecampotabela1] = '" & Me.Nomecampoformulário & "'"), 0)
ValorCompostoTabela2 = Nz(DLookup("[Nomecampotabela2]", "Nometabela2", "[Nomecampotabela1] = '" & Me.Nomecampoformulário & "'"), 0)

If ValorCompostoTabela1 > ValorCompostoTabela2 then

Dim db As DAO.Database
Dim rs As DAO.Recordset


Set db = CurrentDb
Set rs = db.OpenRecordset("NomeTabela3")

With rs
rs.Edit
Me.NomecampoCompostonoFormulário.SetFocus
rs("NomecampoCompostonatabela") = NomecampoCompostonoFormulário
Me.NomecampoValornoFormulário.SetFocus
rs("NomecampoValornatabela") = NomecampoValornoFormulário
rs.Update
rs.Close
db.Close
End With

End Sub

Como não houve retorno, o tópico passa a resolvido. Qualquer coisa reabra, por favor.