AccessTr.neT

Tam Versiyon: süresi dolan kursun aktifliğini kaldırma
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Arkadaşlar kurs faaliyet programı yapıyorum. Bir nokta da takıldım. Kursun bitiş tarihi, bugünden daha eski bir tarihse "kurs aktifmi" yazan seçenek düğmesinin işaretinin kalkmasını istiyorum. Ben "kurs bitiş tarihi" metin kutusunun çıkıldığında olayına kodu yazdım. Ama ben istiyorum ki formu açtığım zaman bütün kayıtları konrtol etsin ve süresi geçen kursların aktiflik özelliğini kaldırsın.
Bu konuda yardımcı olursanız sevinirim. Örnek ekliyorum
Kodları formunuzun Yüklendiğinde olayına yerleştirecek olursanız istediğiniz sonucu elde edersiniz:
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
Sn afil;
Sn tdsharun'un çözümüne ek olarak
Formunuzun KayıotKaynağına:
Kod:
SELECT TBL_KURS_TARIHLERI.Kimlik, TBL_KURS_TARIHLERI.KURS_BAS_TARIHI, TBL_KURS_TARIHLERI.KURS_BIT_TARIHI, IIf([KURS_BIT_TARIHI]<Date(),0,-1) AS KURS_AKTIF_MI
FROM TBL_KURS_TARIHLERI;
yazıp, KURS_AKTIFMI onay kutusunun DenetimKaynağına
Kod:
KURS_AKTIF_MI
yazarsanız başka bir çözüm yolu olur.
Sayın hocalarım teşekkürler. Sorun çözüldü.