تعليقات على فورم بحث وتعديل واضافة بيانات

عدد المساهمات : 3 تاريخ التسجيل : 03/12/2016

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

عدد المساهمات : 3 تاريخ التسجيل : 03/12/2016

استاذ مجدي بارك الله بك
حاولت تحميل ملفات الاكسل ولكن المحتوى غير متوفر اعطاني رسالة خطأ ولم تفتح صفحة التحميل

الاخ احمد
شكرا لك الرابط شغال وحملت منه وعموما حملت الملف على رابط اخر

حمل من هنا

عدد المساهمات : 3 تاريخ التسجيل : 03/12/2016

شكرا استاذ مجدي بارك الله بك
تم التحميل

اى خدمة

ملف الاكسل الخاص بالبحث عن القران الكريم

عدد المساهمات : 1 تاريخ التسجيل : 13/12/2016

الف شكر عمل رائع استاذ مجدي

فورم بحث بامكانية التصفية

عدد المساهمات : 50 تاريخ التسجيل : 18/12/2016

فورم بحث وتعديل واضافة بيانات شرح بالفيديو مع الاكواد مفيد جدا
بارك الله فيك....
cheers

عدد المساهمات : 4 تاريخ التسجيل : 24/12/2016

السلام عليك ، أين أجد رابط الملف لتحميله ؟؟؟؟؟؟؟

الاخ ناصر اى ملف تقصد

عدد المساهمات : 4 تاريخ التسجيل : 24/12/2016

رابط نموزج استعلام وتقرير الدرس التاسع عشر

عدد المساهمات : 4 تاريخ التسجيل : 24/12/2016

مجدى يونس كتب:: الاخ ناصر اى ملف تقصد

رابط نموزج استعلام وتقرير الدرس التاسع عشر

الاخ ناصر
الرابط اسفل الفيديو درس التاسع عشر

عدد المساهمات : 11 تاريخ التسجيل : 14/11/2016

بارك الله فيك استاذنا العزيز

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

عدد المساهمات : 1 تاريخ التسجيل : 01/01/2017

بارك الله فيك وزادك من فضله.

عدد المساهمات : 1 تاريخ التسجيل : 01/01/2017

مشكووووووووووووووووووووووووووووووووووووور استذنا

عدد المساهمات : 1 تاريخ التسجيل : 14/01/2017

بارك الله فيك وجعل هذا العلم فى ميزان حسناتك

عدد المساهمات : 3 تاريخ التسجيل : 06/02/2017

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

عدد المساهمات : 1 تاريخ التسجيل : 18/01/2017

مجدى يونس كتب:

اليك الفيديو الرابع تعديل البيانات

الكود:: Dim i As Integer
For i = 1 To 200
If Val(TextBox12.Value) = Cells(i, 1) Then
Cells(i, 1) = TextBox1.Text
Cells(i, 2) = TextBox2.Text
Cells(i, 3) = TextBox3.Text
Cells(i, 4) = TextBox4.Text
Cells(i, 5) = TextBox5.Text
Cells(i, 6) = TextBox6.Text
Cells(i, 7) = TextBox7.Text
Cells(i, = TextBox8.Text
Cells(i, 9) = TextBox9.Text
Cells(i, 10) = TextBox10.Text
Cells(i, 11) = TextBox11.Text
End If
Next
MsgBox "تمت الأضافة بنجاح"
Me.TextBox1.Value = ""
Me.TextBox2.Value = ""
Me.TextBox3.Value = ""
Me.TextBox4.Value = ""
Me.TextBox5.Value = ""
Me.TextBox6.Value = ""
Me.TextBox7.Value = ""
Me.TextBox8.Value = ""
Me.TextBox9.Value = ""
Me.TextBox10.Value = ""
Me.TextBox11.Value = ""
TextBox1.SetFocus

الاخ طارق
الملف المرفق لشرح الفيديوهات الاولى وهى على الرابط التالى

حمل

ارسل ملفك او جزء منه واكتب المطلوب فيه

تعليقات على فورم بحث وتعديل واضافة بيانات Ao10

الاخ طارق الفورم بعمل من خلال شيت بيانات تفتحة من الرئيسية يعمل من خلال بيانات كما فى الصورة والكود

[centerPrivate Sub TextBox12_Change()
Set sh12 = Sheets("بيانات")
Lr = sh12.[a2000].End(xlUp).Row
For Each CL In sh12.Range("a5:a100" & Lr)
If (Val(Me.TextBox12)) = CL Then
Me.TextBox1 = CL.Offset(0, 0)
Me.TextBox2 = CL.Offset(0, 1)
Me.TextBox3 = CL.Offset(0, 2)
Me.TextBox4 = CL.Offset(0, 3)
Me.TextBox5 = CL.Offset(0, 4)
Me.TextBox6 = CL.Offset(0, 5)
Me.TextBox7 = CL.Offset(0, 6)
Me.TextBox8 = CL.Offset(0, 7)
Me.TextBox9 = CL.Offset(0, Cool

Me.TextBox10 = CL.Offset(0, 9)
Me.TextBox11 = CL.Offset(0, 10)
End If
Next
End Sub][/center]

تابعت الفورم الموجود فى الفيديو التالى

عدد المساهمات : 7 تاريخ التسجيل : 06/02/2017

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

شكرا لك

عدد المساهمات : 7 تاريخ التسجيل : 09/02/2017

بارك الله فيك استاذ مجدي
في ميزان حسناتك ان شاء الله

» شرح طريقة بسيطة كيفية عمل فورم بحث وتعديل واضافة بيانات
» فورم بحث وتعديل واضافة بيانات الدرس التاسع ListBox
» فورم بحث واضافة وحذف صف وتعديل بيانات وشرح عمل ازرار بالفورم فيديو 47
» فورم بحث وتعديل واضافة بيانات الدرس الخامس تعديلات على الفورم
» فورم بحث واضافة وتعديل وحذف وترحيل وطباعة بطريقتين فيديو 2 ترحيل بيانات وترقيم فورى