textbox نسخ جزء من حقل إلى حقل آخر بالكود

[عبد الفتاح كيرة]

السلام عليكم

المطلوب إخوتى

كود ينسخ اسم الأب من حقل اسم الطالب

ليلصقه فى حقل اسم الأب

يعنى المستخدم يحدد اسم الأب من حقل اسم الطالب

ثم يقوم الكود بلصق هذا الجزء المحدد فى حقل اسم الأب

 

استخدمت هذا الكود

Dim i As String
Me.stuname.SetFocus
i = Me.stuname.SelText
Me.fathername.SetFocus
Me.fathername.Text = i

 

لكن المشكلة أنه ينسخ و يلصق كل الحقل

يعنى يلصق اسم الطالب كاملا

بينما المطلوب لصق اسم الأب المحدد فقط

أرجو المشاركة لمن لديه أفكار

وجزاكم الله خيرا

والمطلوب فى المرفق

المرفق

 

getfathername.rar

[Shivan Rekany]

اتفضل يا سيدي
الطريقة هو للاستاذنا جعفر
 

getfathername.rar

[عبد الفتاح كيرة]

جزاك الله خيرا

و الطريقة عبقرية

شكرا لك و للأخ جعفر

 

 

يخيل إلى أن هذا السطر فى الكود يمكن الاستغناء عنه

 'DoCmd.RunCommand acCmdCopy

بهذا السطر

 Selected_Text = Me.stuname.SelText

 

والله أعلم

مع جزيل الشكر

[صالح حمادي]

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

أخوتي الكرام حياكم الله

أخي محمد بإمكانك إستعمال هذا الكود:

Dim i As String
i = Me.stuname.SelText
Me.fathername = i

بعد ما تقوم بتحديد اسم الأب بمجرد رفع زر الماوس يقوم بلصق الجزء المحدد مباشرة في حقل الأب.

 

 

getfathername.rar

[Shivan Rekany]

منذ ساعه, عبد الفتاح كيرة said:

جزاك الله خيرا

و الطريقة عبقرية

شكرا لك و للأخ جعفر

 

 

يخيل إلى أن هذا السطر فى الكود يمكن الاستغناء عنه

 'DoCmd.RunCommand acCmdCopy

بهذا السطر

 Selected_Text = Me.stuname.SelText

 

والله أعلم

مع جزيل الشكر

نعم يا استاذ تكدر تحذف هذا السطر من الكود 
DoCmd.RunCommand acCmdCopy
لكن ما هي اهمية ذاك السطر
بيعمل كوبي من النص المحدود واحتمال بيكون تحتاج ان تلصق في مكان اخر النص المحدود
تحياتي
 

[عبد الفتاح كيرة]

20 دقائق مضت, صالح حمادي said:

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

أخوتي الكرام حياكم الله

أخي محمد بإمكانك إستعمال هذا الكود:

Dim i As String
i = Me.stuname.SelText
Me.fathername = i

بعد ما تقوم بتحديد اسم الأب بمجرد رفع زر الماوس يقوم بلصق الجزء المحدد مباشرة في حقل الأب.

 

 

getfathername.rar

فعلا 

المهم فى كل هذه الأكواد الحدث الذى توضع فيه

و أظنها لا تصلح إلا فى حدث عند رفع الماوس

شكرا لكل من ساهم بالرد