داله عدم التكرار بشرطين

[king5star]

السلام عليكم اخوانى لدي مشكلة فى داله عدم التكرار وكانت توجد داله وضعها استاذ شيفان وكان نصها

Dim nTikrar As Integer

nTikrar = DCount("[Cus_Nump]", "Cus_Enter","[Cus_Nump]=" & Me.Cus_Nump & " And [Date_Enter] = #" & Date & "#")

ولكنها لا تعمل معى إلا بعد ازاله هذا الشرط

" And [Date_Enter] = #" & Date & "#"

غير ذلك لا تعمل فهل لها حل او طريقة اخري .

[عبد الفتاح كيرة]

استخدم formate

قبل حقل التاريخ

[king5star]

الان, عبد الفتاح كيرة said:

استخدم formate

قبل حقل التاريخ

ممكن توضح لى اكثر استاذ عبد الفتاح

[عبد الفتاح كيرة]

" And [Date_Enter] =format( #" & Date & ",'yyyy/mm/dd'#"

[king5star]

16 دقائق مضت, عبد الفتاح كيرة said:

" And [Date_Enter] =format( #" & Date & ",'yyyy/mm/dd'#"

لم تعمل وهذا هو التعديل

nTikrar = DCount("[Cus_Nump]", "Cus_Enter", "[Cus_Nump]=" & Me.Cus_Nump & " And [Date_Enter] = format(#" & Date & ",'yyyy/mm/dd'#")

وجربت ايضاً

nTikrar = DCount("[Cus_Nump]", "Cus_Enter", "[Cus_Nump]=" & Me.Cus_Nump & " And [Date_Enter] = format(#" & Date & ",'dd/mm/yyyy'#")

وقمت بكتابة التنسيق فى الجدول و الحقل بالنموذج

[Shivan Rekany]

جرب هذا 

" And [Date_Enter]=#" & format(date,"yyyy/mm/dd") & "#"

والا ارفق نسخة مصغرة من قاعدة بياناتك لعمل عليها
ملاحظة : تقدر تغير دات باسم مربع نصي لديك

تقبل تحياتي

[king5star]

1 دقيقه مضت, Shivan Rekany said:

جرب هذا 

" And [Date_Enter]=#" & format(date,"yyyy/mm/dd") & "#"

والا ارفق نسخة مصغرة من قاعدة بياناتك لعمل عليها
ملاحظة : تقدر تغير دات باسم مربع نصي لديك

تقبل تحياتي

شكراً اخى شيفان ولم تعمل معي هذه ايضاً ولكنها عملت بهذا الكود

nTikrar = DCount("[Cus_Nump]", "Cus_Enter", "[Cus_Nump]=" & Me.Cus_Nump & " And [Date_Enter] = forms![Cus_Enter]![Date_Enter]")