öncelikle,kendi adıma örnek uygulamanızı inceleme imkanım ve zamanım olmaması nedeni ile sadece yazdıklarınızdan değerleri almak sureti ile ilk etapta bir cevap verebilmek adına şu yöntemlerden birini kullanabilirsiniz.
YÖNTEM 1
seçenek grubunun TIKLANDIĞINDA olay yordamına
Kod:
Me.secenekgrubu_adi = IIf(Me.secenekgrubu_adi = 1, "OK", IIf(Me.secenekgrubu_adi = 2, "NOT OK", "Gözlem Yapılmadı"))YÖNTEM 2
seçenek grubunun TIKLANDIĞINDA olay yordamına
Kod:
Select Case Me.secenekgrubu_adi
Case "1"
Me.secenekgrubu_adi = "OK"
Case "2"
Me.secenekgrubu_adi = "NOT OK"
Case "3"
Me.secenekgrubu_adi = "Gözlem Yapılmadı"
End Selectsayın Allback,
Alıntı:Bir de tüm soruların cevabı "Gözlem Yapılmadı" olarak seçili olursa kaydetme başarısız hatası vermesini nasıl sağlarım.
ifadenize yönelik olarak;
kaydetme butonu içeriğine
Kod:
if Me.secenekgrubu1_adi=3 and Me.secenekgrubu2_adi=3 .......v.s.... then
MsgBox("kaydetme başarısız")
Me.Undo
Exit Sub
Else
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
end ifbilginize...iyi çalışmalar,saygılar.
