عمر ضاحى قام بنشر أغسطس 27, 2021 قام بنشر أغسطس 27, 2021 عندي حقل سوف اضع به عدد الايام وليكن اسمه txtDays وعندي قائمة اختار منها الشهر وهو هيكون بتنسيق اسم ورقم مثل شهر 1 شهر 2 شهر 3 وليكن اسمه cbList1 وعندي حقل اخر به الراتب ولكين اسمه txtSalary انا اريد ان لما اكتب فى حقل الايام قيمة واختار الشهر يحسب ليى المبلغ مثل عدد ايام 14 يوم شهر 3 الراتب 1900 لما يحسب يشوف رقم الشهر عدد ايامه كام شهر 3 يعنى شهر مارس عدد الايام 31 يوم =1900/31*14=858 ازاى احولها معادلة انا اعرف انى تقريبا هحتاج دالة Trim Replace DateDiff وممكن اشياء اخرى بس ازاى اعملها مش عارف pro.accdbFetching info...
Eng.Qassim قام بنشر أغسطس 27, 2021 قام بنشر أغسطس 27, 2021 (معدل) في 27/8/2021 at 21:34, عمر ضاحى said: عندي حقل سوف اضع به عدد الايام وليكن اسمه txtDays وعندي قائمة اختار منها الشهر وهو هيكون بتنسيق اسم ورقم مثل شهر 1 شهر 2 شهر 3 وليكن اسمه cbList1 وعندي حقل اخر به الراتب ولكين اسمه txtSalary انا اريد ان لما اكتب فى حقل الايام قيمة واختار الشهر يحسب ليى المبلغ مثل عدد ايام 14 يوم شهر 3 الراتب 1900 لما يحسب يشوف رقم الشهر عدد ايامه كام شهر 3 يعنى شهر مارس عدد الايام 31 يوم =1900/31*14=858 ازاى احولها معادلة انا اعرف انى تقريبا هحتاج دالة Trim Replace DateDiff وممكن اشياء اخرى بس ازاى اعملها مش عارف pro.accdb 404 kB · 2 downloads Expand تفضل استاذ عمر.. عسى ان يكون هذا مطلبك اختر التاريخ وادخل الراتب وعدد الايام salary1.accdbFetching info... تم تعديل أغسطس 27, 2021 بواسطه Eng.Qassim 1
عمر ضاحى قام بنشر أغسطس 27, 2021 الكاتب قام بنشر أغسطس 27, 2021 في 27/8/2021 at 21:49, Eng.Qassim said: تفضل استاذ عمر.. عسى ان يكون هذا مطلبك اختر التاريخ وادخل الراتب وعدد الايام salary1.accdb 736 kB · 0 downloads Expand اشكرك كثيرا على ردك لكن ليس هذا ما اريد هو قريب منه لكن ما اريد بالظبط هو كما فى النموذج المرفق فى الموضوع فعندي حقل مكتوب فيه شهر 1 عاوز الداله تاخد هذه النص وتقص الزوائد وتترك فقط الرقم وده بيتعمل بدالتين هم Trim Replace حيث Trim تلغي الفرغات و Replace تستبدل النصوص بفراغ ويبقى فقط الرقم 1 وهو يدل على شهر يناير ومن ثم اريد ان حول الرقم هذا لايام 31 يوم وبعدها اخذ خذا الرقم وادخله فى دالة الحساب الاصليه ^_^ انا عارف انها لفه طويله بس محتاجها
Eng.Qassim قام بنشر أغسطس 27, 2021 قام بنشر أغسطس 27, 2021 في 27/8/2021 at 22:17, عمر ضاحى said: اشكرك كثيرا على ردك لكن ليس هذا ما اريد هو قريب منه لكن ما اريد بالظبط هو كما فى النموذج المرفق فى الموضوع فعندي حقل مكتوب فيه شهر 1 عاوز الداله تاخد هذه النص وتقص الزوائد وتترك فقط الرقم وده بيتعمل بدالتين هم Trim Replace حيث Trim تلغي الفرغات و Replace تستبدل النصوص بفراغ ويبقى فقط الرقم 1 وهو يدل على شهر يناير ومن ثم اريد ان حول الرقم هذا لايام 31 يوم وبعدها اخذ خذا الرقم وادخله فى دالة الحساب الاصليه ^_^ انا عارف انها لفه طويله بس محتاجها Expand ولماذا كل هذا اللف والدوران استاذ عمر.. الكومبوبوكس تختار منه الشهر ووضعت دالة لحساب عدد ايام الشهر الذي تختاره وعلى اساسها يستخرج الراتب وحتى لو اجريت عملية القص ويبقى لديك رقم 3 فكيف تعرف انه الشهر الثالث؟
عمر ضاحى قام بنشر أغسطس 27, 2021 الكاتب قام بنشر أغسطس 27, 2021 في 27/8/2021 at 22:39, Eng.Qassim said: ولماذا كل هذا اللف والدوران استاذ عمر.. الكومبوبوكس تختار منه الشهر ووضعت دالة لحساب عدد ايام الشهر الذي تختاره وعلى اساسها يستخرج الراتب وحتى لو اجريت عملية القص ويبقى لديك رقم 3 فكيف تعرف انه الشهر الثالث؟ Expand 😁 مش عارف صراحتا بس اكيد فى حاجه ترمز للشهر شفتها فى مكان ما بس مش عارف ممكن يكون فى فيديو اجنبي او حاجه زي كده مش متذكر
Eng.Qassim قام بنشر أغسطس 27, 2021 قام بنشر أغسطس 27, 2021 في 27/8/2021 at 23:02, عمر ضاحى said: 😁 مش عارف صراحتا بس اكيد فى حاجه ترمز للشهر شفتها فى مكان ما بس مش عارف ممكن يكون فى فيديو اجنبي او حاجه زي كده مش متذكر Expand تفضل استاذ عمر .. عندما تضغط على الشهر سوف يظهر لك الرقم فقط بس نفسي اعرف عاوز توصل لايه؟ pro.accdbFetching info...
kanory قام بنشر أغسطس 27, 2021 قام بنشر أغسطس 27, 2021 انظر المرفق ..... ربما هو طلبك ... pro.accdbFetching info... 4
عمر ضاحى قام بنشر أغسطس 28, 2021 الكاتب قام بنشر أغسطس 28, 2021 في 27/8/2021 at 23:17, Eng.Qassim said: تفضل استاذ عمر .. عندما تضغط على الشهر سوف يظهر لك الرقم فقط بس نفسي اعرف عاوز توصل لايه؟ pro.accdb 504 kB · 4 downloads Expand اولا اشكرك على تعبك لكن ليس قصدي فصل الرقم ف لفصل الرقم ممكن استخدم هذه المعادلة وتنتهي القصه Me.txt777 = Trim(Replace([cbList1], "شهر", "")) لكن الغرض هو مثلا كيف احول الرقم الذى سوف يخرج لى ولو نفترض انه رقم 3 رقم 3 هذا يرمز لشهر 3 مارس اريد عدد ايام هذا الشهر فى هذه السنه الحاليه (المفترض ان النتيجه هي 31 يوم ) ولو اخترت شهر 2 فبراير فهو فى هذه السنه قيمته 28 يوم وانا رابطه بالسنه لان قد ياتى 29 يوم فى سنه من السنين في 27/8/2021 at 23:54, kanory said: انظر المرفق ..... ربما هو طلبك ... pro.accdb 404 kB · 1 download Expand اولا باشكر حضرتك على المداخله لكن انا لم افهم النموذج المفترض لما اختار الشهر ايه ال بيظهر لانه كان بيجبلى اخطأ فى الكود
تمت الإجابة kanory قام بنشر أغسطس 28, 2021 تمت الإجابة قام بنشر أغسطس 28, 2021 في 28/8/2021 at 00:19, عمر ضاحى said: اولا باشكر حضرتك على المداخله لكن انا لم افهم النموذج المفترض لما اختار الشهر ايه ال بيظهر لانه كان بيجبلى اخطأ فى الكود Expand انظر الصورة وطبق ..... pro.accdbFetching info... 5
عمر ضاحى قام بنشر أغسطس 28, 2021 الكاتب قام بنشر أغسطس 28, 2021 في 28/8/2021 at 02:57, kanory said: انظر الصورة وطبق ..... pro.accdb 400 kB · 0 downloads Expand طيب هو انا ممكن استأذنك تشرحلى عملتها ازاى اريد شرح للكود اذا تكرمت علي وايضا فى حال اريد ان اكررها فى نفس الفورم هل اكرر الحدث فقط ام اطر لتكرار الحدث وكود Function Seperate_Digits(T) معا
kanory قام بنشر أغسطس 28, 2021 قام بنشر أغسطس 28, 2021 في 28/8/2021 at 03:18, عمر ضاحى said: طيب هو انا ممكن استأذنك تشرحلى عملتها ازاى اريد شرح للكود اذا تكرمت علي Expand تفضل >>>>>>> Function Seperate_Digits(T) ' هذا الفانك لاقتصاص الارقام من النص If Len(T & "") = 0 Then Seperate_Digits = "" Exit Function End If For i = 1 To Len(T) C = Asc(Mid(T, i, 1)) Select Case C Case 46, 48 To 57 Which_Letter = Which_Letter & Mid(T, i, 1) Case 47 Which_Letter = "" End Select Next i Seperate_Digits = Which_Letter End Function Private Sub cbList1_AfterUpdate() ' متغيرات Dim a, aa, ff As Integer Dim st As String 'اقتصاص رقم الشهر من الكمبو بكس الموجود في النموذج a = Seperate_Digits(Me.cbList1) 'عدد ايام الشهر المختار aa = CVDate(a) * 30 st = Day(DateSerial(Year(aa), Month(aa) + 1, 0)) 'ادخال تلك المتغيرات في العملية الحسابية ff = (Me.نص692 * Me.txtTotalSalary) / st Me.txtdaysalary1 = ff End Sub 3 1
عمر ضاحى قام بنشر أغسطس 28, 2021 الكاتب قام بنشر أغسطس 28, 2021 في 28/8/2021 at 11:36, kanory said: هل تقصد هكذا ؟؟؟؟؟ Expand الغرض منها اضافة الرواتب المتأخره ضمن التصفيه لاكن عرفت اعملها انى نسخهة الكود الخاص بالكمبوبوكس وعدلت فيه البيانات لكل كمبو بوكس خاص به وطلبي للشرح ليس الاقسام فى الكود فدي فهمتها لكن قصدي للشرح الكود نفسه مثل ما هي الداله هذه وما هي فائدتها وايه استخدماتها المتعدده اذا كان هناك اكثر من استخدام مثل هذا السطر Asc(Mid(T, i, 1)) ليه دي وايه الية عملها انا عارف ان ممكن طلبي هذا يكون مرهق لحضراتكم لكن دائما ابحث عن اكبر قدر من الاستفادة وايضا اتاحة الفرصه لغيري من المبتدئين لفهم شئ ممتاذ مثل هذا الكود
kanory قام بنشر أغسطس 28, 2021 قام بنشر أغسطس 28, 2021 (معدل) في 28/8/2021 at 13:10, عمر ضاحى said: الغرض منها اضافة الرواتب المتأخره ضمن التصفيه لاكن عرفت اعملها انى نسخهة الكود الخاص بالكمبوبوكس وعدلت فيه البيانات لكل كمبو بوكس خاص به وطلبي للشرح ليس الاقسام فى الكود فدي فهمتها لكن قصدي للشرح الكود نفسه مثل ما هي الداله هذه وما هي فائدتها وايه استخدماتها المتعدده اذا كان هناك اكثر من استخدام مثل هذا السطر Asc(Mid(T, i, 1)) ليه دي وايه الية عملها انا عارف ان ممكن طلبي هذا يكون مرهق لحضراتكم لكن دائما ابحث عن اكبر قدر من الاستفادة وايضا اتاحة الفرصه لغيري من المبتدئين لفهم شئ ممتاذ مثل هذا الكود Expand أخي الفاضل بارك الله فيك احي فيك هذه الرغبة في التعلم .... نصيحة لك اقرأ كثريا عن الدوال .... Asc ,Mid هذه دوال Asc تقوم بارجاع كل حرف او رقم في لوحة المفاتتيح الى القيمة الرقمية لها ليتم التعرف عليها هل هي حرف ام رقم ليتم عن طريق Mid اقتصاصها لو كلنت رقما طبعا لو تابعت الكود فيه حلقة تكرار For ليتم المرور على كل حرف او رقم موجود في السلسلة النصية الموجودة في الكمبوبكس .... لمزيد من الدوال في المرفق .... Microsoft Access Functions.pdfFetching info... تم تعديل أغسطس 28, 2021 بواسطه kanory 3 1
عمر ضاحى قام بنشر أغسطس 28, 2021 الكاتب قام بنشر أغسطس 28, 2021 في 28/8/2021 at 14:07, kanory said: أخي الفاضل بارك الله فيك احي فيك هذه الرغبة في التعلم .... نصيحة لك اقرأ كثريا عن الدوال .... Asc ,Mid هذه دوال Asc تقوم بارجاع كل حرف او رقم في لوحة المفاتتيح الى القيمة الرقمية لها ليتم التعرف عليها هل هي حرف ام رقم ليتم عن طريق Mid اقتصاصها لو كلنت رقما طبعا لو تابعت الكود فيه حلقة تكرار For ليتم المرور على كل حرف او رقم موجود في السلسلة النصية الموجودة في الكمبوبكس .... لمزيد من الدوال في المرفق .... Microsoft Access Functions.pdf 1.23 \u0645\u064a\u062c\u0627 \u0628\u0627\u064a\u062a · 0 downloads Expand عظمه على عظمه بارك الله فيك جعله فى ميزان حسناتك 1
د.كاف يار قام بنشر أغسطس 28, 2021 قام بنشر أغسطس 28, 2021 تفضل هذا المقترح مجرد فكرة لا اكثر pro.accdbFetching info... 1 1
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.