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.

ö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

(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.

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

Sayın Hocam emeğinize sağlık teşekkür ederim evet sorunsuz olarak çalışmaktadır.

konu cevaplanan sorular bölümüne taşınmıştır.