kaydetme butonun kodunu aşağıdaki kodla değiştirip dener misiniz?

Private Sub SAKLA_Click()

On Error GoTo Err_SAKLA_Click

Dim X, a, B

Dim Sorgu As String

If IsNull(Me.KLNO) Then

MsgBox "Lütfen Boş geçmeyin ,Klasör No'yu  Yazmalısınız", 48, "Kayıt İşlemi"

 Me.KLNO.SetFocus

 Exit Sub

End If

If MsgBox("denetim saati girilmezse, diğer tüm alanlar girilse bile kayıt işlemi GERÇEKLEŞMEZ: Değişiklikler kaydedilsin mi?", 36, "K A Y D E T") = 6 Then

  DoCmd.SetWarnings False







DoCmd.SetWarnings True

    DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

  DoCmd.RunCommand acCmdSaveRecord

       'DoCmd.OpenQuery "ekleme"

       CurrentDb.Execute " delete from tbl_kisiler WHERE tbl_kisiler.TCKIMLIKNO='" & Me.TCKIMLIKNO & "'"

       Sorgu = " INSERT INTO tbl_kisiler ( KLNO, TCKIMLIKNO, ADISOYADI, BASLAMATARIHI, geldimi, SAVNO )" & _

               " SELECT VERIGIRIS.KLNO, VERIGIRIS.TCKIMLIKNO, VERIGIRIS.ADISOYADI, VERIGIRIS.BASLAMATARIHI, " & _

               " VERIGIRIS.geldimi, VERIGIRIS.SAVNO" & _

               " FROM VERIGIRIS " & _

               " WHERE VERIGIRIS.TCKIMLIKNO='" & Me.TCKIMLIKNO & "'"

               CurrentDb.Execute Sorgu, dbFailOnError

    

    Me.liste_1.Requery

   



Else

    Me.Undo

    End If





Exit_SAKLA_Click:

    Exit Sub

Err_SAKLA_Click:



    Resume Exit_SAKLA_Click

   

End Sub