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

تعديل كود الوحدة النمطية


Ahmed_J
إذهب إلى أفضل إجابة Solved by Barna,

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

  • السلام عليكم
  • لدي قاعدة بيانات الموظفين فيها نموذج مرتبط بجدول  وقائمة منسدله تحتوي على المهن المختلفة للموظفين
  •  اريد حساب المرتب بصورة تلقائية الموجود بالوحدة النمطية  (Salary) من خلال استدعائها بالنموذج  عن طريق القائمة المنسدلة (المهنة)  في النموذج ويظهر المرتب في حقل الراتب
  • علما بان لدي في الملف الاصلي  اكثر من نموذج وجدول كلهم يعتمد على هذه الوحدةو النمطية
  • مع كل الشكر والتقدير لكم 

test.rar

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

  • أفضل إجابة

ضع هذا في المديول

Function salary1(frm As String)

If Forms(frm)!المهنة = "طبيب" Then
    Forms(frm)!الراتب = 10000

ElseIf Forms(frm)!المهنة = "مهندس" Then
    Forms(frm)!الراتب = 9000

ElseIf Forms(frm)!المهنة = "صيدلي" Then
    Forms(frm)!الراتب = 8000

ElseIf Forms(frm)!المهنة = "معاون طبيب" Then
    Forms(frm)!الراتب = 7000

 ElseIf Forms(frm)!المهنة = "معاون مهندي" Then
    Forms(frm)!الراتب = 6000

ElseIf Forms(frm)!المهنة = "" Then
    Forms(frm)!الراتب = 0
End If

End Function

استدعيه من النموذج بهذا الكود

Call salary1(Me.Name)
DoCmd.RefreshRecord

 

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

السلام عليكم

استاذي العزيز @Barna شكرا لك الكود يعمل لدي بصورة جيده 

لكن واجهتني مشكله لااجد لها حلا وهي عند تغيير بيانات حقل معين لايتم تحديث تحديث البيانات  الا لو قمت باغلاق وفتح النموذج من جديد ؟؟؟؟

وكمان لدي سؤال اخر  كيف يتم استدعاء الوحدة النمطية (Function salary1(frm As String) من خلال الاستعلام

وشكر لك 

 

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

49 دقائق مضت, Ahmed_J said:

لكن واجهتني مشكله لااجد لها حلا وهي عند تغيير بيانات حقل معين لايتم تحديث تحديث البيانات  الا لو قمت باغلاق وفتح النموذج من جديد ؟؟؟؟

انظر المرفق ......

50 دقائق مضت, Ahmed_J said:

وكمان لدي سؤال اخر  كيف يتم استدعاء الوحدة النمطية (Function salary1(frm As String) من خلال الاستعلام

ما هو الداعي لاستخدامها في الاستعلام ( الراتب مسجل في الجدول ) انشئ الاستعلام من الجدول مباشرة أنظر الاستعلام في المرفق ....


 

test (8).accdb

  • Like 3
  • Thanks 1
رابط هذا التعليق
شارك

استاذي العزيز @Barna

السلام عليكم

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

وكمان  عند تغيير بيانات حقل معين لايتم تحديث البيانات  الا لو قمت باغلاق وفتح النموذج من جديد ؟؟؟؟

وشكرا لتعاونك معي

ربي يحفظك ويخليك

تم تعديل بواسطه Ahmed_J
رابط هذا التعليق
شارك

منذ ساعه, Ahmed_J said:

استاذي العزيز @Barna

السلام عليكم

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

وكمان  عند تغيير بيانات حقل معين لايتم تحديث البيانات  الا لو قمت باغلاق وفتح النموذج من جديد ؟؟؟؟

وشكرا لتعاونك معي

ربي يحفظك ويخليك

هناك اكثر من طريقة لعمل ذلك وهذه واحدة منها ..... افتح الاستعلام ولاحظ ....

 

test (8) (1).accdb

  • Like 4
  • Thanks 1
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

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

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

Important Information