اظهار قيمة من حقلين في نموذج

[Ahmed_J]

السلام عليكم اساتذتي الاعزاء

ارجو التعديل عبى الملف المرفق لغرض اظهار قيمة من الجدول في النموذج الرئيسي عن طريق  الكود 

بحيث عند اختيار   مثلا قيمة الحقل GradeNO1 , A1  يظهر الناتج (910000) و GradeNO2 ,A1 بظهر الناتج (723000) و GradeNO1 , A3 يظهر الناتج (950000) وهكذا

يعني كانه جدول الضرب كماف في الصورة

تحياتي للجميع

Test.accdbFetching info...

تم تعديل يناير 20, 2022 بواسطه Ahmed_J

[أبو عبدالله الحلوانى]

تفضل 

جرب هذا 

كان يجب التعويض في المعادلة بالمتغير لا بقيمته 

 

Test.accdbFetching info...

[Ahmed_J]

استاذي العزيز  الملف لايعمل

[أبو عبدالله الحلوانى]

القيمة يتم جلبها بمجرد كتابة الرقم 1 والنص A1  نمثلا بدون الضغط علي الزر 

جرب ان تكتب بالحقول بدون ان تضغط علي الزر

[Ahmed_J]

استاذ @ أبو عبدالله الحلواني

عاجز عن الشكر  لك

استاذي العزيز الملف يعمل جيدا 

فقط لي طلب آخر

1- ان الكود فيه بطيء في التنفيذ

2- عند تغيير اسم الحقل a1 (المرحلة) الى رقم لماذا لايعمل  لان ملفي الاصلي ارقام ولايظهر الراتب 

وهذه الصورة الحقيقية لشكل الجدول

تحياتي لك

 

Test.accdbFetching info...

تم تعديل يناير 20, 2022 بواسطه Ahmed_J

[Eng.Qassim]

اين هو الراتب ... المفروض يظهر 910000

 

[Ahmed_J]

استاذي العزيز @Eng.Qassim

مرفق ملف الاستاذ ابو عبداللة 

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

واصبح الراتب لايظهر

 

Test.accdbFetching info...

تم تعديل يناير 20, 2022 بواسطه Ahmed_J

[Eng.Qassim]

  في 20‏/1‏/2022 at 19:38, Ahmed_J said:

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

Expand  

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

نصيحتي استاذ احمد .. ولطالما الاستاذ @أبو عبدالله الحلوانىمعك

اعمل نموذج مستمر فيه اسماء عدد من الموظفين وليس نموذج مفرد .. بحيث انك اذا اخترت الدرجة والمرحلة لكل موظف يظهر لك الراتب

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

وسأقوم بمساعدتك ان شاء الله حسبما استطيع من معرفتي ووقتي

[Ahmed_J]

شكرا لك استاذي العزيز @Eng.Qassim

اعتقد ان المشكلة هي في دالة  DLookup

ساعمل بنصيحتك واتمنى اكمال برنامج للرواتب حسب نظامنا المالي  وابسط االاكواد

ولا نسى الشكر للاستاذ @ابوخليل لان اصل الكود له

والاستاذ @د.كاف يار

لكن لسه  لااعرف لماذا عندما اغير اسم الحقل  لايظهر الراتب؟

اتمنى ان اعرف السبب؟؟

تحياتي للجميع

 

تم تعديل يناير 21, 2022 بواسطه Ahmed_J

[Eng.Qassim]

  في 21‏/1‏/2022 at 06:31, Ahmed_J said:

لسه  لااعرف لماذا عندما اغير اسم الحقل  لايظهر الراتب؟

Expand  

اعتقد ان المشكلة في نوع البيانات

لكن طريقة استاذنا ابو خليل تنفعك كثيرا..فقط قم بتغيير التكست بوكس الى كومبوبوكس

 

[Ahmed_J]

المشكلة لسة قائمة

[أبوبسمله]

السلام عليكم

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

  في 20‏/1‏/2022 at 19:14, Ahmed_J said:

2- عند تغيير اسم الحقل a1 (المرحلة) الى رقم لماذا لايعمل  لان ملفي الاصلي ارقام ولايظهر الراتب 

Expand  

من إرشادات لتسمية الحقول وعناصر التحكم والكائنات فى ميكروسوفت

لا يمكنها أن تتضمّن أحرف تحكم (قيم ASCII من 0 إلى 31).

واليك الرابط

https://support.microsoft.com/ar-sa/office/إرشادات-لتسمية-الحقول-وعناصر-التحكم-والكائنات-120c27fa-7ae1-4182-9baa-dbd183179cc3

هذا والله اعلى واعلم

بالتوفيق

 

[Ahmed_J]

شكرا لك استاذي العزيز @الفلاحجى

معقولة الاكسس  الحلو مابيكمل

لابد من حيلة ما لاكمال الحل؟؟؟

تم تعديل يناير 21, 2022 بواسطه Ahmed_J

[أبو عبدالله الحلوانى]

  في 21‏/1‏/2022 at 16:39, الفلاحجى said:

من إرشادات لتسمية الحقول وعناصر التحكم والكائنات فى ميكروسوفت

لا يمكنها أن تتضمّن أحرف تحكم (قيم ASCII من 0 إلى 31).

Expand  

جزاك الله خيرا علي المعلومة الهامة والمفيدة 

وعودا الي استاذنا احمد

  في 21‏/1‏/2022 at 18:46, Ahmed_J said:

معقولة الاكسس  الحلو مابيكمل

لابد من حيلة ما لاكمال الحل؟؟؟

Expand  

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

[Eng.Qassim]

  في 21‏/1‏/2022 at 18:56, أبو عبدالله الحلوانى said:

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

Expand  

 

عن اذن استاذ احمد

المشكلة .. ان استاذ احمد لا يريد ان تظهر في (المرحلة) = A1  وانما 1 وهكذا

 

[أبو عبدالله الحلوانى]

  في 21‏/1‏/2022 at 19:39, Eng.Qassim said:

المشكلة .. ان استاذ احمد لا يريد ان تظهر في (المرحلة) = A1  وانما 1 وهكذا

Expand  

ان كانت هذه هي المشكلة فحلها بسيط للغاية ان شاء الله

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

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

 Public Function Subsalary(GradeNumber As Byte, RankNumber As Byte) As Double
    Subsalary = Nz(DLookup("A" & RankNumber, "Degree", "GradeNO=" & GradeNumber), 0)
 End Function

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

Test (1).accdbFetching info...

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

[Ahmed_J]

السلام عليكم استاذ @أبو عبدالله الحلوانى استاذ @Eng.Qassim لتواصلك معي دائما

جزاكم الله خير الجزاء 

بصراحة لم اكن اتصور  ان كود بهذه البساطة يستطيع ان يجلب قيمة من كل هذه الحقول بدالة (DLookup)

  في 21‏/1‏/2022 at 18:56, أبو عبدالله الحلوانى said:

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

Expand  

1- بالنسبة لسؤالك استاذ  لماذا ارقام ؟؟ لانه  سلم الرواتب للموظفين في تظامنا المالي بهذه الطريقة (الارقام)

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

2- اذا كان نظام الاكسس لايقبل  بتسمية الحقول بارقام ؟ اوكي طريقتك هي الحل الانسب لي

3- واجهتني مشكلة اخرى بسيطة عن اضافة سجل جديد يظهر في حقل الراتب خطا (النوع) كما في الصورة

 

تم تعديل يناير 22, 2022 بواسطه Ahmed_J

[Ahmed_J]

up