مشكل اكواد الترحيل والتنقل بين النماذج

[nadhir nadhir]

السلام عليكم

في الملف المرفق لدي مشكل في بعض كتابة الاكواد التالية

فورم المعلومات العامة في زر عودة للبرنام(فورم1) يحصل خطأ مع ان الكود صحيح

فورم البحث والاستعلام زر واجهة البرنامج يظهر فورم البرنامج بس ما يخفي فورم البحث

دائما في فورم البحث ازرار ترحيل البيانات الى شهادات التربص والتكوين وكشف النقاط الاكواد ماضبطت معي مع انها صحيحة

مللحظة الكود مكتوب فقط في شهادة التكوين

ارجو من الاساتذة مساعدتي ولكم جزيل الشكر

برنامج انجاز الشهادات - 00.xlsm

[عبدالله الصاري]

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

استبدل الكود بهذا

 

Private Sub CommandButton10_Click()
    Sheets("شهادة تكوين").Select
Cells(16, 2).Value = TextBox1.Value
Cells(15, 2).Value = TextBox2.Value
Cells(15, 6).Value = TextBox3.Value
Cells(17, 5).Value = TextBox4.Value
Cells(18, 3).Value = TextBox5.Value
Cells(19, 2).Value = TextBox6.Value
Cells(19, 5).Value = TextBox7.Value
Cells(20, 2).Value = TextBox8.Value
Cells(20, 7).Value = TextBox12.Value
End Sub

استبدل 

UserForm1.Show
Unload Me

بــ

Unload Me
UserForm1.Show

تفس الطلب الاول

  برنامج انجاز الشهادات - اكواد الترحيل والتنقل بين النماذج.xlsm

[nadhir nadhir]

السلام عليكم استاذ عبدالله 

مشكور على مساعدتك طبقت المثال على الملف لكن المشكلة ان الكود ضبط معي في شهادة التكوين  بس في شهادة كشف النقاط ما مشى مع اني جربت الكود الي المقدم في شرحك وجربت ايضا كود مع الامر with وفي كلتا الحالتين ما مشى لست ادري وين المشكلة

ملاحظة انا لست محترف برمجة وهذا اول.برنامجاقوم بتصميمه

شكرا مرة ثانية

[عبدالله الصاري]

طبقت لك على شهادة التكوين فقط وكنت آمل ان تكمل باقي الشهادات على نفس النمط تقريبا

على كل جال اليك الملف فيه طلبك ان شاء الله

 

برنامج انجاز الشهادات - اكواد الترحيل والتنقل بين النماذج (11).xlsm

[nadhir nadhir]

السلام عليكم استاذ عبدالله 

مشكور على مساعدتك 

فعلا انا طبقت كما في المثال المقدم منكم لكن للاسف ماضبط معي مع اني حاولت مرارا ولم يمشي معي الكود

مرة ثانية اشكرك على مساعدتك لي 

اتمنى ان اوفق المرة القادمة