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
kaydetme butonun kodunu aşağıdaki kodla değiştirip dener misiniz?