DELETE tbl_gecici.sno
FROM tbl_gecici
WHERE (((tbl_gecici.sno) Not In (SELECT Min(tbl_gecici.sno) AS EnAzsno FROM tbl_gecici GROUP BY tbl_gecici.sicilno, tbl_gecici.adisoyadi, tbl_gecici.gorev, tbl_gecici.onay; )));

Dim db As Database
Dim rst As Recordset
    
Set db = CurrentDb()
Set rst = db.OpenRecordset("gorev_sorgusu")
    
rst.MoveFirst

recalc

DoCmd.SetWarnings False

Do While Not rst.EOF

If rst![onay] = True Then

    If DCount("[sicilno]", "tbl_gecici", "[sicilno]= '" & rst![sicilno] & "'") <> 0 Then
     
        GEklenmeyen = rst![adsoyad] & ", " & GEklenmeyen
        
    Else
    
        Geklenen = rst![adsoyad] & ", " & Geklenen
        DoCmd.RunSQL "INSERT INTO tbl_gecici ( adisoyadi, sicilno, gorev, onay ) SELECT adsoyad, sicilno, gorev, onay FROM personel_kayit_tablosu WHERE (((sicilno)= '" & rst![sicilno] & "'));"
             
    End If

End If

    rst.MoveNext
    
Loop

If Len(GEklenmeyen) <> 0 Then

    MsgBox (GEklenmeyen & " daha önceden girilmiş.")

End If

If Len(Geklenen) <> 0 Then

    MsgBox (Geklenen & " Kaydedildi.")

End If

DoCmd.RunSQL "UPDATE personel_kayit_tablosu SET onay = 0"

DoCmd.SetWarnings True

SELECT personel_kayit_tablosu.id, personel_kayit_tablosu.adsoyad, personel_kayit_tablosu.sicilno, personel_kayit_tablosu.gorev, personel_kayit_tablosu.onay
FROM personel_kayit_tablosu LEFT JOIN tbl_gecici ON personel_kayit_tablosu.[sicilno] = tbl_gecici.[sicilno]
WHERE (((tbl_gecici.sicilno) Is Null));