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
#7
Alttaki kodları kendi formunuzda ki kodlar ile değiştiriniz lütfen
Kaplumbağa ya dikkat et...
Sadece başını çıkartıp risk aldığında ilerleyebiliyor...
Sadece başını çıkartıp risk aldığında ilerleyebiliyor...
