Evet hocam kafa karıştıran sorgular olmasın bu hangisi şu neydi diye unutmalara karşı tek sorgu olurmu diye merak etmiştim.
Üç Ayrı Sorgu Tek Sorgu Da Birleştirilebilirmi
herhangi bir butona ekleyeceğiniz bu kod sırasıyla 3 sorgunun işlevini gerçekleştirir
'hy_3lü__Sorgu_2Ekle_Sil________________
Dim Ekle_KisiArsiv, Ekle_ABlgArsiv, Sil_TblKisi As String
'KişiArşiv tablosuba ekleme
Ekle_KisiArsiv = " INSERT INTO TBL_KİŞİ_ARŞİV ( PER_ID, ADISOYADI, TCNO, TELNO, ADRES ) " & _
" SELECT TBL_KİŞİ.PER_ID, TBL_KİŞİ.ADISOYADI, TBL_KİŞİ.TCNO, TBL_KİŞİ.TELNO, TBL_KİŞİ.ADRES " & _
" FROM TBL_KİŞİ " & _
" WHERE (((TBL_KİŞİ.PER_ID)=" & Me.PER_ID & "))"
CurrentDb.Execute Ekle_KisiArsiv
'AltBilgi Arşiv tablosuna ekleme____________________________________
Ekle_ABlgArsiv = "INSERT INTO TBL_ALTBILGI_ARŞİV ( ALT_ID, PER_NO, BAŞLAMATAR, BİTİŞTAR, AÇIKLAMA ) " & _
" SELECT TBL_ALTBILGI.ALT_ID, TBL_ALTBILGI.PER_NO, TBL_ALTBILGI.BAŞLAMATAR, " & _
" TBL_ALTBILGI.BİTİŞTAR, TBL_ALTBILGI.AÇIKLAMA " & _
" FROM TBL_ALTBILGI "
CurrentDb.Execute Ekle_ABlgArsiv
'Silme____________________________________
Sil_TblKisi = "DELETE TBL_KİŞİ.PER_ID, TBL_KİŞİ.ADISOYADI, TBL_KİŞİ.TCNO, TBL_KİŞİ.TELNO, TBL_KİŞİ.ADRES " & _
" FROM TBL_KİŞİ " & _
" WHERE (((TBL_KİŞİ.PER_ID)=" & Me.PER_ID & "))"
CurrentDb.Execute Sil_TblKisi
'hy ____________________
Konuyu Okuyanlar: 1 Ziyaretçi
