[ABO.BANCIANA]

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

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

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

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

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

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

تحياتى

[ABO.BANCIANA]

اشكر الجميع

وجت الحل

[asto]

هذا مثال :

كود :

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 كتب : اشكر الجميع

وجت الحل

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

سلام.