السلام عليكم و رحمة الله و بركاته
في قاعدة بيانات لدي عملية متكررة كما هو مبين ادناه فكيف اجمعها كلها في وظيفة بحيث اذا اردت التعديل اعدل في الوظيفة مرة واحدة و دون الحاجة لتكرار التعديل في كل موقع تكون فيه العملية فيما لو لم تكون في وظيفة
هذه هي العمليات
اقتباسPrivate Sub Ctl_2_Exit(Cancel As Integer)[total] = [6] + [0] + [1] + [2] + [3] + [4] + [5]
[tot1] = [6] + [total]
[tot2] = ([total] + [7]) * [8]
[mony1] = ([6] + [total]) * [price]
[mony2] = [price] * ([total] + [7]) * [8]
[mony1_txt] = NoToTxt([mony1], "ÏíäÇÑ", "ÝáÓ") & " ÝÞØ "
[mony2_txt] = NoToTxt([mony2], "ÏíäÇÑ", "ÝáÓ") & " ÝÞØ "
End Sub
بالنسبة للعملة لانها باللغة العربية فهي باحرف غير مفهومة و يمكن تعديلها عند اضافتها في الكود
و حاولت البحث و قمت بالتالي و لا ادري هل ما قمت به صحيح ام لا و الى هنا كيف يمكن تكراره في اي موقع تلزم به هذه الوظيفة فهذا لم اعرفه
() Function calc
[total] = [6] + [0] + [1] + [2] + [3] + [4] + [5]
[tot1] = [6] + [total]
[tot2] = ([total] + [7]) * [8]
[mony1] = ([6] + [total]) * [price]
[mony2] = [price] * ([total] + [7]) * [8]
[mony1_txt] = NoToTxt([mony1], "I"i'a"C,N~", "Y'a'O'") & " Y]
[mony2_txt] = NoToTxt([mony2], "I"i'a"C,N~", "Y'a'O'") & " Y]
End Function
و بارك الله بكم جميعا