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

[عمر طاهر]

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

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

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

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

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

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

ارجو التوفيق

14.accdbFetching info...

[Eng.Qassim]

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

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

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

 

14.accdbFetching info...

[عمر طاهر]

  في 26‏/1‏/2022 at 09:28, Eng.Qassim said:

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

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

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

 

14.accdb 904 kB · 0 downloads

Expand  

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

 

[د.كاف يار]

  في 26‏/1‏/2022 at 08:44, عمر طاهر said:

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

 

Expand  

تفضل هذا الجزء من طلبك و مشاركتي مع اخي @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.accdbFetching info...

[عمر طاهر]

  في 26‏/1‏/2022 at 10:18, د.كاف يار 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

Expand  

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

[Eng.Qassim]

  في 26‏/1‏/2022 at 10:18, د.كاف يار said:

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

Expand  

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

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

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

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