[ تمت الإجابة ]ستخراج الارقام التي مع النص وجمعها

تفضل اخي الكريم

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

ملاحظة : هذه هي احد اخطاء تصميم قواعد البيانات

فقد كان من المفترض عليك منذ بداية تصميم الجداول جعل حقل التاريخ هو ( تاريخ / وقت ) بدلا من ان تقوم بجعله حقل نصي ثم عندما تورطت في عمليات التواريخ وحسابها اضطريت الآن الى عمل هذه التحويلات بهذه الطريقة .

12Points_UP.rar

اقتباس

اخوتي عندي برنامج وفيه حقل نص ورقم سوى ارغب بستخراج الارقام من المربع وجمعها سوى

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

وشكرا على تعونك

الباشق1 كتب:

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

وشكرا على تعونك

اخي الفاضل

مثالك لا يحتوي على مربع نص به ارقام وحروف فأين هو هذا المربع في المثال ( بارك الله بك ) حتى يتم التعامل معه

اختي زهره والله بعتذر عن الخطاء برفاق الملف نفس المسى

وهذا الملف اختي بعد التعديل

وهو فيه حقل عدد الايام ارغب بجمعها سوى

12Points_UP.rar

اخي الفاضل

ماذا تقصد بجمع عدد الايام سوى

فحسب المثال كل موظف له عدد ايام في سجل منفصل

قد يكون المقصود بجمع الأيام هذه الطريقة فأسألتك بارك الله بك دائما غير مفهومه وغامضه

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

حيث نستخدم هذه الدالة لأستبعاد الحروف من النص والإبقاء فقط على الأرقام

Function Str2Int(ByVal InStrng As Variant) As String
  Dim StrLn As Long
  Dim Cntr As Long
  Dim NewStr As String
	Str2Int = ""
  StrLn = Len(Nz(InStrng))
  If StrLn = 0 Then Exit Function
   NewStr = ""
  For Cntr = 1 To StrLn
	Select Case Mid(InStrng, Cntr, 1)
	  Case "0" To "9"
		NewStr = NewStr & Mid(InStrng, Cntr, 1)
	End Select
  Next Cntr
  Str2Int = NewStr
End Function

ثم نقوم بعملية جمع هذه الأرقام بهذه الطريقة

=Sum(nz(Left(Str2Int([Ndays]);4);0))

ملاحظة : تم تغيير مسمى عدد الأيام في الجدول وكذلك اسم الجدول لزوم الكود

za_12Points_UP.rar

مشكوررره اختي زهره وهذاالمطلوب الله يوفقك بس تمنيته لو كان بالاستعلام يكون افضل

واسف على عدم توضيح سؤالي

بعد اذن اختنا الكريمة زهرة

انظر الى الاستعلام المسمى Quiry2

تم فيه تجميع عدد الايام الخاصة بكل موظف

وقد تم الفصل (الارقام عن الحروف) بطريقة تختلف عن طريقة الاستاذة زهرة تتميز بانها مبسطة ولكن طريقة استاذتنا اشمل واكثر مرونة

za_12Points_UP.rar

مشكورررره اخي ماقصرت واشكررررر كمان الاستاذه زهره

بسم الله الرحمن الرحيم

تمت الإجابة على الموضوع

إدارة الفريق العربي للبرمجة

اخوتي انا حاولت اطبقه على البرنامج ولا نفع ايش المشكله هل اذا كان الرقم موجود بين النص يسبب مشكله ولا عادي

بعض الحقول عندي مثل كذا الرقم موجود فيها مثل

اقتباس

غياب لمدة 12 يوم

الباشق1 كتب:

اخوتي انا حاولت اطبقه على البرنامج ولا نفع ايش المشكله هل اذا كان الرقم موجود بين النص يسبب مشكله ولا عادي

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

طبعا تسبب مشكلة..

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

ان شاء الله نحاول

ايهاب عثمان كتب:

طبعا تسبب مشكلة..

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

ان شاء الله نحاول

اخي ايهاب عثمان

الدالة الموضوعه في المشاركة تقوم بإستخراج الأرقام من بين الحروف وحتى لو كانت الحروف مليون حرف وبينها رقم واحد فالدالة كفيلة بإستخراج هذا الرقم سواء في البداية او الوسط او النهاية فلا يفرق مع الدالة

انظر لها في الإستعلام

za_12Points_LAST2.rar

مشكوره اختي ماقصرتي

طيب ممكن سؤال لو كان الحقل Ndays الموجود فيه نص فقط او فارغ كيف جعل القيمة صفر

انا عملة هذا الكود ولا نحج يعطيني بالحقل الذي لايوجد فيه ارقام خطاء

وهذي الصوره توضح

تم وضع تعديلات بسيطة في الكود ... أرجو أن يكون هو المطلوب

za_12Points_LAST2.zip

مشكوررررررررررررررر وماقصرت

بسم الله الرحمن الرحيم

تمت الإجابة على الموضوع

إدارة الفريق العربي للبرمجة

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