Yeni bir soru yaptım; SQL=

SELECT GIDENEVRAK.SIRANO, GIDENEVRAK.ALİNTAR, GIDENEVRAK.SÜRE, GIDENEVRAK.YANIT, [ALİNTAR]+[SÜRE] AS SONTARİH
FROM GIDENEVRAK
WHERE (((GIDENEVRAK.YANIT)=False));


FGIDENEVRAK açıldığında=
If Dlookup ("[SONTARİH]", "Sorgu4", "[SONTARİH]=Date()") Then
MsgBox ("Bugün yanıt vermen gereken başvuru var, unutma."), vbExclamation, "UYARI"
Else
End If

Yazdım oldu, vaktim olmadığından 1-2 deneme yapabildim, akşam tekrar deneyip buradan bilgi veririm, ona göre konuyu kapatabiliriz.Tşk.