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.