dlookup با سه شرط

[ngpsa_900]

با سلام در برنامه ام با استفاده از dlookupمی خواهم تکراری بودن رکورد را براساس سه فیلددر سابفرم که اگر این سه فیلد با هم تکراری باشد آنرا مشخص کند (دو فیلد عددی و فیلد سوم متنی)است. لطفا مرا راهنمایی فرمایید

[Abbas Amiri]

از الگوی زیر میتوانید استفاده کنید

    If DCount("*", "MyTable", "Field1=" & field1 & " AND Field2=" & Field2 & " AND Field3='" & Field3 & "'") Then

        ' Type your code

    End If

[ngpsa_900]

با تشکر
متاسفانه با قرار دادن کدهای بالا در برنامه خطای Type mismatch رو می ده (البته من از dlookup) برای کنترل رکوردها استفاده کردم (در after update فیلد saat

[Abbas Amiri]

باید از DCount استفاده کنید. در عبارات If مقدارموردمقایسه پیش فرض ، منطقی( عددی) است نه رشته

[ngpsa_900]

ممکنه کمی بیشتر توضیح بدید

[Abbas Amiri]

زمانی که شما عبارت If expression Then را بکار میبرید یعنی بدون <،>،= و .... و آنرا باچیزی مقایسه نمیکنید در اینحالت اگر مقدار expression قابل تبدیل به نوع Boolean نباشد خطای عدم تطبیق روی خواهد داد.
در عبارتی هم که شما بکار برده اید اگر سعی در تبدیل عبارت به نوع بولین کنید این خطا رخ خواهد داد

[ARData]

XD=Dlookup("[FldX]","TblX","[FldA]=" & Me.FldOnForm1 & "And [FldB]=" & Me.FldOnForm2 & "And [FldC]=" & Me.FldOnForm3)

در صورت رشته اي بودن هر يک از مقادير ، مثلا FldB از فرمول زير مي توان کمک گرفت :

XD=Dlookup("[FldX]","TblX","[FldA]=" & Me.FldOnForm1 & "And  [FldB]=" & "'" & Me.FldOnForm2 & "'" & "And [FldC]=" &  Me.FldOnForm3)