AccessTr.neT

sadece uyarı var/yok alanı için bir çözüm
öncelikle hatırlatma formunda bir aşağıdaki fonksiyonu oluşturup sonrada ekleme/silme/güncelleme/formu kapatma işlemlerinin yapılacağı koda eklemelisiniz
ben silme/kapatma gibi bir kaç işleve ekledim, ihtiyaç duyduğunuz yerde Gnclle yazarsanız fonksiyon çalışır

Function Gnclle()

With Form_Frm_Ajanda_Haftalik.AyAd

    .Caption = IIf(DCount("[KytNu]", "Sorgu1") = 0, "YOK", "VAR")

    .FontSize = IIf(DCount("[KytNu]", "Sorgu1") = 0, 18, 36)

End With

End Function

(28/02/2020, 15:59)berduş yazdı: [ -> ]sadece uyarı var/yok alanı için bir çözüm
öncelikle hatırlatma formunda bir aşağıdaki fonksiyonu oluşturup sonrada ekleme/silme/güncelleme/formu kapatma işlemlerinin yapılacağı koda eklemelisiniz
ben silme/kapatma gibi bir kaç işleve ekledim, ihtiyaç duyduğunuz yerde Gnclle yazarsanız fonksiyon çalışır

Function Gnclle()

With Form_Frm_Ajanda_Haftalik.AyAd

    .Caption = IIf(DCount("[KytNu]", "Sorgu1") = 0, "YOK", "VAR")

    .FontSize = IIf(DCount("[KytNu]", "Sorgu1") = 0, 18, 36)

End With

End Function

Öncelikle şehitlerimize Tanrı'dan rahmet diliyorum. Mekanları cennet olsun. Ailelerine ve sevenlerine sabır diliyorum.

Sayın berduş çok teşekkür ederim. Yazdığınız function gayet güzel çalışıyor. Elinize sağlık. Aslında dün akşam ben de aynı kodu "Frm_Ajanda_Hatirlatma_Kayit" formunun kapatma düğmesinin altına Forms!Frm_Ajanda_Haftalik.AyAd.Caption = IIf(IsNull(DLookup("[KytNu]", "Sorgu1")), "YOK", "VAR") şeklinde yazdım. O da çalıştı. Ama internet yavaş olduğundan siteye girip yazamadım. Fakat sizin yazdığınız daha kullanışlı geldi bana. Değiştireceğim şimdi. Çok teşekkür ederim . Sağ olun var olun. Sağlıcakla kalın.