Metin Kutusu Aktif Pasif

Kolay gelsin Arkadaşlar

Benim sizden bir istirhamım Olacak
BEN BİR ÖRNEK YAPTIM KOD DÜZGÜN ÇALIŞMIYOR

Yapmış Olduğum Personel Bilgisi Formumda Personel Bilgilerini Giriyorum. Fakat Şöyle Birşey yapmak İstiyorum Form Açıldığında Bekar Olarak Sabit Duracak
Personel Bilgilerini Girerken (Medeni_Durumu) Bekar İse (Eş_Çlışma_Durumu ve Çocuk_Sayısı) Metin Kutusu PASİF OLACAK.
Formu Kapatmadan Tekrar Giriş Yaptığımda Bukez (Medeni_Durumu) Evli İse (Eş_Çlışma_Durumu ve Çocuk_Sayısı) Metin Kutusu AKTİF Hale Gelecek ve bu kaydı tamamlayıp Tekrar Yeni Giriş Yaptığımda
(Medeni_Durumu) Bekar Olacak ve (Eş_Çlışma_Durumu ve Çocuk_Sayısı) Metin Kutusu PASİF OLACAK.
Ben Evli olarak Seçersem (Eş_Çlışma_Durumu ve Çocuk_Sayısı) Metin Kutusu AKTİF OLACAK
Her Yeni Kayıtta (Eş_Çlışma_Durumu ve Çocuk_Sayısı) PASİF Olacak. Medeni Durumunu Evet Olarak Seçersem (Eş_Çlışma_Durumu ve Çocuk_Sayısı) AKTİF Hale Gelecek Kayıt Tamamlanınca Tekrar PASİF Hale Gelecek

İLGİNİZ ve ALAKANIZDAN DOLAYI ÇOK TELÜŞEKKÜR EDERİM

Merhaba
Ben birini yaptım diğerinide siz buna göre yapınız.

Private Sub Medeni_Durum_BeforeUpdate(Cancel As Integer)
If Medeni_Durum = "Evli" Then
Çocuk_Sayısı.Enabled = True
Eş_Çalışma_Durumu.Enabled = True
Else
Çocuk_Sayısı.Enabled = False
Eş_Çalışma_Durumu.Enabled = False
End If
End Sub

Sayın C*e*l*o*y*c*e Bu Kod'u Yaptım ben ama olmadı

Sanırım şöyle bir şey olmalı:

Sayın. mehmetdemiral Hocam

Tam istediğim gibi oldu çok teşekkür Ederim Sağolun Emeğinize sağlık
Konuyla ilgilenen tüm hocalarıma'da ayrı ayrı çok teşekkür ederim