اذهب الي المحتوي
أوفيسنا

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


الردود الموصى بها

السلام عليكم

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

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

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

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

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

 

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

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

 

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

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

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

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

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

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

المرفق

 

getfathername.rar

رابط هذا التعليق
شارك

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

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

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

 

 

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

 'DoCmd.RunCommand acCmdCopy

بهذا السطر

 Selected_Text = Me.stuname.SelText

 

والله أعلم

مع جزيل الشكر

رابط هذا التعليق
شارك

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

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

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

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

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

 

 

getfathername.rar

  • Like 1
رابط هذا التعليق
شارك

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

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

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

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

 

 

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

 'DoCmd.RunCommand acCmdCopy

بهذا السطر

 Selected_Text = Me.stuname.SelText

 

والله أعلم

مع جزيل الشكر

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

  • Like 1
رابط هذا التعليق
شارك

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

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

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

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


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

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

 

 

getfathername.rar

فعلا 

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

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

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

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
×
  • اضف...

Important Information