Onay Kutusu (Evet/Hayır)

Selam...
Arkadaşlar yapmaya çalıştığım projemde yapamadığım ve site içerisinde yapmış olduğum araştırmalar sonucunda da tam istediğim örneklere rastlayamadım.
Konu şu;
frrm_Form1 de ürün bilgileri ile garanti bilgileri çatısı altında alanlar bulunmaktadır.
1-Bunlardan Garanti Bilgileri çatısı altında bulunan bölümde Evet/Hayır onay kutusu işaretlendiğinde metin kutusuna GARANTİLİ yazması,Onay kutusu boş ise yine metin kutusuna GARANTİ DIŞI yazması,
2-Eğer ürün garantili ise formda BASTAR,(başlangıç tarihi) BITTAR(bitiştarihi) adında alanlar oluşturması yani Onay kutusu işaretli ise bahsettiğim alanların oluşması değilse oluşturmaması (gizle-göster ) şeklinde.
Bu konuda yardımcı olabilirseniz memnun olurum.
Saygılarımla.



Sorumu sorduktan sonra sayın Celoyce hocanın yapmış olduğu bilet adlı programdan 1.sorumun cevabını buldum,ancak ikinci sorumun yanıtını bulamadım.Son şekliyle örneğimi ekliyorum.
Saygılarımla

Private Sub GARANTIDURUM_AfterUpdate()
If Me.GARANTIDURUM.Value = "-1" Then
Me.BASTAR.Visible = True
Me.BITTAR.Visible = True
Else
Me.BASTAR.Visible = False
Me.BITTAR.Visible = False
End If
End Sub

Ben de yapmıştım. Biraz daha ayrıntılı. Ziyan olmasın )

Sayın hocalarım,hepinize çok çok teşekkür ederim,elinize emeğinize sağlık,sorun çözülmüştür.
Saygılarımla.