+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : [سؤال] تقسيم عمود الاسم (/showthread.php?tid=2715)
تقسيم عمود الاسم - ABO.BANCIANA - 30-04-14
السادة اعضاء المنتدى الكرام
اريد طريقة لتقسيم حقل الاسم
لدى قاعدة بيانات اكسس بها حصل لاسم الموظف
(الاسم بالكامل ... ثلاثى او رباعى )
كيف يتم تقسيم الاسم الى ثلاثة او اربعة عواميد
بحيث يكون عمود للاسم واللقب وهكذا )
تحياتى
RE: تقسيم عمود الاسم - ABO.BANCIANA - 30-04-14
اشكر الجميع
وجت الحل
RE: تقسيم عمود الاسم - asto - 01-05-14
هذا مثال :
كود :
Dim a, b, d
a = 1
b = ""
d = 0
Do Until a = Len(Text1.Text) + 1
b = Mid(Text1.Text, a, 1)
If b = " " Then d = d + 1
b = ""
a = a + 1
DoEvents
Loop
Text2.Text = Split(Text1.Text, " ")(0)
طبعا اولا الاسم يكون بالرقم صفر بين آخر قوسين
الكلمة الوسطى تكون اسم الاب لذا
نكتب كود مشابه ل Text3.Text = Split(Text1.Text, " ")(0) مع تغيير الصفر ب 1 و هكذا تواليكRE: تقسيم عمود الاسم - ناجي إبراهيم - 02-05-14
السلام عليكم...
(30-04-14, 06:04 PM)ABO.BANCIANA كتب : اشكر الجميع
وجت الحل
من المفترض أن تذكر لنا كيف هو الحل حتى يستفيد الجميع.
سلام.