Skip to main content

AccessTr.neT


Soru Cevap Tablosunda Her Cevap İçin Ayrı Bir Tabloya Kayıt Ekleme

Soru Cevap Tablosunda Her Cevap İçin Ayrı Bir Tabloya Kayıt Ekleme

Çözüldü #1
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.
.rar cevaptblosu.rar (Dosya Boyutu: 19,51 KB | İndirme Sayısı: 0)
Son Düzenleme: 28/05/2018, 11:44, Düzenleyen: murat dikme.
Cevapla
#2
ö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
POWER 'un Çekirgesi :=)
ozguryasin, 23-09-2009 tarihinden beri AccessTr.neT AİLESİ üyesidir.
Access'i Profesyonel Şekilde Öğrenmek İçin https://www.accesstr.net Ailesi Yeter. alkis


Site Kurallarını sorularınızın hızlı cevaplanması için kesinlikle okuyunuz.
Cevapla
#3
(28/05/2018 01:13)ozguryasin Adlı Kullanıcıdan Alıntı: ö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.
Cevapla
#4
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.

Visual Basic Code
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
.rar Anket_ozguryasin.rar (Dosya Boyutu: 104,97 KB | İndirme Sayısı: 6)
POWER 'un Çekirgesi :=)
ozguryasin, 23-09-2009 tarihinden beri AccessTr.neT AİLESİ üyesidir.
Access'i Profesyonel Şekilde Öğrenmek İçin https://www.accesstr.net Ailesi Yeter. alkis


Site Kurallarını sorularınızın hızlı cevaplanması için kesinlikle okuyunuz.
Cevapla
#5
Sayın Hocam emeğinize sağlık teşekkür ederim evet sorunsuz olarak çalışmaktadır. +rep +rep
Cevapla
#6
konu cevaplanan sorular bölümüne taşınmıştır.
POWER 'un Çekirgesi :=)
ozguryasin, 23-09-2009 tarihinden beri AccessTr.neT AİLESİ üyesidir.
Access'i Profesyonel Şekilde Öğrenmek İçin https://www.accesstr.net Ailesi Yeter. alkis


Site Kurallarını sorularınızın hızlı cevaplanması için kesinlikle okuyunuz.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task