كتابة اكواد الترحيل والمعاينة من اليوزرفورم

[nadhir nadhir]

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

ارجو المساعدة في كتابة اكواد الترحيل والمعاينة .... مع الشكر الجزيل 

عنوان مخالف .... تم تعديل وتغيير عنوان المشاركة ليعبر عن طلبك

بحث بالاسم برنامج الشهادات.xlsm

[حسين مامون]

استاذ

ان شاء الله تبدأ ادخال اكواد الترحيل بنفسك

نبدأ بزر ترحيل شهادة تربص

ما رأيك؟

لنفترض ليك شيت "شهادة تربص" الخلية D15 هي رقم التسجيل 

و في الفورم textbox1 iهو رقم التسجيل

ونقول في حدث الزر 'شهادة تربص" 

Private Sub CommandButton4_Click()
With Sheets("شهادة تربص")
   .Range("d15").Value = TextBox1.Value   ' رقم التسجيل
   .Range("b16").Value = TextBox2.Value   'الاسم
   .Range("d16").Value = TextBox3.Value   'اللقب






End With
End Sub

 

ونتمم ربط باقي الخلايا ب textbox المناسب

 

[nadhir nadhir]

شكراجزيلااستاذ

ساحاول تجريب الكود ان شاءلله

بالنسبة لكود معاينة الشيتات اذا امكن مساعدة