PHP Kod:
Private Sub Form_Load()
Me.Onay6.Value = 0
End Sub
Kod:
if me.onaykutusuadı.value = 0 then
'yani boş ise
'…….………………….çalışacak kod bloğu
elseif me.onaykutusuadı.value = -1 then
'yani işaretlenmiş ise
'…….…………………….çalışacak kod bloğu
end if
PHP Kod:
Reports("Rapor1").Metin2.ControlSource = "='" & me.açılankutuadı.Column(0) & "'"
PHP Kod:
Reports("Rapor1").Metin2.ControlSource = "='" & me.Form2.controls("açılankutuadı").Column(0) & "'"