احضار اسم الشخص من رقم التليفون من جدول أخر DLookUp

[محمد احمد لطفى]

أعمل بهذا الكود لاحضار اسم الشخص  

=Nz(DLookUp("Namex";"[Tel T]";"[Tel 1]='" & [تليفون] & "'");"")

و لكن اذا كان [Tel 1] لا يساوى  رقم التليفون اريد يذهب الى  [Tel 2] واذا كان نفس الرقم يحضر الاسم 

وجزاكم الله خيراً

تم تعديل نوفمبر 30, 2022 بواسطه محمد احمد لطفى

[Ahmed.IQ]

استخدم شرط التحقق قبل الدخول والبحث عن طريق if

if Dcount("Namex";"[Tel T]";"[Tel 1]='" & [تليفون] & "'")>=1 then
Nz(DLookUp("Namex";"[Tel T]";"[Tel 1]='" & [تليفون] & "'");"")
elseif Dcount("Namex";"[Tel T]";"[Tel 2]='" & [تليفون] & "'")>=1 then
Nz(DLookUp("Namex";"[Tel T]";"[Tel 2]='" & [تليفون] & "'");"")
else
msgbox "الرقم غير مضاف"
endif

 

[محمد احمد لطفى]

أستاذى @Ahmed.IQ

ممكن لو سمحت طريقة كتابة الكود فى مربع نص

وجزاك الله خيرا

[متقاعد]

3 ساعات مضت, محمد احمد لطفى said:

و لكن اذا كان [Tel 1] لا يساوى  رقم التليفون اريد يذهب الى  [Tel 2] واذا كان نفس الرقم يحضر الاسم 

تقصد انه عندك جدول يحتوي على اسماء وارقام هواتف وبعض الاسماء لديهم اكثر من تلفون فممكن يكون الرقم مسجل في حقل tel1 وممكن يكون الرقم في حقل tel2

وعندما تضع رقم الهاتف ترغب ان يبحث عنه في الحقلين

اذا كان فهمي صحيح للموضوع

ممكن عملها مع تبديل مايلزم

=DLookUp("[s_name]";"tbl_2";"[tel1]&[tel2] like '*" & [tx2] & "*'")

☝️هذا الاستخدام للدالة بمعيار حقلين في الجدول شرحه استاذنا @أبو إبراهيم الغامدي في هذا الموضوع ⬇️

اقتباس

 

تحياتي

[محمد احمد لطفى]

أستاذى @مبرمج متقاعد

هناك مشكلة صغيرة فى حالة وجود رقم تليفون غير موجود فى الجدول التانى فى  tel1 و أو tel2   , أو رقم التلفون فى النموذج فارغ بيجيب اى اسم شخص من الجدول 

حتى بعد تغييره الى 

 

=Nz(DLookUp("[Namex]";"Tel T";"[Tel 1]&[Tel 2] like '*" & [تليفون] & "*'");"")

 

تم تعديل نوفمبر 30, 2022 بواسطه محمد احمد لطفى

[Ahmed.IQ]

لدي سؤال هل tel 1  و tel 2 في نفس الجدول ؟

[محمد احمد لطفى]

نعم فى نفس الجدول 

والكود يعمل 

=Nz(DLookUp("[Namex]";"Tel T";"[Tel 1]&[Tel 2] like '*" & [تليفون] & "*'");"")

 

بس فى حالة وجود رقم تليفون غير موجود فى الجدول التانى فى  tel1 و أو tel2   , أو رقم التلفون فى النموذج فارغ بيجيب اى اسم شخص من الجدول

تم اضافة مرفق

 

test00654.rar

تم تعديل ديسمبر 1, 2022 بواسطه محمد احمد لطفى

[متقاعد]

44 دقائق مضت, محمد احمد لطفى said:

بس فى حالة وجود رقم تليفون غير موجود فى الجدول التانى فى  tel1 و أو tel2   , أو رقم التلفون فى النموذج فارغ بيجيب اى اسم شخص من الجدول

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

في 22‏/11‏/2022 at 23:38, مبرمج متقاعد said:

اعتقد استاذ ابو ابراهيم ان استخدام النجمة مع دالة DLookup امر قد يؤدي الى اعادة نتيجة عير صحيحة

والسبب ان هذه الدالة ترجع قيمة حقل واحد استنادا إلى المعلومات المحددة في المعايير فاذا وجدت القيمة في اكثر من حقل ترجع القيمة الاولى

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

لذا

44 دقائق مضت, محمد احمد لطفى said:

بس فى حالة وجود رقم تليفون غير موجود فى الجدول التانى فى  tel1 و أو tel2

تأكد من ادخال الرقم كاملا وليس جزء منه بسبب ان النجمة في بداية المعيار ونهايتة تمثل الارقام الغير معروفة

44 دقائق مضت, محمد احمد لطفى said:

أو رقم التلفون فى النموذج فارغ بيجيب اى اسم شخص من الجدول

ممكن وضع شرط اذا لم يكن الحقل فارغ قبل تنفيذ الدالة

=IIf(Not IsNull([tx2]);DLookUp("[s_name]";"tbl_2";"[tel1]&[tel2] like '*" & [tx2] & "*'");"")

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

تحياتي

[محمد احمد لطفى]

أستاذى @مبرمج متقاعد

أستاذى @Ahmed.IQ

جزالكl الله كل خير

تم تعديل ديسمبر 1, 2022 بواسطه محمد احمد لطفى

[Ahmed.IQ]

الكود الي كتبته كالتالي في الاستعلام 

DLookUp("[Namex]","Tel T","[Tel 1] = '" & [tel] & "' or [Tel 2] = '" & [tel] & "'")

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

test00654 new one.rar