كود نسخ الجزء المحدد من مربع نص

[محمد الصالح]

السلام عليكم

أخوتي أحتاج إلى كود يقوم بنسخ الجزء المحدد من مربع نص

و كيف يمكن إرسال أمر الضغط على مفتاح  ctrl + c عن طريق الكود

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

[jjafferr]

وعليكم السلام

 

1. اعطنا مثال على طلبك ، وبالتفصيل ،

2. ثم ماذا تريد ان تفعل بالجزء الذي تم نسخه؟

 

جعفر

[محمد الصالح]

7 ساعات مضت, jjafferr said:

1. اعطنا مثال على طلبك ، وبالتفصيل ،

2. ثم ماذا تريد ان تفعل بالجزء الذي تم نسخه؟

ما أريده موضح بالصورة التالية:

أقوم بنسخ جزء من التاريخ (السنة) من نص1 ثم أقوم بلصقها في نص0

[Shivan Rekany]

18 ساعات مضت, محمد الصالح said:

ما أريده موضح بالصورة التالية:

أقوم بنسخ جزء من التاريخ (السنة) من نص1 ثم أقوم بلصقها في نص0

سامحني على التدخل في الموضوع

اخي الكريم 
فرضنا عندك مربعين نصي 
واحد باسم text1 و تكتب فيه مثلا اي شي تريد مپلا اسمي shivan

وتريد بيكون مربع الاخر text2 بيأخذ اربع حروف الاولى لاسمي shiv
راح تكتب هذا الكود في زر امر خاص بك لتنفيذ العملية او لتيكست 1 بعد تحديث
 

Dim x
x = Left(Me.nav, 4)
text2 = x

او اذا كان حقل تاريخي 
تكدر تكتب هذا الكود
 

Me.Text2 = Format(Me.Text1, "yyyy")

او تكتب في مصدر البيانات التيكست 2 هذا الكود

=Format([Text1];"yyyy")

هل هذا هو المطلوب ؟

وافينا بالنتيجة
 

[jjafferr]

وعليكم السلام

 

اولا ، يجب ان نأخذ القيمة المختارة من الحقل مباشرة بعد اختيارها ، وقبل الذهاب الى اي كائن آخر ، ويمكننا عمل هذا بعد رفع الفأرة من الحقل الذي تم اختيار النص فيه ،

اسم الحقل الذي فيه الجزء المختار من النص هو fName ، ونريد نسخه الى الحقل Copied ،

هناك طريقتين:

1. نسخ مباشر الى الحقل التالي ،

2. نسخ الى حافظة الوندوز ، والصاقها في اي مكان آخر

Option Compare Database
Public Selected_Text

Private Sub fName_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
On Error Resume Next

'1
    Selected_Text = Me.fName.SelText

'2
'    DoCmd.RunCommand acCmdCopy
    
End Sub

Private Sub cmd_Copy_Click()

'1
    Me.Copied = Selected_Text
    
'2
'    Me.Copied.SetFocus
'    DoCmd.RunCommand acCmdPaste

End Sub

.

جعفر

530.Copy_Selecter_Partial.mdb.zip

[jjafferr]

 

.

[محمد الصالح]

2 ساعات مضت, jjafferr said:

وعليكم السلام

 

اولا ، يجب ان نأخذ القيمة المختارة من الحقل مباشرة بعد اختيارها ، وقبل الذهاب الى اي كائن آخر ، ويمكننا عمل هذا بعد رفع الفأرة من الحقل الذي تم اختيار النص فيه ،

اسم الحقل الذي فيه الجزء المختار من النص هو fName ، ونريد نسخه الى الحقل Copied ،

هناك طريقتين:

1. نسخ مباشر الى الحقل التالي ،

2. نسخ الى حافظة الوندوز ، والصاقها في اي مكان آخر

Option Compare Database
Public Selected_Text

Private Sub fName_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
On Error Resume Next

'1
    Selected_Text = Me.fName.SelText

'2
'    DoCmd.RunCommand acCmdCopy
    
End Sub

Private Sub cmd_Copy_Click()

'1
    Me.Copied = Selected_Text
    
'2
'    Me.Copied.SetFocus
'    DoCmd.RunCommand acCmdPaste

End Sub

.

جعفر

530.Copy_Selecter_Partial.mdb.zip

هذا هو المطلوب جزاك الله خير أستاذ جعفر

3 ساعات مضت, Shivan Rekany said:

اخي الكريم 
فرضنا عندك مربعين نصي 
واحد باسم text1 و تكتب فيه مثلا اي شي تريد مپلا اسمي shivan

وتريد بيكون مربع الاخر text2 بيأخذ اربع حروف الاولى لاسمي shiv
راح تكتب هذا الكود في زر امر خاص بك لتنفيذ العملية او لتيكست 1 بعد تحديث
 

Dim x
x = Left(Me.nav, 4)
text2 = x

او اذا كان حقل تاريخي 
تكدر تكتب هذا الكود
 

Me.Text2 = Format(Me.Text1, "yyyy")

او تكتب في مصدر البيانات التيكست 2 هذا الكود

=Format([Text1];"yyyy")

هل هذا هو المطلوب ؟

وافينا بالنتيجة
 

شكرا جزيلا أستاذ تشيفان لقد قام الاستاذ جعفر بالمطلوب جزاك الله خيرا

[صالح حمادي]

السلام عليكم أريد أن أضيف على بعض الشرح على الكود الرائع للأستاذ جعفر

SelText

هذه الدالة تقوم بنسخ الجزء المحدد من مربع النص

SelLength

و هذه الدالة تقوم بحساب عدد الحروف المحددة في مربع النص

SelStart

و هذه الدالة تقوم بإعطاء ترتيب الحرف الذي يبدأ منه التحديد في مربع النص