Meto los datos en una tabla y busco duplicados.....
Function VerificoDuplicados() As Boolean
DoCmd.SetWarnings False
'Vacio tabla, solo se utiliza para esto
DoCmd.RunSQL "DELETE tbVerificarCampoClaveTEMP.* FROM tbVerificarCampoClaveTEMP;"
'Meto todos los campos que no quiero que se repitan. Nz para si esta vacio meta 0 y no de error
DoCmd.RunSQL "INSERT INTO tbVerificarCampoClaveTEMP ( Trabajador ) SELECT " & Nz(Me.AmbuCond, 0) & " AS Expr1;"
DoCmd.RunSQL "INSERT INTO tbVerificarCampoClaveTEMP ( Trabajador ) SELECT " & Nz(Me.AmbuBom, 0) & " AS Expr1;"
DoCmd.RunSQL "INSERT INTO tbVerificarCampoClaveTEMP ( Trabajador ) SELECT " & Nz(Me.Bom1, 0) & " AS Expr1;"
DoCmd.RunSQL "INSERT INTO tbVerificarCampoClaveTEMP ( Trabajador ) SELECT " & Nz(Me.Bom2, 0) & " AS Expr1;"
DoCmd.RunSQL "INSERT INTO tbVerificarCampoClaveTEMP ( Trabajador ) SELECT " & Nz(Me.Bom3, 0) & " AS Expr1;"
DoCmd.RunSQL "INSERT INTO tbVerificarCampoClaveTEMP ( Trabajador ) SELECT " & Nz(Me.Bom4, 0) & " AS Expr1;"
DoCmd.RunSQL "INSERT INTO tbVerificarCampoClaveTEMP ( Trabajador ) SELECT " & Nz(Me.Bom5, 0) & " AS Expr1;"
DoCmd.RunSQL "INSERT INTO tbVerificarCampoClaveTEMP ( Trabajador ) SELECT " & Nz(Me.Bom6, 0) & " AS Expr1;"
DoCmd.RunSQL "INSERT INTO tbVerificarCampoClaveTEMP ( Trabajador ) SELECT " & Nz(Me.Bom7, 0) & " AS Expr1;"
DoCmd.RunSQL "INSERT INTO tbVerificarCampoClaveTEMP ( Trabajador ) SELECT " & Nz(Me.Bom8, 0) & " AS Expr1;"
DoCmd.RunSQL "INSERT INTO tbVerificarCampoClaveTEMP ( Trabajador ) SELECT " & Nz(Me.Bom9, 0) & " AS Expr1;"
DoCmd.RunSQL "INSERT INTO tbVerificarCampoClaveTEMP ( Trabajador ) SELECT " & Nz(Me.Bom10, 0) & " AS Expr1;"
DoCmd.RunSQL "INSERT INTO tbVerificarCampoClaveTEMP ( Trabajador ) SELECT " & Nz(Me.Cabo1, 0) & " AS Expr1;"
DoCmd.RunSQL "INSERT INTO tbVerificarCampoClaveTEMP ( Trabajador ) SELECT " & Nz(Me.Cabo2, 0) & " AS Expr1;"
DoCmd.RunSQL "INSERT INTO tbVerificarCampoClaveTEMP ( Trabajador ) SELECT " & Nz(Me.Cabo3, 0) & " AS Expr1;"
DoCmd.RunSQL "INSERT INTO tbVerificarCampoClaveTEMP ( Trabajador ) SELECT " & Nz(Me.Cabo4, 0) & " AS Expr1;"
DoCmd.RunSQL "INSERT INTO tbVerificarCampoClaveTEMP ( Trabajador ) SELECT " & Nz(Me.Cond1, 0) & " AS Expr1;"
DoCmd.RunSQL "INSERT INTO tbVerificarCampoClaveTEMP ( Trabajador ) SELECT " & Nz(Me.Cond2, 0) & " AS Expr1;"
DoCmd.RunSQL "INSERT INTO tbVerificarCampoClaveTEMP ( Trabajador ) SELECT " & Nz(Me.Cond3, 0) & " AS Expr1;"
DoCmd.RunSQL "INSERT INTO tbVerificarCampoClaveTEMP ( Trabajador ) SELECT " & Nz(Me.Cond4, 0) & " AS Expr1;"
DoCmd.RunSQL "INSERT INTO tbVerificarCampoClaveTEMP ( Trabajador ) SELECT " & Nz(Me.GRT_1, 0) & " AS Expr1;"
DoCmd.RunSQL "INSERT INTO tbVerificarCampoClaveTEMP ( Trabajador ) SELECT " & Nz(Me.GRT_2, 0) & " AS Expr1;"
DoCmd.SetWarnings True
'Si encuntra un duplicado...diferente a 0, lo filtro en la consulta los 0 si los pone Nz
If DCount("*", "Buscar duplicados por tbVerificarCampoClave") > 0 Then
VerificoDuplicados = True
Else
VerificoDuplicados = False
End If
End Function