مشکل در تابع DLookup

[Amin.del]

Result5 = DLookup("[mandemor]", "kol morkhasi", "[kodmeli] = " & Me.kod
Me.mandemork = Result5
من میخواستم در این فرمول خط اول در صورتی که مقدار آن خالی باشد صفر بزاره ممنون میشم راهنمایی کنید

[Amin.del]

در فرمول بالایی وقتی من کد رو انتخاب میکنم مقدار مورد نظر رو فراخوانی میکنه حال اگه یه شرط دیگه ای بجز کد ملی داشته باشم (شرط سال) کد رو چجوری بنویسم بهتر بگم با این کد موقه انتخاب کد ملی هر نفر مانده وام نفر رو نشون میده حال اگر مانده وام با دو شرط 1-کد ملی نفر و 2 -سال مورد نظر باشه چجوری میشه کد رو نوشت

[Amin.del]

کل دستور اینطوریه
Private Sub kod_AfterUpdate()
Dim Result1, Result2, Result3, Result4, Result5 As Variant
If IsNull(Me.kod) Or Me.kod = "" Then
MsgBox "کد پرسنلي وارد نشده است", vbExclamation + vbMsgBoxRight, "هشدار"
Exit Sub
Else
Result1 = DLookup("[hsabet]", "PERSENEL", "[kodmeli] = " & Me.kod)
Result2 = DLookup("[name]", "PERSENEL", "[kodmeli] = " & Me.kod)
Result3 = DLookup("[mandemos]", "kol aghsat", "[kodmeli] = " & Me.kod)
Result4 = DLookup("[expr1]", "kol aghsat", "[kodmeli] = " & Me.kod)
Result5 = DLookup("[mandemor]", "kol morkhasi", "[kodmeli] = " & Me.kod)

If IsNull(Result1) And IsNull(Result2) Then
MsgBox "براي اين کُد اطلاعاتي موجود نيست", vbInformation + vbMsgBoxRight, "اطلاعات"


Exit Sub
Else
Me.HOGH = Result1
Me.name1 = Result2
Me.mmos = Result3
Me.kmo = Result4
Me.mandemork = Result5
rozkarkard.SetFocus
End If
End If
End Sub

[mohammadsaleh]

دوست عزيز . به نظرم شما اگه همين كدها رو به صورت يك نمونه بگذاريد دوستان براي كمك به شما راغب تر خواهند بود. چرا كه حداقل شما جداول و فرم رو داريد و دوستان نياز به طراحي مجدد كار ندارند