Seçenek Düğmeleri ve Metin Kutusu

Alttaki kodları kendi formunuzda ki kodlar ile değiştiriniz lütfen

Sub SecenekIsaretle()

If IsNull(DLookup("[semerkand]", "Promosyonlar", "[kisi_id]= Forms!ANA!kisi_id")) Then

Me.Seçenek104 = "0"

Else

Me.Seçenek104 = "-1"

End If

If IsNull(DLookup("[aile]", "Promosyonlar", "[kisi_id]= Forms!ANA!kisi_id")) Then

Me.Seçenek106 = "0"

Else

Me.Seçenek106 = "-1"

End If

If IsNull(DLookup("[mostar]", "Promosyonlar", "[kisi_id]= Forms!ANA!kisi_id")) Then

Me.Seçenek108 = "0"

Else

Me.Seçenek108 = "-1"

End If

End Sub

Sağolun Allah razı olsun. Tamamdır.