aktarma işleminden sonra seçili kaydın silinmesi

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

Sayın alperadn01,

aktarma...deneme-ATOZ2.rar
 
Bu konunuzdaki talebinize yönelik olarak daha öncesinde yukarıda bağlantısı bulunan konunuzda da benzer nitelikte talepte bulunmanız neticesinde;hem ilgili kaydın arşiv dosyasına aktarılmasını hem de asıl dosyadan silinmesini içeriğinde barındıran eklenen örnek uygulamada yer almıştı.o uygulamanın veri girişi isimli formundaki Komut26 isimli butonunun tıklandığında olay yordamındaki kodlamasında mevcut bulunan kayıt bilgisini ilgili tablodan silme üzerine yazılan Sql silme kodunu inceleyebilirsiniz.benzer işlemi yeni uygulamanızda da kullanabilirsiniz.

...

DoCmd.RunSQL "DELETE FROM silinecek_kaydin_bulundugu_tablonun_adi WHERE silinecek_kaydin_id_kayit_numarasi=" & Me.form_uzerindeki_silinecek_kaydin_id_kayit_numarasini_iceren_metinkutusu

...

Kalıbını kullanmak sureti ile,örnek şeklinde belirtilecek olunursa da;

DoCmd.SetWarnings False

DoCmd.RunSQL "DELETE FROM dosya WHERE Kimlik=" & Me.Kimlik

DoCmd.SetWarnings True

MsgBox ("DOSYA tablosundan silindi")

Me.Requery

Me.Refresh

gibi bir kullanım kodlamasını,yeni tabloya ekleme işleminin hemen ardı sıra gelecek şekilde dahil edebilirsiniz.bilgilerinize.

İyi çalışmalar,
Saygılar.

ilgi ve alakanızdan dolayı teşekkür ederim. benim yukarıda vermiş olduğum kod da sizlerin yardımlarıyla oluşturulmuş kod dur. sizin daha önce vermiş olduğun kodu denedim. ancak benim göndermiş olduğum kodda bir türlü yapamadım. ben ilk önce buton olarak düşündüm sonra onay kutusu daha iyi olur diye düşündüm. o yüzden sıkıntı olabilir düşüncesiyle onay kutusu olarak yardım talep ettim. o şekilde de çalıştıktan sonra sorunum zaten çözülmüş olacaktır.buton olarak tarafınızca verilmiş olan kodu uygulayacağım teşekkür ederim. saygılar iyi çalışmalar.

arkadaşlar ben neden örnek dosya gönderemiyorum. site ilgili bir genel sorun mu var acaba??

Çünkü konuyu Örnekler kategorisine açmışsınız. Sorularınızı örnekler kategorisine açmamalısınız. Bu vesile ile Site Kurallarını bir daha gözden geçirirseniz iyi olur.

sorular ve cevaplarda da aynı sorunu yaşadığım için örneklerde açayım konuyu dedim ama buradan da gönderemedim eki. tekrar konuyu gözden geçireceğim teşekkür ederim.

---

Örnek ekle (TEST)