If Dlookup ("sontarih", "sorgu1", "sontarih=Date()") Then
MsgBox ("Bugün yanıt vermen gereken başvuru var, unutma."), vbExclamation, "UYARI"
Else: MsgBox ("Bugün yanıt vermen gereken başvuru yok, yarın olabilir"), vbExclamation, "UYARI"
End If
Bu kodun neresi geliyor ki? Eğer sorgu1'deki sontarih=bugün ise uyarı verecek, değilse "bugün başvuru yok" diyecek. Yani her iki durumda da uyarı vermesi gerekiyor. Sen her zaman ilk uyarıyı mı yoksa else'den sonraki uyarıyı mı aldığını yazmamışsın. Eğer ikinci uyarıyı istemiyorsan kodları
If Dlookup ("sontarih", "sorgu1", "sontarih=Date()") Then
MsgBox ("Bugün yanıt vermen gereken başvuru var, unutma."), vbExclamation, "UYARI"
Else
End If
şeklinde düzenle. Aksi durum söz konusu ise örnek alalım)
İnadına, ille de Accesstr.net...