arkadaşlar ekte gönderdiğim örnekte veri girişi formunda gereği yapıldı mı diye bir onay kutusu bulunmaktadır. evrakın gereği yapıldı ise bilgilerin arşive aktarma işlemi yapabiliyorum, ancak arşive aktardıktan sonra gereği yapılan evrakın tamamen buraya bağı tablodan silinmesini istiyorum. yani gereği yapılanların içine (arşive) kaldırılmasını istiyorum. umarım anlatabilmişimdir şimdiden teşekkür ederim saygılar sunarım.

ek eklememe izin vermedi. acaba bir sorun mu var??

onay kutusuna uygulanan kod bu şekilde:

Private Sub Onay872_Click()





If MsgBox("Bu kaydın arşive kaldırılmasını istediğinizden emin misiniz?", vbYesNo, "Aktarım Uyarısı") = vbYes Then

strSQL = "SELECT * FROM ihsararsiv "

Set rstkayit = New ADODB.Recordset

rstkayit.Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic

With rstkayit

.Find "[Kimlik]=" & Me.Kimlik

If Not rstkayit.EOF Then

.Fields("Tc") = Me.tc

.Fields("AdiSoyadi") = Me.adisoyadi

.Fields("mahkemeadi") = Me.mahkemeadi

.Fields("mahkemegunu") = Me.mahkemegunu

.Fields("tel1") = Me.tel1

.Fields("tel2") = Me.tel2

.Fields("tel3") = Me.tel3

.Fields("adres") = Me.adres

.Fields("aciklama") = Me.aciklama

.Fields("evraktakibiyapan") = Me.evraktakibiyapan

.Fields("evrakgelistarihi") = Me.evrakgelistarihi

.Fields("mahkemesayisi") = Me.mahkemesayisi

.Update

Else

.AddNew

.Fields("Kimlik") = Me.Kimlik

.Fields("Tc") = Me.tc

.Fields("AdiSoyadi") = Me.adisoyadi

.Fields("mahkemeadi") = Me.mahkemeadi

.Fields("mahkemegunu") = Me.mahkemegunu

.Fields("tel1") = Me.tel1

.Fields("tel2") = Me.tel2

.Fields("tel3") = Me.tel3

.Fields("adres") = Me.adres

.Fields("aciklama") = Me.aciklama

.Fields("evraktakibiyapan") = Me.evraktakibiyapan

.Fields("evrakgelistarihi") = Me.evrakgelistarihi

.Fields("mahkemesayisi") = Me.mahkemesayisi

.Update

End If

End With

Else

      MsgBox ("Aktarma İşlemi İsteğiniz Üzerine İptal Edilmiştir!!!" & vbCr & "İptal Edildi.")

   End If

End Sub