12/02/2012, 14:10
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