süresi dolan kursun aktifliğini kaldırma

18/05/2009, 23:55

afil

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
19/05/2009, 02:41

tdsharun

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
19/05/2009, 11:45

ayhan2122

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.
19/05/2009, 23:59

afil

Sayın hocalarım teşekkürler. Sorun çözüldü.