+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Üç Ayrı Sorgu Tek Sorgu Da Birleştirilebilirmi (/konu-uc-ayri-sorgu-tek-sorgu-da-birlestirilebilirmi.html)
Sayfalar:
1
2
Cvp: Üç Ayrı Sorgu Tek Sorgu Da Birleştirilebilirmi - adnan - 13/02/2020
Evet hocam kafa karıştıran sorgular olmasın bu hangisi şu neydi diye unutmalara karşı tek sorgu olurmu diye merak etmiştim.
Cvp: Üç Ayrı Sorgu Tek Sorgu Da Birleştirilebilirmi - berduş - 13/02/2020
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 ____________________Cvp: Üç Ayrı Sorgu Tek Sorgu Da Birleştirilebilirmi - adnan - 13/02/2020
Hocam işlem tamamdır çok teşekkür ederim ellerinize sağlık.
Saygılarımla