ما الخطأ هنا في دالة DlookUp مع التاريخ

[ابوخليل]

السلام عليكم

احبتي .. احاول جلب تاريخ من جدول tbl2 بما يماثله من جدول  tbl1 داخل الاستعلام ولكنه لا يستجيب

ايضا حاولت جلبه من خلال رسالة في النموذج ولكنه لا يستجيب

حاولت مرارا وتكرارا .. عجيب جدا .. شروط الدالة صحيحة ، وايضا المكتبات صحيحة

قد تكون المشكلة عندي فقط .. لذا اعرضه عليكم

 

d8.rar

[AbuuAhmed]

قلة تركيز

DLookup_01.accdb

[شايب]

24 دقائق مضت, AbuuAhmed said:

قلة تركيز

ماشاء الله يا ابا احمد 

فكرتي دائما عندما يكون هناك اكثر من معيار يكون سطر لكل معيار اسهل في المراجعة

Dim i As Variant
Dim strWhere As String
strWhere = "[date2] = " & Format(Me.text1, "\#mm/dd/yyyy\#")
strWhere = strWhere & " and [usr_id]='" & [text2] & "'"
i = DLookup("[date2]", "[tbl2]", strWhere)
MsgBox i

الشايب

[ابوخليل]

منذ ساعه, AbuuAhmed said:

قلة تركيز

DLookup_01.accdb 432 kB · 3 downloads

ههههه جبتها بالصميم

أسأل الله حسن الخاتمة .. 

لكن سؤالي هي ان الحقول تاريخ .. وانت حولتها الى رقم .. 

مالسبب من امتناع جلبها كتاريخ .. مع اني كنت دوما استخدم ذاك التعبير ويعمل بشكل صحيح

DLookup("[date2]", "[tbl2]", "[date2] =#" & Me.text1 & "# And [user_id] ='" & Me.text2 & "'")

والحقول فعلا تاريخ وتنسيق الحقول واحد متشابه 

والآن اكتشفت صحة ملاحظتك بعدم التركيز .. فأزيدك من الشعر بيت .. ان اليوزر في الجدولين مختلف

 

 

49 دقائق مضت, شايب said:

ماشاء الله يا ابا احمد 

فكرتي دائما عندما يكون هناك اكثر من معيار يكون سطر لكل معيار اسهل في المراجعة

Dim i As Variant
Dim strWhere As String
strWhere = "[date2] = " & Format(Me.text1, "\#mm/dd/yyyy\#")
strWhere = strWhere & " and [usr_id]='" & [text2] & "'"
i = DLookup("[date2]", "[tbl2]", strWhere)
MsgBox i

الشايب

اهلا باخوي الشايب

هذه اين يكون مكانها في الاستعلام  .. 

اعتقد يمكن عندما نحول هذه الاسطر الى دالة

آمل كرما تشغيل الاستعلام  بهذه  وارفاقه  ..

[شايب]

5 ساعات مضت, ابوخليل said:

هذه اين يكون مكانها في الاستعلام  .. 

انا عملتها وفقا للمثال في النموذج وبالنسبة لي لا افضل استخدام اي من دوال المجال في الاستعلام لانها تجعل الاستعلام بطيء التنفيذ اذا كان عدد السجلات كبير ويمكن الاستغناء عنها باستخدام صلة بين الجدولين في الاستعلام هذا حسب فهمي للامر

اما بالنسبة لاستخدامها في الاستعلام فان الطريقة الاسهل من تحويل الامر الى دالة عن طريق جمع الحقلين مع بعضهما والمعيارين ايضا مع بعض ليكون الامر

    Dim i
    i = DLookup("[date2]", "[tbl2]", "[date2]& [user_id]=#" & Me.text1 & "# &'" & Me.text2 & "'")
    MsgBox i

او استخدام تعديل الاستاذ ابو احمد فهو الافضل

الشايب