Access SQL   ›   ACCESS SORULARI VE ÖRNEK UYGULAMALARI   ›   ACCESS SORULARI   ›   Randevu Tarihine Göre Uyarı Vermesi Ve Renklendirme

Randevu Tarihine Göre Uyarı Vermesi Ve Renklendirme
hegu
Aktif Üye 40-100

*
Kayıt Tarihi: 28.04.2010
Toplam 15 konu açtı.
Toplam 89 yorum yaptı.
Toplam 7 puanı bulunmakta.
Beğeniler: 0 / 0
#1
10-02-2026, 21:23 (En son düzenleme: 10-02-2026, 21:31 hegu.)
Hayırlı akşamlar. Ekte gönderdiğim örnekte islem tablosu var. Burada yapılan işleme göre randevu süreleri belirliyorum. Günün tarihi ile randevu tahihi çıkarılınca eğer süre uzun ise uyarı verip "Devam etmek istiyormusun" Evet ise kırmızıya renklendirmesi, fakat bu süre içinde bir tarih ise yeşile çevirmesi.Bu işlemler Ana Formda yapılacak. Bunların verilerini form da sorgu formunda tarihler arasına göre döküm olarak alabilmek istiyorum. Bunlardan da rapor oluşturmak istiyorum. Yeşil ve kırmızı alanları süzmek istiyorum. Yardımlarınız için teşekkür ederim.


Eklenti Dosyaları
.rar   Konya Adsh.rar (Boyut: 160,08 KB / İndirilme: 7)



  Bul
  Alıntı
Bu mesajı beğenenler:
hegu
Aktif Üye 40-100

*
Kayıt Tarihi: 28.04.2010
Toplam 15 konu açtı.
Toplam 89 yorum yaptı.
Toplam 7 puanı bulunmakta.
Beğeniler: 0 / 0
#2
11-02-2026, 08:01
Koşullu biçimlendirme ile belli bir noktaya kadar geldim. Son halini ekliyorum. Yapılması gereken süreleri de form getirdim. Randevu tarihini yazdığım zaman [Rand_Tar]-[Tarih] sonucu [isl_Sr] den büyük ise kaç gün fazla olduğu uyarısı vermesi. yine de devam edeyim mi uyarısına Evet ise kayıt etmesi Hayır ise işlemi iptal etmesini istiyorum. Bir de sorgu kısmında Rd_Sr sorgusu İfade1 sonucu -1 veya 0 geliyor. Eğer -1 ise yeşil yazması 0 ise Kırmızı yazmasını nasıl sağlarız. Teşekkür ederim.


Eklenti Dosyaları
.rar   Konya Adsh.rar (Boyut: 173,74 KB / İndirilme: 6)



  Bul
  Alıntı
Bu mesajı beğenenler:
hegu
Aktif Üye 40-100

*
Kayıt Tarihi: 28.04.2010
Toplam 15 konu açtı.
Toplam 89 yorum yaptı.
Toplam 7 puanı bulunmakta.
Beğeniler: 0 / 0
#3
11-02-2026, 09:31 (En son düzenleme: 11-02-2026, 09:33 hegu.)
iif ile Yeşil kırmızı yı hallettim



  Bul
  Alıntı
Bu mesajı beğenenler:
dsezgin
Forum Yöneticisi

*
Kayıt Tarihi: 24.03.2013
Toplam 27 konu açtı.
Toplam 9.080 yorum yaptı.
Toplam 1.075 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2013,
Beğeniler: 56 / 237
#4
11-02-2026, 18:55
Visual Basic
  1. Private Sub Rand_Ta_BeforeUpdate(Cancel As Integer)
  2. Dim fark As Double, cevap As Variant
  3.       fark = DateDiff("d", Me.Tarih.Value, Me.Rand_Ta.Value)
  4.             If fark > CLng(Me.isl_Sr) Then
  5.                         cevap = MsgBox(fark & " gün, işin yapılması gereken " & Me.isl_Sr & " günden fazladır. Emin misiniz?", vbYesNo + vbCritical, "Dikkat")
  6.                          If cevap = vbYes Then
  7.                                  Me.Rand_Ta.ForeColor = vbRed
  8.                         ElseIf cevap = vbNo Then
  9.                                  Cancel = True
  10.                          End If
  11.             Else
  12.                 Me.Rand_Ta.ForeColor = vbGreen
  13.             End If
  14.  
  15. End Sub



Prosedürü değiştirebilirsiniz.
Access Fonksiyonlarının(Deyimler), Sorgu da kullanımı
Rapor veya-Pdf-Dosyalarını Birleştirme Uygulaması



  Website   Bul
  Alıntı
Bu mesajı beğenenler:
hegu
Aktif Üye 40-100

*
Kayıt Tarihi: 28.04.2010
Toplam 15 konu açtı.
Toplam 89 yorum yaptı.
Toplam 7 puanı bulunmakta.
Beğeniler: 0 / 0
#5
11-02-2026, 23:31
Sayın dsezgin emeğine sağlık teşekkür ederim.



  Bul
  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  Yaklaşan Tarihte Uyarı Alma xosmaner 3 305 14-11-2025, 21:53
Son Mesaj: özgülapt
  Depo Takibinde Malzeme Yoksa Uyarı Vermesi hegu 2 277 22-04-2025, 21:56
Son Mesaj: hegu
  Bağlı Tabloda şarta Göre Renklendirme Satir 2 314 19-12-2024, 15:38
Son Mesaj: Satir
  Listview Değere Göre Renklendirme ibrahimsenol 3 1.085 19-12-2024, 15:37
Son Mesaj: Satir
  Randevu Programı Yardım akinokrizo 5 589 04-08-2024, 23:15
Son Mesaj: akinokrizo
  Ileri Butonu Sona Geldiğinde Uyarı Vermiyor Yeni Kayıt Açıyor. programmer67 2 399 25-06-2024, 16:49
Son Mesaj: programmer67
  Yeni Kayıt Açarken Uyari evren89 2 309 15-06-2024, 10:04
Son Mesaj: evren89
  Access Uyarı Mesajını Kapatmaa benuva 3 383 01-11-2023, 00:47
Son Mesaj: dsezgin

Foruma Git:


Bu konuyu görüntüleyen kullanıcı(lar): 2 Ziyaretçi