Merhaba, birde butonun tıklandığında olayındaki kodu aşağıdaki ile değiştirerek deneyiniz.

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