عمر طاهر قام بنشر يناير 26, 2022 مشاركة قام بنشر يناير 26, 2022 السلام عليكم ورحمة الله في المرفق نموذجين... ارجوا المساعدة في ... اظهار ناتج البحث عند الضغط على انتر في مربع البحث نموذج (ش) كأن اكتب 1800 واضغط انتر فيظهر النتائج دون تحريك الفأرة الى السهم 2 . المطلوب في نموذج asas مربع tot اريد ان اكتب مثلا 5+9 فيقوم بالجمع تلقائيا عند الانتقال ارجو التوفيق 14.accdb رابط هذا التعليق شارك More sharing options...
Eng.Qassim قام بنشر يناير 26, 2022 مشاركة قام بنشر يناير 26, 2022 وعليكم السلام .. تفضل نتيجة البحث في الكومبو اما مطلبك الثاني بأن تجمع رقمين في حقل واحد فهذا لا يجوز في الاكسس..انما يصح في الاكسل 14.accdb 1 رابط هذا التعليق شارك More sharing options...
عمر طاهر قام بنشر يناير 26, 2022 الكاتب مشاركة قام بنشر يناير 26, 2022 9 دقائق مضت, Eng.Qassim said: وعليكم السلام .. تفضل نتيجة البحث في الكومبو اما مطلبك الثاني بأن تجمع رقمين في حقل واحد فهذا لا يجوز في الاكسس..انما يصح في الاكسل 14.accdb 904 kB · 0 downloads جزاك الله خيرا رابط هذا التعليق شارك More sharing options...
د.كاف يار قام بنشر يناير 26, 2022 مشاركة قام بنشر يناير 26, 2022 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 2 رابط هذا التعليق شارك More sharing options...
أفضل إجابة عمر طاهر قام بنشر يناير 26, 2022 الكاتب أفضل إجابة مشاركة قام بنشر يناير 26, 2022 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 جزاك الله خيرا رابط هذا التعليق شارك More sharing options...
Eng.Qassim قام بنشر يناير 26, 2022 مشاركة قام بنشر يناير 26, 2022 (معدل) 52 دقائق مضت, د.كاف يار said: انشء موديول جديد و الصقي التالي ماشاء الله عليك دكتور @د.كاف يار اعتذر عن قولي انه لايصلح مع الرقمين في اكسس الجميل انك تعاملت معه كنص ثم فصلته الى ارقام وعملية حسابية تم تعديل يناير 26, 2022 بواسطه Eng.Qassim رابط هذا التعليق شارك 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.