مساعدة بمشكلة الاكسس الاستعلام معقد جدا

[نيموز]

هل من حل لهذه المشكلة ؟
علما الاكواد صحيحة

وهل بالامكان استبدال الاستعلام باكواد فكشن فجوال

ارجو الافادة من الخبراء

صورة للتوضيح

[دروب مبرمج]

بالإمكان الاستغناء عن كل هذا الكم الهائل من الارتباطات 

قم بإنشاء دوال VBA لتسهيل العمل و الحصول على المعلومات من الجداول الاخرى

فمثلا تستطيع استخدام مثل هذه

Public Function GetSetData(Column_Name As Variant, TableName As Variant, WhereValue As Variant)
    GetSetData = DLookup(Column_Name, TableName, WhereValue)
End Function

فهي فهلا تقبل تكرار الاستخدام مع معايير مختلفة

فمثلا للاستخدام

استدعاء رقم المعرف للموظف
GetSetData("[ID]";"[EMPTB]";"[ID]=" & [EMPTB]![ID])

استدعاء اسم الموظف
GetSetData("[EMP_Name]";"[EMPTB]";"[ID]=" & [EMPTB]![ID])

استدعاء البريد الإلكتروني للموظف
GetSetData("[EMP_Email]";"[EMPTB]";"[ID]=" & [EMPTB]![ID])

المختصر بأنه بإستخدام الدوال سوف يصبح عملك اسهل

بإمكانك في المثال اعلاه تثبيت المعطيات الاساسية مثل اسم الجدول و المعيار 

مثال على ذلك

Public Function GetSetData(Column_Name As Variant)
Dim Column_Name As Variant, TableName As Variant
    TableName = "EMPTB"
    WhereValue "[ID]=" & [EMPTB]![ID]
    GetSetData = DLookup(Column_Name, TableName, WhereValue)
End Function

ليصبح استدعاء المعلومة بالطريقة التالية

استدعاء رقم المعرف للموظف
GetSetData("[ID]")

استدعاء اسم الموظف
GetSetData("[EMP_Name]")

استدعاء البريد الإلكتروني للموظف
GetSetData("[EMP_Email]")

فعلا تستطيع تكرار استخدام نفس الدالة بمعايير مختلفة داخل الاستعلام

تم تعديل يوليو 18, 2023 بواسطه دروب مبرمج

[نيموز]

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

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

يعني ما عملت نموذج ولا ازرار حتى يتم استدعاء الاكواد

هل من الممكن استدعاها عن طريق المعايير ام لا

وشكرا لك