Muhterem hocam nasıl çözdüyseniz bilmiyorum ama herhalde kökten çözüm bulmuşsunuz,Avans tutarı,izin tutarı girildiğinde süresi,çalıştığı Gün ve avans tutarına gelmesi gerekiyor,
saygılarımla.

Böyle espiri ile laf sokmak yerine yaptığınız hataları sorgulayın ki sonuca ulaşın. Örneğin;
SÜRE alanı için (Yani Metin47) =([Odeme_tarihi]-[İsebaslama_tarihi]) yazmak yerine =([ODEMETAR]-[ISEBASLAMATAR]) yazmışsınız. Bu şekilde elbette çalışmaz. Burada metin kutularının denetim kaynaklarını değil Metin kutularının gerçek isimlerini kullanırsanız sonuca ulaşırsınız. Ayrıca yukarıda da ima ettiğim üzere nesne isimlerini Metin47 gibi kullanırsanız, iş çorbaya döner, bu nedenle ilgili isimleri vermelisiniz.

Sorununuza gelince; siz belirttiğim bu nesne isimlerini düzgün kullanma problemini giderdiğiniz anda benim sizin örneğinizin Geçerli Olduğunda ve Açıldığında özelliklerine yazdığım;

Dim kaynak As String

kaynak = Dlookup ("[SayKimlik]", "[Sorgu1]")

If kaynak = 0 Then

Forms![frm_PERSONEL]![frm_maashesabı].Form![Avanstoplami].ForeColor = RGB(38, 38, 38)

Forms![frm_PERSONEL]![frm_maashesabı].Form![Suresi].ForeColor = RGB(38, 38, 38)

Forms![frm_PERSONEL]![frm_maashesabı].Form![Metin48].ForeColor = RGB(38, 38, 38)

Else

End If

kodu sayesinde bahsettiğiniz bu üç alanın yazı rengi zemin ile aynı hale gelecek ve böylelikle kayıt olmamasına bağlı olarak meydana gelen #Hata, #Tür vb. yazılardan kurtulmuş olacaksınız. Umarım anlatabilmişimdir.

Yani uzun lafın kısası "nasıl çözdüyseniz bilmiyorum ama herhalde kökten çözüm bulmuşsunuz" şeklinde dalga geçeceğinize olayı anlamaya çalışmalısınız.

Diğer mesajlar taşınmıştır. Sayın yunusotel lütfen sorunuza odaklanalım konuyu dağıtmayın.

Sorum yok sormuş olduğum tüm sorularıda cevaplanmış olarak,taşıyabilirsizin veya çöpe atabilirsiniz,tşk eder,emeği geçen herkese saygılarımı sunarım.

Yanlış bir işlemmi yaptım bilemiyorum ama ben sorunuzu görebiliyorum. Siz göremiyor musunuz?

Hata uyarısı ise çözüldü,başkada sorum yok.