مشكلة مع متغير وقيمة حقل بنموذج

[king5star]

السلام عليكم اخوانى

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

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

تم تعديل مارس 26, 2018 بواسطه king5star

[AlwaZeeR]

تفضل

Dim strFrm1 As String, strFrm2 As String
strFrm1 = "Cus_Sub"
strFrm2 = "Y2017"

Sub_Manth_Casher_V = Forms(strFrm1)(strFrm2)(Boxname) & "_Casher"
DoCmd.RunSQL "INSERT INTO Test ( Test ) SELECT Sub_Manth_Casher() AS Expr1 ;"

 

waztest.rar

[king5star]

52 دقائق مضت, AlwaZeeR said:

تفضل

Dim strFrm1 As String, strFrm2 As String
strFrm1 = "Cus_Sub"
strFrm2 = "Y2017"

Sub_Manth_Casher_V = Forms(strFrm1)(strFrm2)(Boxname) & "_Casher"
DoCmd.RunSQL "INSERT INTO Test ( Test ) SELECT Sub_Manth_Casher() AS Expr1 ;"

 

waztest.rar

تسلم ايدك اخى عمل وكل شئ تمام بارك الله فيك ورحم والديك .