[ تمت الإجابة ]كيف أجمع قيمتين في حقل واحدبينمهما فاصل النقطتان الرأسيتان

وعليكــم السـلام ورحمة الله وبركاتـه..

اقتباس

خطر على بالي سؤال غريب

لا ليس بغريب ففي عالم البرمجة تمر بنا اشياء أغرب

لكن الغريب انك أخترت لعنوان موضوعك عنوانا مخالفا !!

فقرة ان يكون عنوان الموضوع دالا على محتواه - تم تعديل العنوان

الى - كيف أجمع قيمتين بحقل واحد بينهما فاصل

اليك المثال التالي على ماطلبته .. تأمل في الكود التالي وعمل الداله Split

Dim VarI As Variant
  Dim VarX As Integer
	 Dim VarR As Integer
	 VarI = Split(Me.txtnm, ":")
	VarX = VarI(0)
  VarR = VarI(1)
 Me.txttotal.Value = VarX + VarR

ملاحظه :

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

المثال في المرفقات .. اتمنى لك التوفيق

EK_Split.rar

مشكووووووووووووور اخي إكسير الحياة

مجهود رائع

اول مرة اعرف انه في الاكسيس تستعمل الدالة split , انا بقيت استعمل هذه الدالة في البيرل :)

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

وبالنسبة للصورة االلي رفعت لاحقا انساها لانه جوابك حل الطريقتين :) المهم انه الفكرة وصلت

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

بشكرك مرة أخرى أخي :)

تحياتي القلبية لك