Check for duplicates

[nat22]

Hello everyone,
This is code with which I choose records from one table and I put them to another table (OdabranaOprema),
can I add code with which I can stop choosing the same record twice?
I would like in that case have possibility to change the quantity of the record which is selected twice,

thanks

Private Sub cmdOdaberi_Click()

On Error GoTo Handler

Dim strRedak As String
Dim strOdabranaReferenca As String
Dim rsPonudjenaOprema As Recordset
Dim rsOdabranaOprema As Recordset
Dim db As Database
Dim intRedak As Integer
Dim strSQL As String
Dim strSQLOdabir As String


txtNapajanje.SetFocus


Set db = CurrentDb

strSQL = " SELECT Napajanje.Referenca As Referenca, Napajanje.Opis as Opis, Napajanje.Visina " & _
" FROM Napajanje " & _
" WHERE (((Napajanje.PickFlag)= True))"

strSQLOdabir = "Select OdabranaOprema.Referenca, OdabranaOprema.Opis, OdabranaOprema.Kolicina, OdabranaOPrema.Visina " & _
"From OdabranaOprema"

Set rsPonudjenaOprema = db.OpenRecordset(strSQL, dbOpenSnapshot, dbReadOnly)

Set rsOdabranaOprema = db.OpenRecordset(strSQLOdabir)



Do Until rsPonudjenaOprema.EOF

txtNapajanje.SetFocus

rsOdabranaOprema.AddNew
rsOdabranaOprema.Fields("Referenca").Value = rsPonudjenaOprema.Fields("Referenca").Value
rsOdabranaOprema.Fields("Opis").Value = rsPonudjenaOprema.Fields("Opis").Value
rsOdabranaOprema.Fields("Visina").Value = rsPonudjenaOprema.Fields("Visina").Value
rsOdabranaOprema.Fields("Kolicina").Value = txtNapajanje.Value


rsPonudjenaOprema.MoveNext
rsOdabranaOprema.Update

Loop

Set rsPonudjenaOprema = Nothing
Set rsOdabranaOprema = Nothing

Set db = Nothing

Handler:

Izlaz:
End Sub

 

[Smart]

You could use the unmatched or duplicate wizard
from the database window (objects) select queries then new and use one of the above wizards