مساعدة عمليات الحساب في سجل

[عمر طاهر]

السلام عليكم ورحمة الله

في المرفق نموذجين...

ارجوا المساعدة في ...

اظهار ناتج البحث عند الضغط على انتر في مربع البحث نموذج (ش) كأن اكتب 1800 واضغط انتر فيظهر النتائج دون تحريك الفأرة الى السهم

2 . المطلوب في نموذج asas مربع tot 

اريد ان اكتب مثلا 5+9 فيقوم بالجمع تلقائيا عند الانتقال 

ارجو التوفيق

14.accdb

[Eng.Qassim]

وعليكم السلام ..

تفضل نتيجة البحث في الكومبو

اما مطلبك الثاني بأن تجمع رقمين في حقل واحد فهذا لا يجوز في الاكسس..انما يصح في الاكسل

 

14.accdb

[عمر طاهر]

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

وعليكم السلام ..

تفضل نتيجة البحث في الكومبو

اما مطلبك الثاني بأن تجمع رقمين في حقل واحد فهذا لا يجوز في الاكسس..انما يصح في الاكسل

 

14.accdb 904 kB · 0 downloads

جزاك الله خيرا

 

[د.كاف يار]

1 ساعه مضت, عمر طاهر said:

اريد ان اكتب مثلا 5+9 فيقوم بالجمع تلقائيا عند الانتقال 

 

تفضل هذا الجزء من طلبك و مشاركتي مع اخي @Eng.Qassim

انشء موديول جديد و الصقي التالي

Public Function SetColNumber(SetText As String) As Variant
Dim Number1 As Double, Number2 As Double, CulSum As Variant
For i = 1 To Len(SetText)
    If Mid(SetText, i, 1) = "+" Or Mid(SetText, i, 1) = "-" Or _
        Mid(SetText, i, 1) = "/" Or Mid(SetText, i, 1) = "*" Then
        CulSum = Mid(SetText, i, 1)
    End If
Next i

Number1 = Split(SetText, CulSum)(0)
Number2 = Split(SetText, CulSum)(1)

Select Case CulSum
Case Is = "-"
    SetColNumber = Number1 - Number2
Case Is = "+"
    SetColNumber = Number1 + Number2
Case Is = "*"
    SetColNumber = Number1 * Number2
Case Is = "/"
    SetColNumber = Number1 / Number2
End Select

End Function

 

و في حدث لمربع النص بعد التحديث الصق التالي

tot = SetColNumber(tot)

 

تفضل الملف بعد التعديل

 

14.accdb

[عمر طاهر]

38 دقائق مضت, د.كاف يار said:

تفضل هذا الجزء من طلبك و مشاركتي مع اخي @Eng.Qassim

انشء موديول جديد و الصقي التالي

Public Function SetColNumber(SetText As String) As Variant
Dim Number1 As Double, Number2 As Double, CulSum As Variant
For i = 1 To Len(SetText)
    If Mid(SetText, i, 1) = "+" Or Mid(SetText, i, 1) = "-" Or _
        Mid(SetText, i, 1) = "/" Or Mid(SetText, i, 1) = "*" Then
        CulSum = Mid(SetText, i, 1)
    End If
Next i

Number1 = Split(SetText, CulSum)(0)
Number2 = Split(SetText, CulSum)(1)

Select Case CulSum
Case Is = "-"
    SetColNumber = Number1 - Number2
Case Is = "+"
    SetColNumber = Number1 + Number2
Case Is = "*"
    SetColNumber = Number1 * Number2
Case Is = "/"
    SetColNumber = Number1 / Number2
End Select

End Function

 

و في حدث لمربع النص بعد التحديث الصق التالي

tot = SetColNumber(tot)

 

تفضل الملف بعد التعديل

 

14.accdb 900 kB · 0 downloads

جزاك الله خيرا

[Eng.Qassim]

52 دقائق مضت, د.كاف يار said:

انشء موديول جديد و الصقي التالي

ماشاء الله عليك دكتور @د.كاف يار

اعتذر عن قولي انه لايصلح مع الرقمين في اكسس

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

تم تعديل يناير 26, 2022 بواسطه Eng.Qassim