عمر ضاحى قام بنشر أغسطس 27, 2021 مشاركة قام بنشر أغسطس 27, 2021 عندي حقل سوف اضع به عدد الايام وليكن اسمه txtDays وعندي قائمة اختار منها الشهر وهو هيكون بتنسيق اسم ورقم مثل شهر 1 شهر 2 شهر 3 وليكن اسمه cbList1 وعندي حقل اخر به الراتب ولكين اسمه txtSalary انا اريد ان لما اكتب فى حقل الايام قيمة واختار الشهر يحسب ليى المبلغ مثل عدد ايام 14 يوم شهر 3 الراتب 1900 لما يحسب يشوف رقم الشهر عدد ايامه كام شهر 3 يعنى شهر مارس عدد الايام 31 يوم =1900/31*14=858 ازاى احولها معادلة انا اعرف انى تقريبا هحتاج دالة Trim Replace DateDiff وممكن اشياء اخرى بس ازاى اعملها مش عارف pro.accdb رابط هذا التعليق شارك More sharing options...
Eng.Qassim قام بنشر أغسطس 27, 2021 مشاركة قام بنشر أغسطس 27, 2021 (معدل) 15 minutes ago, عمر ضاحى 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 تفضل استاذ عمر.. عسى ان يكون هذا مطلبك اختر التاريخ وادخل الراتب وعدد الايام salary1.accdb تم تعديل أغسطس 27, 2021 بواسطه Eng.Qassim 1 رابط هذا التعليق شارك More sharing options...
عمر ضاحى قام بنشر أغسطس 27, 2021 الكاتب مشاركة قام بنشر أغسطس 27, 2021 23 دقائق مضت, Eng.Qassim said: تفضل استاذ عمر.. عسى ان يكون هذا مطلبك اختر التاريخ وادخل الراتب وعدد الايام salary1.accdb 736 kB · 0 downloads اشكرك كثيرا على ردك لكن ليس هذا ما اريد هو قريب منه لكن ما اريد بالظبط هو كما فى النموذج المرفق فى الموضوع فعندي حقل مكتوب فيه شهر 1 عاوز الداله تاخد هذه النص وتقص الزوائد وتترك فقط الرقم وده بيتعمل بدالتين هم Trim Replace حيث Trim تلغي الفرغات و Replace تستبدل النصوص بفراغ ويبقى فقط الرقم 1 وهو يدل على شهر يناير ومن ثم اريد ان حول الرقم هذا لايام 31 يوم وبعدها اخذ خذا الرقم وادخله فى دالة الحساب الاصليه ^_^ انا عارف انها لفه طويله بس محتاجها رابط هذا التعليق شارك More sharing options...
Eng.Qassim قام بنشر أغسطس 27, 2021 مشاركة قام بنشر أغسطس 27, 2021 19 minutes ago, عمر ضاحى said: اشكرك كثيرا على ردك لكن ليس هذا ما اريد هو قريب منه لكن ما اريد بالظبط هو كما فى النموذج المرفق فى الموضوع فعندي حقل مكتوب فيه شهر 1 عاوز الداله تاخد هذه النص وتقص الزوائد وتترك فقط الرقم وده بيتعمل بدالتين هم Trim Replace حيث Trim تلغي الفرغات و Replace تستبدل النصوص بفراغ ويبقى فقط الرقم 1 وهو يدل على شهر يناير ومن ثم اريد ان حول الرقم هذا لايام 31 يوم وبعدها اخذ خذا الرقم وادخله فى دالة الحساب الاصليه ^_^ انا عارف انها لفه طويله بس محتاجها ولماذا كل هذا اللف والدوران استاذ عمر.. الكومبوبوكس تختار منه الشهر ووضعت دالة لحساب عدد ايام الشهر الذي تختاره وعلى اساسها يستخرج الراتب وحتى لو اجريت عملية القص ويبقى لديك رقم 3 فكيف تعرف انه الشهر الثالث؟ رابط هذا التعليق شارك More sharing options...
عمر ضاحى قام بنشر أغسطس 27, 2021 الكاتب مشاركة قام بنشر أغسطس 27, 2021 21 دقائق مضت, Eng.Qassim said: ولماذا كل هذا اللف والدوران استاذ عمر.. الكومبوبوكس تختار منه الشهر ووضعت دالة لحساب عدد ايام الشهر الذي تختاره وعلى اساسها يستخرج الراتب وحتى لو اجريت عملية القص ويبقى لديك رقم 3 فكيف تعرف انه الشهر الثالث؟ 😁 مش عارف صراحتا بس اكيد فى حاجه ترمز للشهر شفتها فى مكان ما بس مش عارف ممكن يكون فى فيديو اجنبي او حاجه زي كده مش متذكر رابط هذا التعليق شارك More sharing options...
Eng.Qassim قام بنشر أغسطس 27, 2021 مشاركة قام بنشر أغسطس 27, 2021 12 minutes ago, عمر ضاحى said: 😁 مش عارف صراحتا بس اكيد فى حاجه ترمز للشهر شفتها فى مكان ما بس مش عارف ممكن يكون فى فيديو اجنبي او حاجه زي كده مش متذكر تفضل استاذ عمر .. عندما تضغط على الشهر سوف يظهر لك الرقم فقط بس نفسي اعرف عاوز توصل لايه؟ pro.accdb رابط هذا التعليق شارك More sharing options...
kanory قام بنشر أغسطس 27, 2021 مشاركة قام بنشر أغسطس 27, 2021 انظر المرفق ..... ربما هو طلبك ... pro.accdb 4 رابط هذا التعليق شارك More sharing options...
عمر ضاحى قام بنشر أغسطس 28, 2021 الكاتب مشاركة قام بنشر أغسطس 28, 2021 56 دقائق مضت, Eng.Qassim said: تفضل استاذ عمر .. عندما تضغط على الشهر سوف يظهر لك الرقم فقط بس نفسي اعرف عاوز توصل لايه؟ pro.accdb 504 kB · 4 downloads اولا اشكرك على تعبك لكن ليس قصدي فصل الرقم ف لفصل الرقم ممكن استخدم هذه المعادلة وتنتهي القصه Me.txt777 = Trim(Replace([cbList1], "شهر", "")) لكن الغرض هو مثلا كيف احول الرقم الذى سوف يخرج لى ولو نفترض انه رقم 3 رقم 3 هذا يرمز لشهر 3 مارس اريد عدد ايام هذا الشهر فى هذه السنه الحاليه (المفترض ان النتيجه هي 31 يوم ) ولو اخترت شهر 2 فبراير فهو فى هذه السنه قيمته 28 يوم وانا رابطه بالسنه لان قد ياتى 29 يوم فى سنه من السنين 19 دقائق مضت, kanory said: انظر المرفق ..... ربما هو طلبك ... pro.accdb 404 kB · 1 download اولا باشكر حضرتك على المداخله لكن انا لم افهم النموذج المفترض لما اختار الشهر ايه ال بيظهر لانه كان بيجبلى اخطأ فى الكود رابط هذا التعليق شارك More sharing options...
أفضل إجابة kanory قام بنشر أغسطس 28, 2021 أفضل إجابة مشاركة قام بنشر أغسطس 28, 2021 2 ساعات مضت, عمر ضاحى said: اولا باشكر حضرتك على المداخله لكن انا لم افهم النموذج المفترض لما اختار الشهر ايه ال بيظهر لانه كان بيجبلى اخطأ فى الكود انظر الصورة وطبق ..... pro.accdb 5 رابط هذا التعليق شارك More sharing options...
عمر ضاحى قام بنشر أغسطس 28, 2021 الكاتب مشاركة قام بنشر أغسطس 28, 2021 8 دقائق مضت, kanory said: انظر الصورة وطبق ..... pro.accdb 400 kB · 0 downloads طيب هو انا ممكن استأذنك تشرحلى عملتها ازاى اريد شرح للكود اذا تكرمت علي وايضا فى حال اريد ان اكررها فى نفس الفورم هل اكرر الحدث فقط ام اطر لتكرار الحدث وكود Function Seperate_Digits(T) معا رابط هذا التعليق شارك More sharing options...
kanory قام بنشر أغسطس 28, 2021 مشاركة قام بنشر أغسطس 28, 2021 7 ساعات مضت, عمر ضاحى said: طيب هو انا ممكن استأذنك تشرحلى عملتها ازاى اريد شرح للكود اذا تكرمت علي تفضل >>>>>>> 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 رابط هذا التعليق شارك More sharing options...
kanory قام بنشر أغسطس 28, 2021 مشاركة قام بنشر أغسطس 28, 2021 هل تقصد هكذا ؟؟؟؟؟ 3 رابط هذا التعليق شارك More sharing options...
عمر ضاحى قام بنشر أغسطس 28, 2021 الكاتب مشاركة قام بنشر أغسطس 28, 2021 منذ ساعه, kanory said: هل تقصد هكذا ؟؟؟؟؟ الغرض منها اضافة الرواتب المتأخره ضمن التصفيه لاكن عرفت اعملها انى نسخهة الكود الخاص بالكمبوبوكس وعدلت فيه البيانات لكل كمبو بوكس خاص به وطلبي للشرح ليس الاقسام فى الكود فدي فهمتها لكن قصدي للشرح الكود نفسه مثل ما هي الداله هذه وما هي فائدتها وايه استخدماتها المتعدده اذا كان هناك اكثر من استخدام مثل هذا السطر Asc(Mid(T, i, 1)) ليه دي وايه الية عملها انا عارف ان ممكن طلبي هذا يكون مرهق لحضراتكم لكن دائما ابحث عن اكبر قدر من الاستفادة وايضا اتاحة الفرصه لغيري من المبتدئين لفهم شئ ممتاذ مثل هذا الكود رابط هذا التعليق شارك More sharing options...
kanory قام بنشر أغسطس 28, 2021 مشاركة قام بنشر أغسطس 28, 2021 (معدل) 57 دقائق مضت, عمر ضاحى said: الغرض منها اضافة الرواتب المتأخره ضمن التصفيه لاكن عرفت اعملها انى نسخهة الكود الخاص بالكمبوبوكس وعدلت فيه البيانات لكل كمبو بوكس خاص به وطلبي للشرح ليس الاقسام فى الكود فدي فهمتها لكن قصدي للشرح الكود نفسه مثل ما هي الداله هذه وما هي فائدتها وايه استخدماتها المتعدده اذا كان هناك اكثر من استخدام مثل هذا السطر Asc(Mid(T, i, 1)) ليه دي وايه الية عملها انا عارف ان ممكن طلبي هذا يكون مرهق لحضراتكم لكن دائما ابحث عن اكبر قدر من الاستفادة وايضا اتاحة الفرصه لغيري من المبتدئين لفهم شئ ممتاذ مثل هذا الكود أخي الفاضل بارك الله فيك احي فيك هذه الرغبة في التعلم .... نصيحة لك اقرأ كثريا عن الدوال .... Asc ,Mid هذه دوال Asc تقوم بارجاع كل حرف او رقم في لوحة المفاتتيح الى القيمة الرقمية لها ليتم التعرف عليها هل هي حرف ام رقم ليتم عن طريق Mid اقتصاصها لو كلنت رقما طبعا لو تابعت الكود فيه حلقة تكرار For ليتم المرور على كل حرف او رقم موجود في السلسلة النصية الموجودة في الكمبوبكس .... لمزيد من الدوال في المرفق .... Microsoft Access Functions.pdf تم تعديل أغسطس 28, 2021 بواسطه kanory 3 1 رابط هذا التعليق شارك More sharing options...
عمر ضاحى قام بنشر أغسطس 28, 2021 الكاتب مشاركة قام بنشر أغسطس 28, 2021 9 دقائق مضت, kanory said: أخي الفاضل بارك الله فيك احي فيك هذه الرغبة في التعلم .... نصيحة لك اقرأ كثريا عن الدوال .... Asc ,Mid هذه دوال Asc تقوم بارجاع كل حرف او رقم في لوحة المفاتتيح الى القيمة الرقمية لها ليتم التعرف عليها هل هي حرف ام رقم ليتم عن طريق Mid اقتصاصها لو كلنت رقما طبعا لو تابعت الكود فيه حلقة تكرار For ليتم المرور على كل حرف او رقم موجود في السلسلة النصية الموجودة في الكمبوبكس .... لمزيد من الدوال في المرفق .... Microsoft Access Functions.pdf 1.23 \u0645\u064a\u062c\u0627 \u0628\u0627\u064a\u062a · 0 downloads عظمه على عظمه بارك الله فيك جعله فى ميزان حسناتك 1 رابط هذا التعليق شارك More sharing options...
د.كاف يار قام بنشر أغسطس 28, 2021 مشاركة قام بنشر أغسطس 28, 2021 تفضل هذا المقترح مجرد فكرة لا اكثر pro.accdb 1 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.