Kod:
Private Sub Form_Load()
If Me.KURS_BIT_TARIHI > Date Then
Me.KURS_AKTIFMI = -1
Else
Me.KURS_AKTIFMI = 0
End If
End Sub
#2
Kodları formunuzun Yüklendiğinde olayına yerleştirecek olursanız istediğiniz sonucu elde edersiniz:
