السلام عليكم اخوانى
لدى مشكلة مع متغير ومعادلة ودالة عامة ملخصة فى الاتى لدى نموذج به حقول كثيرة وجميعهم بهم نفس الدالة واذا اردت التعديل فيمر التعديل عليهم جميعاً والكود طويل ففكرت فى انشاء دالة عاملة استدعيها وقت ما اشاء فيوجد قيمة مرجعيه لحقل فقمت بعمل استدعاى كالتالى :
Dim Sub_Manth_Casher_V as string
Sub_Manth_Casher_V = "[Forms]![Cus_Sub]![Y2017]" & "![" & Boxname & "_Casher]"
ولاننى اريد هذا المتغير فى استعلام تحديث والاستعلامات لا تدعم المتغيرات فقمت بعمل وحدة نمطية كالاتي :
Public Function Sub_Manth_Casher() As String
Sub_Manth_Casher = Sub_Manth_Casher_V
End Function
ووضعت اسم الداله فى الاستعلام فتكون النتيجة فى الجدول كالتالى :
[Forms]![Cus_Sub]![Y2017]![Jan_Casher]
فهل لها حل
New Microsoft Access Database.zip