uygulamanız kısa süreli imkan dahilinde incelenmesi sonucunda,
bahsettiğiniz talebinize yönelik olarak;
Kod:
KayitVarMi = Nz(DLookup("GUNID", "T_GUNLER", "TARIH= #" & Format(GYemekTarihi, "mm\/dd\/yyyy") & "# And [PERSONELID]= " & rs2!PERSONEID & " And [NERDEN] ='" & rs2!NERDEN & "'"), 0)
fakat,bu kodun dahil olduğu kod bloğunda IF Fonksiyonu satırında yazılı şart gerçekleşmediğinde ELSE olarak yapılacak işlemlerinde yazılması gerekmektedir ki şart uygun değilse bunlar da sağlanabilsin.
bilginize...iyi çalışmalar,saygılar