bahsettiğiniz talebinize yönelik olarak;
ilgili kod satırını aşağıdaki ile değiştiriniz.
Kod:
Dim T3_nkl_giriscal_sur As Integer
T3_nkl_giriscal_sur = Dlookup ("[cal_sur]", "T3_nkl_giris", "[dos_no]='" & [dos_no] & "'")
Me.yeni_cal_sur = T3_nkl_giriscal_sur - Me.clst_gun_say + Me.rpr_gun_say
eğer kullanılmak istenen kriter alanı bir SAYI veri türünde ise,
Kod:
"[dos_no]=" & [dos_no]
Kod:
"[dos_no]='" & [dos_no] & "'"