اذهب الي المحتوي
أوفيسنا

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


إذهب إلى أفضل إجابة Solved by محمد أبوعبدالله,

الردود الموصى بها

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

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

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

 

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

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

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

التقاط.JPG

الحوادث.accdb

رابط هذا التعليق
شارك

السلام عليكم

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

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

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

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

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

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

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

مثال

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

تحياتي

رابط هذا التعليق
شارك

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

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

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

رابط هذا التعليق
شارك

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

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

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

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

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

رابط هذا التعليق
شارك

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

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

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

 

التقاط.JPG

رابط هذا التعليق
شارك

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

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

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

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

رابط هذا التعليق
شارك

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

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

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

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

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

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

 

 

السائقين.JPG

المعدات.JPG

رابط هذا التعليق
شارك

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

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

 

 

السائقين.JPG

المعدات.JPG

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

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

رابط هذا التعليق
شارك

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

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

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

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

رابط هذا التعليق
شارك

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

تحياتي

  • Like 2
رابط هذا التعليق
شارك

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

تحياتي

 

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

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information