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