+- 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ığı: Soru Cevap Tablosunda Her Cevap İçin Ayrı Bir Tabloya Kayıt Ekleme (/konu-soru-cevap-tablosunda-her-cevap-icin-ayri-bir-tabloya-kayit-ekleme.html)
Soru Cevap Tablosunda Her Cevap İçin Ayrı Bir Tabloya Kayıt Ekleme - murat dikme - 27/05/2018
Merhaba.
Ekli Örnekte Cevap_tablosu Sorgusu içinde verilen her cevap seçeneği için CEVAP tablosuna evet seçildiğinde 1 hayır seçildiğinde 2 bazen seçildiğinde sıfır olarak kayıt eklenmektedir.
benim yapmak istediğim ise bu tabloya kayıt eklerken diğer tablolarada kayıt eklemesi. Evet seçildiğinde EVET tablosuna kayıt yapması hayır seçildiğinde HAYIR tablosuna kayıt eklemesi, bazen seçildiğinde BAZEN tablosuna kayıt eklemesini gerçekleştireceğim kod veya ölçüt nasıl olmalıdır.
Bu kayıtları eklerken örneğin EVET tablosuna "ilgili kişi tarafımızca görevlidir" şeklinde, HAYIR tablosuna " İlgili kişi tarafımızca görevli değildir" şeklinde kayıt eklemek isitiyorum.
Cvp: Soru Cevap Tablosunda Her Cevap İçin Ayrı Bir Tabloya Kayıt Ekleme - ozguryasin - 28/05/2018
örneğinizi form tablosu ile birlikte, verileri arttırarak güncellerseniz bakayım hemen, anladığım kadarı ile form üzerinden 0,1,2 olasılıklarından hangisi seçilirse seçime göre tablolara yazdırmak istiyorsunuz
Cvp: Soru Cevap Tablosunda Her Cevap İçin Ayrı Bir Tabloya Kayıt Ekleme - murat dikme - 28/05/2018
(28/05/2018, 01:13)ozguryasin yazdı: örneğinizi form tablosu ile birlikte, verileri arttırarak güncellerseniz bakayım hemen, anladığım kadarı ile form üzerinden 0,1,2 olasılıklarından hangisi seçilirse seçime göre tablolara yazdırmak istiyorsunuz
Sayın hocam merhaba.
Örneği güncelledim. daha önce forumda arama yaparak gördüğüm uygulamayı kendime göre uyarlayacam.
Ekte güncellediğim uygulamaya ilave olarak EVET , HAYIR, BAZEN tablolarını eklenecektir.
Cvp: Soru Cevap Tablosunda Her Cevap İçin Ayrı Bir Tabloya Kayıt Ekleme - ozguryasin - 28/05/2018
istediğiniz cevap ektedir. 3 adet tablo eklenmiştir. Evet, Hayır, Bazen tabloları. bir soruda seçeneklerden birisi seçilirse, Evet - Hayır - Bazen ona göre hangi sınıf hangi öğrenci hangi soru ya verilen cevaba göre tabloya atmakta. seçim sonrasında değiştirilen cevap olursa eski cevabı bulup gerekli tablodan silip yeni cevaba göre tabloya atmaktadır. ayrıca yazılan kodları aşağıda görebilirsiniz.
İnceleyip geri bildirimde bulununuz.
DoCmd.SetWarnings False
DoCmd.RunSQL "DELETE Bazen.Sinif, Bazen.Ogrenci, Bazen.Soru FROM BAZEN " & _
"WHERE (((Bazen.Sinif)=[Formlar]![Anket_Formu]![SinifListesi]) AND ((Bazen.Ogrenci)=[Formlar]![Anket_Formu]![OgrenciListesi]) AND ((Bazen.Soru)=[Formlar]![Anket_Formu]![Anket_Formu_Cevap]![SORU_ID]));"
DoCmd.RunSQL "DELETE [Evet].Sinif, [Evet].Ogrenci, [Evet].Soru FROM EVET " & _
"WHERE ((([Evet].Sinif)=[Formlar]![Anket_Formu]![SinifListesi]) AND (([Evet].Ogrenci)=[Formlar]![Anket_Formu]![OgrenciListesi]) AND (([Evet].Soru)=[Formlar]![Anket_Formu]![Anket_Formu_Cevap]![SORU_ID]));"
DoCmd.RunSQL "DELETE Hayir.Sinif, Hayir.Ogrenci, Hayir.Soru FROM Hayir " & _
"WHERE (((Hayir.Sinif)=[Formlar]![Anket_Formu]![SinifListesi]) AND ((Hayir.Ogrenci)=[Formlar]![Anket_Formu]![OgrenciListesi]) AND ((Hayir.Soru)=[Formlar]![Anket_Formu]![Anket_Formu_Cevap]![SORU_ID]));"
DoCmd.SetWarnings True
Select Case Me.CEVAP_KODU
Dim Rs As New ADODB.Recordset
Case Is = 1
Rs.Open "Evet", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
Rs.AddNew
Rs!Sinif = Form_Anket_Formu.SinifListesi.Column(0)
Rs!Ogrenci = Form_Anket_Formu.OgrenciListesi.Column(0)
Rs!SORU = Form_Anket_Formu!Anket_Formu_Cevap!SORU_ID
Rs!cevap = "Evet"
Rs.Update
Rs.Close
Case Is = 2
Rs.Open "Hayir", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
Rs.AddNew
Rs!Sinif = Form_Anket_Formu.SinifListesi.Column(0)
Rs!Ogrenci = Form_Anket_Formu.OgrenciListesi.Column(0)
Rs!SORU = Form_Anket_Formu!Anket_Formu_Cevap!SORU_ID
Rs!cevap = "Hayır"
Rs.Update
Rs.Close
Case Is = 3
Rs.Open "Bazen", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
Rs.AddNew
Rs!Sinif = Form_Anket_Formu.SinifListesi.Column(0)
Rs!Ogrenci = Form_Anket_Formu.OgrenciListesi.Column(0)
Rs!SORU = Form_Anket_Formu!Anket_Formu_Cevap!SORU_ID
Rs!cevap = "Bazen"
Rs.Update
Rs.Close
End Select
Cvp: Soru Cevap Tablosunda Her Cevap İçin Ayrı Bir Tabloya Kayıt Ekleme - murat dikme - 28/05/2018
Sayın Hocam emeğinize sağlık teşekkür ederim evet sorunsuz olarak çalışmaktadır.
Cvp: Soru Cevap Tablosunda Her Cevap İçin Ayrı Bir Tabloya Kayıt Ekleme - ozguryasin - 28/05/2018
konu cevaplanan sorular bölümüne taşınmıştır.