دالة دي لوك اب DLoockup

[العبيدي رعد]

السلام  عليكم

لدي  المعادلة  التالية  لاستخراج  رقم  المقترض (num)    من  الجدول  الذي   karz   من خلال  ظهور اسم المستلم  nam   من  كومبو بوكس  com1

Me.n2 = DLookup("[num]", "karz", "nam = '" & Me.com1 & "'")

حيث  لايظهر  ارقام  البعض  عند  ادراج  اسم  المقترض

[Foksh]

وعليكم السلام ورحمة الله وبركاته ..

ارفق ملف أخي الكريم ( وهذا مهم جداً ) ، وكمحاولة جرب التعديل البسيط التالي :-
 

Me.n2 = DLookup("[num]", "karz", "nam LIKE '*" & Me.com1 & "*'")

سيبحث التعديل السابق عن أي جزء من النص ، وبالتالي قد يكون أكثر دقة إذا كانت هناك تباينات في الكتابة أو أخطاء بسيطة في البيانات .

[العبيدي رعد]

السلام  عليكم  استاذنا  الفاضل

اشكر  تفاعلك  معي

ارفق لكم  البرنامج  وحذفت  منه  معلومات  لكونه  كبير

في  فورم  kabz  تسديد قروض  الموظفين   عند  ادخال  اسم  الموظف  قسم  يظهر رقم  الموظف  وقسم  لايظهر
الكود  في  حدث بعد التحديث لكومبو بوكس   com1  اسم  الموظف

القرضة الحسنة اصدار 31.rar

[Foksh]

وعليكم السلام ورحمة الله وبركاته ,,

 

اخي الكريم انت استخدمت الدالة DLookup لجلب رقم المقترض ( على ما أعتقد ) بناءً على اسم الموظف في الكومبوبوكس ، هل هذا صحيح ؟؟

وبإمكانك بدلاً من ذلك استخدام نفس مصدر الكومبوبوكس com1 ولكن هنا سنختار العمود رقم 2 حيث :-

( العمود 0 = اسم الموظف ، والعمود 1 = الجهة ، والعمود 2 = رقم المقترض ) ،

لذا تم استبدال الجملة التالية :-

Me.n2 = DLookup("[num]", "karz", "nam LIKE '*" & Me.com1 & "*'")

بالجملة :-

Me.n2 = com1.Column(2)

أيضاً تم إجراء تعديل بسيط على عدد الأعمدة في الكومبوبوكس com1 وعرض كل عمود ؛ كما في الصورة :-

 

الملف بعد التعديل

القرضة الحسنة اصدار 31.zip

تم تعديل أكتوبر 10 بواسطه Foksh

[عاشق_الرقي]

ماشاء الله تبارك الرحمن

جعله ذلك في ميزان حسناتك استاذ Foksh  رد وتجاوب واقتراح

[hanan_ms]

❤️🌹

تم تعديل أكتوبر 10 بواسطه hanan_ms

[العبيدي رعد]

في 10‏/10‏/2024 at 14:22, Foksh said:

وعليكم السلام ورحمة الله وبركاته ,,

 

اخي الكريم انت استخدمت الدالة DLookup لجلب رقم المقترض ( على ما أعتقد ) بناءً على اسم الموظف في الكومبوبوكس ، هل هذا صحيح ؟؟

وبإمكانك بدلاً من ذلك استخدام نفس مصدر الكومبوبوكس com1 ولكن هنا سنختار العمود رقم 2 حيث :-

( العمود 0 = اسم الموظف ، والعمود 1 = الجهة ، والعمود 2 = رقم المقترض ) ،

لذا تم استبدال الجملة التالية :-

Me.n2 = DLookup("[num]", "karz", "nam LIKE '*" & Me.com1 & "*'")

بالجملة :-

Me.n2 = com1.Column(2)

أيضاً تم إجراء تعديل بسيط على عدد الأعمدة في الكومبوبوكس com1 وعرض كل عمود ؛ كما في الصورة :-

 

الملف بعد التعديل

القرضة الحسنة اصدار 31.zip

جزيل الشكر والامتنان  استاذنا  الفاضل   جعله الله تعالى  في ميزان  حسناتكم