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.