مساعدة في دالة DLookup

[أحمد وجيه]

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

 عند ادخال الرقم الوظيفي في نموذج الحادث يتم استكمال البيانات الخاصة بالموظف (الاسم ، رقم الهوية ، الجنسية ، نوع الرخصة ، انتهاء الرخصة)

وعند ادخال رقم اللوحة في نموذج الحادث يتم استكمال البيانات الخاصة بالمعدة (الحروف ، سنة الصنع ، الشاسيه ، النوع ، المالك ، المشروع ، شركة التأمين ، انتهاء التأمين ، انتهاء الاستمارة)

 

كما أريد في نموذج الحادث في خانة رقم الحادث أن يبدأ أول حادث بالسنة ثم 0001 مثال :

الحادث الأول 20210001

الحادث الثاني 20210002

الحوادث.accdb

[محمد أبوعبدالله]

السلام عليكم

يمكن استخدام دالة DLookup بالشكل التالي

اذا كان معيار جلب البيانات رقم

=DLookup("[text1]"; "[table]"; "[N] =" & me.N)

اذا كان معيار جلب البيانات نص

=DLookup("[text1]"; "[table]"; "[N] ='" & me.N & "'")

علماً بأن text1 هو المطلوب جلب بياناته

N هو المعيار او سيتم جلب البيانات بناءاً عليه

مثال

=DLookup("[رقم_نجم]"; "[الحادث]"; "[رقم_الحادث] =" & me.رقم_الحادث)

تحياتي

[husamwahab]

مشاركة مع استاذي العزيز محمد أبوعبدالله

 

 

asd.rar

[أحمد وجيه]

جزاكم الله خيرا على مساعدتكم

الا أنه مازالت مازالت المشكلة قائمة عند تغيير رقم اللوحة لا تتغير بيانات المعدة  (الحروف ، سنة الصنع ، الشاسيه ، النوع ، المالك ، المشروع ، شركة التأمين ، انتهاء التأمين ، انتهاء الاستمارة)

‏‏الحوادث - نسخة.accdb

[Eng.Qassim]

10 minutes ago, أحمد وجيه said:

جزاكم الله خيرا على مساعدتكم

الا أنه مازالت مازالت المشكلة قائمة عند تغيير رقم اللوحة لا تتغير بيانات المعدة  (الحروف ، سنة الصنع ، الشاسيه ، النوع ، المالك ، المشروع ، شركة التأمين ، انتهاء التأمين ، انتهاء الاستمارة)

‏‏الحوادث - نسخة.accdb 1.05 MB · 0 downloads

الرجاء منك ان تدخل بعض البيانات حتى نرى ماهية المشكلة 

[أحمد وجيه]

1 دقيقه مضت, Eng.Qassim said:

الرجاء منك ان تدخل بعض البيانات حتى نرى ماهية المشكلة 

عند فتح نموذج الحادث ثم محاولة تغيير رقم اللوحة من القائمة لأي رقم آخر من المفترض ان تتغير باقي بيانات المعدة ، الا انها لا تتغير مهما غيرت رقم اللوحة

 

[Eng.Qassim]

مو معقولة اخي .. انا شفت كود الاستاذ محمد ابو عبد الله وهو استاذي

ميخرش المية   على قول اخوتنا المصريين ...

ادخل عدد من البيانات وارسل الملف ...

مايكون خاطرك الا طيب

[أحمد وجيه]

1 دقيقه مضت, Eng.Qassim said:

مو معقولة اخي .. انا شفت كود الاستاذ محمد ابو عبد الله وهو استاذي

ميخرش المية   على قول اخوتنا المصريين ...

ادخل عدد من البيانات وارسل الملف ...

مايكون خاطرك الا طيب

الملف به فعلا العديد من البيانات داخل الجداول ، والكود يعمل بطريقة جيدة في حقل الرقم الوظيفي فعند تغييره تتغير كل بيانات الموظف لكن للأسف لايعمل في حقل رقم اللوحة

 

 

[Eng.Qassim]

5 minutes ago, أحمد وجيه said:

الملف به فعلا العديد من البيانات داخل الجداول ، والكود يعمل بطريقة جيدة في حقل الرقم الوظيفي فعند تغييره تتغير كل بيانات الموظف لكن للأسف لايعمل في حقل رقم اللوحة

 

 

وين المشكلة الله هداك

عندما تغير رقم اللوحة تتغير عندك البيانات

[أحمد وجيه]

4 دقائق مضت, Eng.Qassim said:

وين المشكلة الله هداك

عندما تغير رقم اللوحة تتغير عندك البيانات

للأسف ما تتغير مهما غيرت رقم اللوحة فقط يتغير الرقم وتظل باقي بيانات المعدة كما هي بدون اي تغيير راجع تاني وبتلاحظاها

[Eng.Qassim]

2 minutes ago, أحمد وجيه said:

للأسف ما تتغير مهما غيرت رقم اللوحة فقط يتغير الرقم وتظل باقي بيانات المعدة كما هي بدون اي تغيير راجع تاني وبتلاحظاها

بكرى سأكون معك ولدي احمد .. فالوقت تأخر عندنا في بغداد وسأخلد للنوم

[أحمد وجيه]

ان شاء الله

[أحمد وجيه]

للرفع

[أحمد وجيه]

للمساعدة

[محمد أبوعبدالله]

السلام عليكم

جرب التعديل التالي

Private Sub رقم_اللوحة_Click()
        X1 = Nz(DLookup("[الحروف] & '|' & [المصنع] & '|' & [الشاسيه] & '|' & [نوع_المعدة] & '|' & [المالك] & '|' & [المشروع] & '|' & [شركة_التأمين] & '|' & [انتهاء_الاستمارة] & '|' & [المالك]", "المعدات", "[رقم _اللوحة]=" & Me.رقم_اللوحة), "|||||||||")
        
        X3 = Split(X1, "|")
                                         
        Me.الحروف = X3(0)
        Me.المصنع = X3(1)
        Me.الشاسيه = X3(2)
        Me.نوع_المعدة = X3(3)
        Me.المالك = X3(4)
        Me.المشروع = X3(5)
        Me.شركة_التأمين = X3(6)
        Me.انتهاء_الاستمارة = X3(7)
        Me.المالك = X3(8)
        
End Sub

تحياتي

[أحمد وجيه]

1 ساعه مضت, محمد أبوعبدالله said:

السلام عليكم

جرب التعديل التالي

Private Sub رقم_اللوحة_Click()
        X1 = Nz(DLookup("[الحروف] & '|' & [المصنع] & '|' & [الشاسيه] & '|' & [نوع_المعدة] & '|' & [المالك] & '|' & [المشروع] & '|' & [شركة_التأمين] & '|' & [انتهاء_الاستمارة] & '|' & [المالك]", "المعدات", "[رقم _اللوحة]=" & Me.رقم_اللوحة), "|||||||||")
        
        X3 = Split(X1, "|")
                                         
        Me.الحروف = X3(0)
        Me.المصنع = X3(1)
        Me.الشاسيه = X3(2)
        Me.نوع_المعدة = X3(3)
        Me.المالك = X3(4)
        Me.المشروع = X3(5)
        Me.شركة_التأمين = X3(6)
        Me.انتهاء_الاستمارة = X3(7)
        Me.المالك = X3(8)
        
End Sub

تحياتي

 

يعطيك ألف عافية أخي الكريم