Onay kutusunda formül

Private Sub Ayrıntı_Format(Cancel As Integer, FormatCount As Integer)
if me.cinsiyet="erkek" then
me.erkek=true
me.kadın=false
else
me.erkek=false
me.kadın=True
end if
if me.mednihali="evli" then
me.evli=true
me.bekar=false
else
me.evli=false
me.bekar=True
end if


End Sub

Sayın esrefigit;
Katkılarınız için teşekkürler. Örneğin çalışır halini ekliyorum.
Saygılarımla

me.erkek=(me.cinsiyet="erkek")
me.kadın=not me.erkek

me.evli=(me.medenihali="evli")
me.bekar=not me.evli

Sayın bilgisayarcı;
Sizin çalışmanızda farklı bir yöntem olsa gerek. Peki bu kodun arasında else veya end if gibi bişeyler varmı varsa nereye yerleştiriceğiz.
Teşekkürler

gerek yok. kod bu haliyle çalışır.

Teşekkürler