محمد الصالح قام بنشر يناير 13, 2017 مشاركة قام بنشر يناير 13, 2017 السلام عليكم أخوتي أحتاج إلى كود يقوم بنسخ الجزء المحدد من مربع نص و كيف يمكن إرسال أمر الضغط على مفتاح ctrl + c عن طريق الكود و جزاكم الله كل خير رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر يناير 13, 2017 مشاركة قام بنشر يناير 13, 2017 وعليكم السلام 1. اعطنا مثال على طلبك ، وبالتفصيل ، 2. ثم ماذا تريد ان تفعل بالجزء الذي تم نسخه؟ جعفر رابط هذا التعليق شارك More sharing options...
محمد الصالح قام بنشر يناير 13, 2017 الكاتب مشاركة قام بنشر يناير 13, 2017 7 ساعات مضت, jjafferr said: 1. اعطنا مثال على طلبك ، وبالتفصيل ، 2. ثم ماذا تريد ان تفعل بالجزء الذي تم نسخه؟ ما أريده موضح بالصورة التالية: أقوم بنسخ جزء من التاريخ (السنة) من نص1 ثم أقوم بلصقها في نص0 رابط هذا التعليق شارك More sharing options...
Shivan Rekany قام بنشر يناير 14, 2017 مشاركة قام بنشر يناير 14, 2017 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") هل هذا هو المطلوب ؟ وافينا بالنتيجة 1 رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر يناير 14, 2017 مشاركة قام بنشر يناير 14, 2017 وعليكم السلام اولا ، يجب ان نأخذ القيمة المختارة من الحقل مباشرة بعد اختيارها ، وقبل الذهاب الى اي كائن آخر ، ويمكننا عمل هذا بعد رفع الفأرة من الحقل الذي تم اختيار النص فيه ، اسم الحقل الذي فيه الجزء المختار من النص هو 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 2 رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر يناير 14, 2017 مشاركة قام بنشر يناير 14, 2017 . 2 رابط هذا التعليق شارك More sharing options...
محمد الصالح قام بنشر يناير 14, 2017 الكاتب مشاركة قام بنشر يناير 14, 2017 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") هل هذا هو المطلوب ؟ وافينا بالنتيجة شكرا جزيلا أستاذ تشيفان لقد قام الاستاذ جعفر بالمطلوب جزاك الله خيرا 1 رابط هذا التعليق شارك More sharing options...
صالح حمادي قام بنشر يناير 15, 2017 مشاركة قام بنشر يناير 15, 2017 السلام عليكم أريد أن أضيف على بعض الشرح على الكود الرائع للأستاذ جعفر SelText هذه الدالة تقوم بنسخ الجزء المحدد من مربع النص SelLength و هذه الدالة تقوم بحساب عدد الحروف المحددة في مربع النص SelStart و هذه الدالة تقوم بإعطاء ترتيب الحرف الذي يبدأ منه التحديد في مربع النص 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان