Seçenek Düğmeleri ve Metin Kutusu

Seçenek Düğmeleri ve Metin Kutusu - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Seçenek Düğmeleri ve Metin Kutusu (/konu-secenek-dugmeleri-ve-metin-kutusu.html)

Sayfalar: 1 2

Cvp: Seçenek Düğmeleri ve Metin Kutusu - Puletin - 12/02/2012

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

Cvp: Seçenek Düğmeleri ve Metin Kutusu - 53rize - 12/02/2012

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