منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السادة اعضاء المنتدى الكرام

اريد طريقة لتقسيم حقل الاسم

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

(الاسم بالكامل ... ثلاثى او رباعى )

كيف يتم تقسيم الاسم الى ثلاثة او اربعة عواميد

بحيث يكون عمود للاسم واللقب وهكذا )

تحياتى

اشكر الجميع

وجت الحل

هذا مثال :

كود :

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 و هكذا تواليك

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

(30-04-14, 06:04 PM)ABO.BANCIANA كتب : [ -> ]اشكر الجميع

وجت الحل

من المفترض أن تذكر لنا كيف هو الحل حتى يستفيد الجميع.

سلام.

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

ABO.BANCIANA

ABO.BANCIANA

asto

ناجي إبراهيم