اذهب الي المحتوي
أوفيسنا

اريد داله حسابيه


عمر ضاحى
إذهب إلى أفضل إجابة Solved by kanory,

الردود الموصى بها


عندي حقل سوف اضع به عدد الايام 
وليكن اسمه 
txtDays
وعندي قائمة اختار منها الشهر وهو هيكون بتنسيق اسم ورقم مثل
شهر 1
شهر 2 
شهر 3
وليكن اسمه 
cbList1
وعندي حقل اخر به الراتب 
ولكين اسمه 
txtSalary
انا اريد ان لما اكتب فى حقل الايام قيمة واختار الشهر
يحسب ليى المبلغ 
مثل 
عدد ايام 14 يوم
شهر 3
الراتب  1900
لما يحسب يشوف رقم الشهر عدد ايامه كام 
شهر 3 يعنى شهر مارس عدد الايام 31 يوم 
=1900/31*14=858 

ازاى احولها معادلة 

 

انا اعرف انى تقريبا هحتاج دالة 

Trim

Replace

DateDiff

وممكن اشياء اخرى بس ازاى اعملها مش عارف

pro.accdb

رابط هذا التعليق
شارك

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

تم تعديل بواسطه Eng.Qassim
  • Like 1
رابط هذا التعليق
شارك

23 دقائق مضت, Eng.Qassim said:

تفضل استاذ عمر.. عسى ان يكون هذا مطلبك

اختر التاريخ وادخل الراتب وعدد الايام

salary1.accdb 736 kB · 0 downloads

اشكرك كثيرا على ردك 

لكن ليس هذا ما اريد 

هو قريب منه لكن ما اريد بالظبط هو كما فى النموذج المرفق فى الموضوع

فعندي حقل مكتوب فيه شهر 1 عاوز الداله تاخد هذه النص وتقص الزوائد وتترك فقط الرقم  وده بيتعمل بدالتين هم 

Trim

Replace

 

حيث Trim تلغي الفرغات و Replace تستبدل النصوص بفراغ ويبقى فقط الرقم 

1 وهو يدل على شهر يناير ومن ثم اريد ان حول الرقم هذا لايام 31 يوم وبعدها اخذ خذا الرقم وادخله فى دالة الحساب الاصليه 

 

^_^ 

انا عارف انها لفه طويله بس محتاجها 

 

رابط هذا التعليق
شارك

19 minutes ago, عمر ضاحى said:

اشكرك كثيرا على ردك 

لكن ليس هذا ما اريد 

هو قريب منه لكن ما اريد بالظبط هو كما فى النموذج المرفق فى الموضوع

فعندي حقل مكتوب فيه شهر 1 عاوز الداله تاخد هذه النص وتقص الزوائد وتترك فقط الرقم  وده بيتعمل بدالتين هم 

Trim

Replace

 

حيث Trim تلغي الفرغات و Replace تستبدل النصوص بفراغ ويبقى فقط الرقم 

1 وهو يدل على شهر يناير ومن ثم اريد ان حول الرقم هذا لايام 31 يوم وبعدها اخذ خذا الرقم وادخله فى دالة الحساب الاصليه 

 

^_^ 

انا عارف انها لفه طويله بس محتاجها 

 

ولماذا كل هذا اللف والدوران استاذ عمر.. الكومبوبوكس تختار منه الشهر ووضعت دالة لحساب عدد ايام الشهر الذي تختاره وعلى اساسها يستخرج الراتب

وحتى لو اجريت عملية القص ويبقى لديك رقم 3 فكيف تعرف انه الشهر الثالث؟

رابط هذا التعليق
شارك

21 دقائق مضت, Eng.Qassim said:

ولماذا كل هذا اللف والدوران استاذ عمر.. الكومبوبوكس تختار منه الشهر ووضعت دالة لحساب عدد ايام الشهر الذي تختاره وعلى اساسها يستخرج الراتب

وحتى لو اجريت عملية القص ويبقى لديك رقم 3 فكيف تعرف انه الشهر الثالث؟

😁

مش عارف صراحتا بس اكيد فى حاجه ترمز للشهر

شفتها فى مكان ما بس مش عارف 

ممكن يكون فى فيديو اجنبي او حاجه زي كده مش متذكر 

رابط هذا التعليق
شارك

12 minutes ago, عمر ضاحى said:

😁

مش عارف صراحتا بس اكيد فى حاجه ترمز للشهر

شفتها فى مكان ما بس مش عارف 

ممكن يكون فى فيديو اجنبي او حاجه زي كده مش متذكر 

تفضل استاذ عمر .. عندما تضغط على الشهر سوف يظهر لك الرقم فقط

بس نفسي اعرف عاوز توصل لايه؟

pro.accdb

رابط هذا التعليق
شارك

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

اولا باشكر حضرتك على المداخله 

لكن انا لم افهم النموذج

المفترض لما اختار الشهر ايه ال بيظهر 

لانه كان بيجبلى اخطأ فى الكود

رابط هذا التعليق
شارك

  • أفضل إجابة
2 ساعات مضت, عمر ضاحى said:

اولا باشكر حضرتك على المداخله 

لكن انا لم افهم النموذج

المفترض لما اختار الشهر ايه ال بيظهر 

لانه كان بيجبلى اخطأ فى الكود

انظر الصورة وطبق  ..... 

 

1.png

pro.accdb

  • Like 5
رابط هذا التعليق
شارك

8 دقائق مضت, kanory said:

انظر الصورة وطبق  ..... 

 

1.png

pro.accdb 400 kB · 0 downloads

طيب هو انا ممكن استأذنك تشرحلى عملتها ازاى 

اريد شرح للكود اذا تكرمت علي 

وايضا فى حال اريد ان اكررها فى نفس الفورم هل اكرر الحدث فقط ام اطر لتكرار الحدث وكود Function Seperate_Digits(T) معا

رابط هذا التعليق
شارك

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

 

  • Like 3
  • Thanks 1
رابط هذا التعليق
شارك

منذ ساعه, kanory said:

هل تقصد هكذا ؟؟؟؟؟

 

1.png

الغرض منها اضافة الرواتب المتأخره ضمن التصفيه 

لاكن عرفت اعملها انى نسخهة الكود الخاص بالكمبوبوكس وعدلت فيه البيانات لكل كمبو بوكس خاص به

 

وطلبي للشرح ليس الاقسام فى الكود فدي فهمتها

لكن قصدي للشرح الكود نفسه مثل 

ما هي الداله هذه وما هي فائدتها وايه استخدماتها المتعدده اذا كان هناك اكثر من استخدام 

مثل هذا السطر 

Asc(Mid(T, i, 1))

ليه دي وايه الية عملها 

 

انا عارف ان ممكن طلبي هذا يكون مرهق لحضراتكم 

لكن دائما ابحث عن اكبر قدر من الاستفادة وايضا اتاحة الفرصه لغيري من المبتدئين لفهم شئ ممتاذ مثل هذا الكود

رابط هذا التعليق
شارك

57 دقائق مضت, عمر ضاحى said:

الغرض منها اضافة الرواتب المتأخره ضمن التصفيه 

لاكن عرفت اعملها انى نسخهة الكود الخاص بالكمبوبوكس وعدلت فيه البيانات لكل كمبو بوكس خاص به

 

وطلبي للشرح ليس الاقسام فى الكود فدي فهمتها

لكن قصدي للشرح الكود نفسه مثل 

ما هي الداله هذه وما هي فائدتها وايه استخدماتها المتعدده اذا كان هناك اكثر من استخدام 

مثل هذا السطر 

Asc(Mid(T, i, 1))

ليه دي وايه الية عملها 

 

انا عارف ان ممكن طلبي هذا يكون مرهق لحضراتكم 

لكن دائما ابحث عن اكبر قدر من الاستفادة وايضا اتاحة الفرصه لغيري من المبتدئين لفهم شئ ممتاذ مثل هذا الكود

أخي الفاضل بارك الله فيك احي فيك هذه الرغبة في التعلم ....

نصيحة لك اقرأ كثريا عن الدوال ....

Asc ,Mid

هذه دوال Asc تقوم بارجاع كل حرف او رقم في لوحة المفاتتيح الى القيمة الرقمية لها ليتم التعرف عليها هل هي حرف ام رقم ليتم عن طريق Mid  اقتصاصها لو كلنت رقما 

طبعا لو تابعت الكود فيه حلقة تكرار For ليتم المرور على كل حرف او رقم موجود في السلسلة النصية الموجودة في الكمبوبكس .... 

لمزيد من الدوال في المرفق ....

 

Microsoft Access Functions.pdf

تم تعديل بواسطه kanory
  • Like 3
  • Thanks 1
رابط هذا التعليق
شارك

9 دقائق مضت, kanory said:

أخي الفاضل بارك الله فيك احي فيك هذه الرغبة في التعلم ....

نصيحة لك اقرأ كثريا عن الدوال ....

Asc ,Mid

هذه دوال Asc تقوم بارجاع كل حرف او رقم في لوحة المفاتتيح الى القيمة الرقمية لها ليتم التعرف عليها هل هي حرف ام رقم ليتم عن طريق Mid  اقتصاصها لو كلنت رقما 

طبعا لو تابعت الكود فيه حلقة تكرار For ليتم المرور على كل حرف او رقم موجود في السلسلة النصية الموجودة في الكمبوبكس .... 

لمزيد من الدوال في المرفق ....

 

Microsoft Access Functions.pdf 1.23 \u0645\u064a\u062c\u0627 \u0628\u0627\u064a\u062a · 0 downloads

عظمه على عظمه 

بارك الله فيك

جعله فى ميزان حسناتك 

 

  • Thanks 1
رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information