Query ! Duplicate records in column "x" and the values recorded in the respective column "y" shouldn't be equal...

[mfaqueiroz]

Hi, everyone!

I need an query that finds duplicate values in the column state but at same time the code of this records has to be different.

So my query should give me only the bold values...

State	Code
Open	3
Open	3
Close	4
Close	6
Open	5

<tbody>
</tbody>

<tbody></tbody>

I tried to use the vba, but didn't worked...

Option Compare Database


Dim qdf As DAO.QueryDef
Dim StrSQL As String
Set qdf = CurrentDb.QueryDefs("LMt")
StrSQL = "In (SELECT [State] FROM [Tb_A] As Tmp GROUP BY [State] HAVING Count(*)>1 )" And "In (SELECT

 FROM [Tb_dispprotfinal] As Tmp GROUP BY [Code] HAVING Count(*)<>1 )"
qdf.SQL = StrSQL
Set qdf = Nothing

Could someone help me? 
:)

I really appreciate your time,
thank you

 

[Micron]

For starters, you need to provide the names of your tables and fields. Your example suggests you have one table, your sql suggests you have Tb_A and b_dispprotfinal. If there are two, there has to be a common field between them, so after you post the info, I'll see what I can do. The StrSQL you have just won't work that way.