(10/02/2018, 19:55)ozanakkaya yazdı: Merhaba,


Kullanmanız gereken kod:

If Nz(DLookup("[ID]", "tblOda1", "[Aktivite] = 'P3' AND [Kayit_Zamani]= #" & Format(Me.Text2, "mm\/dd\/yyyy hh:mm:ss") & "#"), 0) <> 0 Then



Me.Text2.BackColor = vbRed



End If

bu kod ile, eğer Text2 isimli metin kutusunda "09.02.2018 00:15:01" yazıyor ise, bu tarih tabloda olduğu için ve Activate alanında da P3 değeri olduğu için 67 değerini bulur, bu değer 0'dan büyük olduğu için metin kutusunu kırmızı yapar.

Ancak, malesef mevzunun tamamını bilmediğim için ve diğer metin kutularına veri nasıl aktarılıyor çözemediğim için yapı hakkında net çözüm üretemiyorum. Ayrıca belirttiğiniz formda o kadar metin kutusu var ki, her biri için Dlookup kodu eklerseniz form çalışmaz ve kitlenir.

Yapmak istediğinizi biraz daha açarsanız ve yapmak istediğiniz işlemin tamamını açık yazarsanız yardımcı olabilirim. 

Üstteki kod ise yapmak istediğiniz işlem için yeterlidir.

Merhaba,

Benim kurmaya çalıştığım mantık şu;

* 34 adet kurutma odasına ait tüm veriler kendilerine ait tablolara ayrı formlar vasıtası ile girilecek.

* Giişler sonrasında, bir yeni veri eklenene kadar "Timer"  ile her 15 dakikada bir bir önceki verinin kayıt zamanına 15 dakika ekleyerek aynı verişini ilgili odalara sürekli olarak uygulama kendi gerçekleştirecek.

* frmSituation isimli formda istenilen oda ve o odaya ait dolum sayısı kriteri seçildiğinde bu kriterlere ait verilerin takibi yapılacak. Görünen tüm metin kutucukları ise 15 dakikalık saat dilimlerini refere edecek ve refere ettiği zaman dilimi içerisine girilen aktiviteye atanan renge göre otomatik olarak boyanacak.

Dolayısıyla evet dediğiniz gibi tüm metin kutucuklarına bu mantıkla Dlookup fonksiyonu kurabileceğimi düşünmüştüm 


var ise değerli önerilerinize açığıım.

şimdiden teşekkür ederim