المساعدة من السادة الاعضاء

[M_WALEED]

waleed.xlsm

[احمدزمان]

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

اخي الفاضل م وليد

اهلا وسهلا و مرحبا بك بين اخوانك

فضلا

اضافة اي شرح للمطلوب ولو القليل

 

مع ملاحظة

اقتباس

قواعد المشاركة فى الموقع

اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة
و بصفة خاصة نؤكدعلى ما يلي
1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة
2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد.
3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال.
4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا.....
5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم.
ومخالفة ذلك تعرض الموضوع للحذف

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

و احسن الله اليك

[أسامة البراوى]

السلام عليكم

 ...........ممكن تضيف السطر ده فى حدث الدبل كليك للتكست بوكس  6 و 11 و 16 و 

UserFor_cm.Tag = "Tex6"
حسب انت باعت استعاء للفورم من اي تكست بوكس

Private Sub Tex6_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
UserFor_cm.Tag = "Tex6"
  UserFor_cm.Show
End Sub

Private Sub Tex11_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

UserFor_cm.Tag = "Tex11"
UserFor_cm.Show
End Sub

كدة سجلنا الرسالة جاية منين ونرجع الناتج للتكست بوكس مصدر الرسالة

بتعديل السطر ده فى زر اضافة

UserForm2.Controls(UserFor_cm.Tag) = UserFor_cm.TextBox1.Value

Private Sub Button1_Click()
Application.ScreenUpdating = False
With CM_ListFind
   CM_TextFind.Text = .List(.ListIndex, 1)
   End With
  
UserForm2.Controls(UserFor_cm.Tag) = UserFor_cm.TextBox1.Value


   Application.ScreenUpdating = True
End Sub

وبكدة ترجع النتيجة الى المكان اللى انت باعت منه استدعاء الفورم

 

[M_WALEED]

الشكر والتقدير للاستاذ/اسامه البراوى

جزاك الله خيرا بالفعل تمت حل المشكله

السلام عليكم استاذ/احمد

المشكله كانت فى حاله كتابه القيود من الفورم2 فى خانه كود الحساب بعمل بحث بى فورم تانى للبحث كنت عايز نتيجه البحث تظهر فى text الى فى خانه كود الحساب

ولكن الاستاذ/اسامه قام بحل المشكله  وجزاكم الله خيرا