تعلم واقرأ وارتقِ
[img]فورم بحث وتعديل واضافة بيانات شرح بالفيديو مع الاكواد Uoou910[/img]
تعلم واقرأ وارتقِ
هل تريد التفاعل مع هذه المساهمة؟ كل ما عليك هو إنشاء حساب جديد ببضع خطوات أو تسجيل الدخول للمتابعة.

تعلم واقرأ وارتقِ


 
الرئيسيةالبوابةالتسجيلدخول
غفرانك ربنا واليك المصير
رب زدني علما
سجل بالمنتدى ليظهر لك باقى المواضيع المهمه
سبحانك لا علم لنا إلا ما علمتنا أنك أنت العليم
علم اولادك برياض الأطفال والصفوف الأولى من التعليم الابتدائى
مجدى يونس ببورسعيد
أهلا بك من جديد يا زائر آخر زيارة لك كانت في
آخر عضو مسجل arabicnet فمرحبا به

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

 

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

اذهب الى الأسفل 
كاتب الموضوعرسالة
مجدى يونس
Admin
مجدى يونس

عدد المساهمات : 1428
تاريخ التسجيل : 17/05/2012
الموقع : محافظة بورسعيد

فورم بحث وتعديل واضافة بيانات شرح بالفيديو مع الاكواد Empty
مُساهمةموضوع: فورم بحث وتعديل واضافة بيانات شرح بالفيديو مع الاكواد   فورم بحث وتعديل واضافة بيانات شرح بالفيديو مع الاكواد Icon_minitimeالخميس ديسمبر 01, 2016 9:43 pm

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



الاخوة الزملاء

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

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

شرح بالفيديوهات مع الاكواد

واليكم الفيديو الاول بداية تنفيذ شكل الفورم والدخول الى vb



_________________
لا تعطيني سمكة ... و لكن علمني كيف أصطاد السمك
من أحب الله رأى كل شئ جميلا
مع تحياتى مجدى يونس
الرجوع الى أعلى الصفحة اذهب الى الأسفل
https://magdiyonis1.forumegypt.net
مجدى يونس
Admin
مجدى يونس

عدد المساهمات : 1428
تاريخ التسجيل : 17/05/2012
الموقع : محافظة بورسعيد

فورم بحث وتعديل واضافة بيانات شرح بالفيديو مع الاكواد Empty
مُساهمةموضوع: رد: فورم بحث وتعديل واضافة بيانات شرح بالفيديو مع الاكواد   فورم بحث وتعديل واضافة بيانات شرح بالفيديو مع الاكواد Icon_minitimeالخميس ديسمبر 01, 2016 9:46 pm

الاخوة الزملاء

اليكم الدرس الثانى

كيفية عمل زر اضافة مع ادخال الاكواد

الفيديو






الكود المستحدم فى الشرح

الرمز:


Dim iRow As Long
Dim ws As Worksheet

Set ws = Worksheets("بيانات")
iRow = ws.Cells(Rows.Count, 1) _
  .End(xlUp).Offset(1, 0).Row

ws.Cells(iRow, 1).Value = Me.TextBox1.Value
ws.Cells(iRow, 2).Value = Me.TextBox2.Value
ws.Cells(iRow, 3).Value = Me.TextBox3.Value
ws.Cells(iRow, 4).Value = Me.TextBox4.Value
ws.Cells(iRow, 5).Value = Me.TextBox5.Value
ws.Cells(iRow, 6).Value = Me.TextBox6.Value
ws.Cells(iRow, 7).Value = Me.TextBox7.Value
ws.Cells(iRow, Cool.Value = Me.TextBox8.Value
ws.Cells(iRow, 9).Value = Me.TextBox9.Value
ws.Cells(iRow, 10).Value = Me.TextBox10.Value
ws.Cells(iRow, 11).Value = Me.TextBox11.Value

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 = ""
Me.TextBox1.SetFocus



_________________
لا تعطيني سمكة ... و لكن علمني كيف أصطاد السمك
من أحب الله رأى كل شئ جميلا
مع تحياتى مجدى يونس
الرجوع الى أعلى الصفحة اذهب الى الأسفل
https://magdiyonis1.forumegypt.net
مجدى يونس
Admin
مجدى يونس

عدد المساهمات : 1428
تاريخ التسجيل : 17/05/2012
الموقع : محافظة بورسعيد

فورم بحث وتعديل واضافة بيانات شرح بالفيديو مع الاكواد Empty
مُساهمةموضوع: رد: فورم بحث وتعديل واضافة بيانات شرح بالفيديو مع الاكواد   فورم بحث وتعديل واضافة بيانات شرح بالفيديو مع الاكواد Icon_minitimeالجمعة يناير 06, 2017 5:51 am

اليكم الدرس الثالث

كيفية عمل زر بحث مع ادخال الاكواد

اكواد زر بحث

الرمز:
Private 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, 
Me.TextBox10 = cl.Offset(0, 9)
Me.TextBox11 = cl.Offset(0, 10)
End If
Next

End Sub


كود زر اغلاق الفورم

الرمز:
Private Sub CommandButton4_Click()
End
End Sub


الفيديو




_________________
لا تعطيني سمكة ... و لكن علمني كيف أصطاد السمك
من أحب الله رأى كل شئ جميلا
مع تحياتى مجدى يونس
الرجوع الى أعلى الصفحة اذهب الى الأسفل
https://magdiyonis1.forumegypt.net
مجدى يونس
Admin
مجدى يونس

عدد المساهمات : 1428
تاريخ التسجيل : 17/05/2012
الموقع : محافظة بورسعيد

فورم بحث وتعديل واضافة بيانات شرح بالفيديو مع الاكواد Empty
مُساهمةموضوع: رد: فورم بحث وتعديل واضافة بيانات شرح بالفيديو مع الاكواد   فورم بحث وتعديل واضافة بيانات شرح بالفيديو مع الاكواد Icon_minitimeالجمعة يناير 06, 2017 5:52 am

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


الرمز:
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, Cool = 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

_________________
لا تعطيني سمكة ... و لكن علمني كيف أصطاد السمك
من أحب الله رأى كل شئ جميلا
مع تحياتى مجدى يونس
الرجوع الى أعلى الصفحة اذهب الى الأسفل
https://magdiyonis1.forumegypt.net
مجدى يونس
Admin
مجدى يونس

عدد المساهمات : 1428
تاريخ التسجيل : 17/05/2012
الموقع : محافظة بورسعيد

فورم بحث وتعديل واضافة بيانات شرح بالفيديو مع الاكواد Empty
مُساهمةموضوع: رد: فورم بحث وتعديل واضافة بيانات شرح بالفيديو مع الاكواد   فورم بحث وتعديل واضافة بيانات شرح بالفيديو مع الاكواد Icon_minitimeالجمعة يناير 06, 2017 5:53 am

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




_________________
لا تعطيني سمكة ... و لكن علمني كيف أصطاد السمك
من أحب الله رأى كل شئ جميلا
مع تحياتى مجدى يونس
الرجوع الى أعلى الصفحة اذهب الى الأسفل
https://magdiyonis1.forumegypt.net
مجدى يونس
Admin
مجدى يونس

عدد المساهمات : 1428
تاريخ التسجيل : 17/05/2012
الموقع : محافظة بورسعيد

فورم بحث وتعديل واضافة بيانات شرح بالفيديو مع الاكواد Empty
مُساهمةموضوع: رد: فورم بحث وتعديل واضافة بيانات شرح بالفيديو مع الاكواد   فورم بحث وتعديل واضافة بيانات شرح بالفيديو مع الاكواد Icon_minitimeالجمعة يناير 06, 2017 5:54 am

مع الفيديو السادس 

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

كود الشاشة

الرمز:
If TextBox1.Value = "" Or TextBox2.Value = "" Then
    MsgBox "الرجاء ادخال المعلومات كاملة "
    Else
    If TextBox1.Value = "مجدى" And TextBox2.Value = "123" Then
MsgBox "مرحبا بكم في برنامج شيت كنترول مع تحياتي / مجدى عبد المنعم يونس - بورسعيد "
Unload Me

Else
MsgBox "خطأ بكلمة المرور أو إسم المستخدم .... فضلا أعد المحاولة تحياتى / مجدى يونس"
Application.Quit
End If

End If






كود فتح الفورم


الرمز:
Private Sub CommandButton7_Click()
magdi.Hide
rr.Show
End Sub

_________________
لا تعطيني سمكة ... و لكن علمني كيف أصطاد السمك
من أحب الله رأى كل شئ جميلا
مع تحياتى مجدى يونس
الرجوع الى أعلى الصفحة اذهب الى الأسفل
https://magdiyonis1.forumegypt.net
مجدى يونس
Admin
مجدى يونس

عدد المساهمات : 1428
تاريخ التسجيل : 17/05/2012
الموقع : محافظة بورسعيد

فورم بحث وتعديل واضافة بيانات شرح بالفيديو مع الاكواد Empty
مُساهمةموضوع: رد: فورم بحث وتعديل واضافة بيانات شرح بالفيديو مع الاكواد   فورم بحث وتعديل واضافة بيانات شرح بالفيديو مع الاكواد Icon_minitimeالجمعة يناير 06, 2017 5:57 am

لاخوة الزملاء

مع الفيديو السابع

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

{ وَقُلِ اعْمَلُوا فَسَيَرَى اللَّهُ عَمَلَكُمْ وَرَسُولُهُ وَالْمُؤْمِنُونَ }

الفيديو





حمل الملف

_________________
لا تعطيني سمكة ... و لكن علمني كيف أصطاد السمك
من أحب الله رأى كل شئ جميلا
مع تحياتى مجدى يونس
الرجوع الى أعلى الصفحة اذهب الى الأسفل
https://magdiyonis1.forumegypt.net
ابو احمد



عدد المساهمات : 2
تاريخ التسجيل : 30/04/2019

فورم بحث وتعديل واضافة بيانات شرح بالفيديو مع الاكواد Empty
مُساهمةموضوع: رد: فورم بحث وتعديل واضافة بيانات شرح بالفيديو مع الاكواد   فورم بحث وتعديل واضافة بيانات شرح بالفيديو مع الاكواد Icon_minitimeالخميس مايو 02, 2019 10:26 pm

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

عدد المساهمات : 1428
تاريخ التسجيل : 17/05/2012
الموقع : محافظة بورسعيد

فورم بحث وتعديل واضافة بيانات شرح بالفيديو مع الاكواد Empty
مُساهمةموضوع: رد: فورم بحث وتعديل واضافة بيانات شرح بالفيديو مع الاكواد   فورم بحث وتعديل واضافة بيانات شرح بالفيديو مع الاكواد Icon_minitimeالسبت مايو 04, 2019 8:33 am

ان شاء الله

_________________
لا تعطيني سمكة ... و لكن علمني كيف أصطاد السمك
من أحب الله رأى كل شئ جميلا
مع تحياتى مجدى يونس
الرجوع الى أعلى الصفحة اذهب الى الأسفل
https://magdiyonis1.forumegypt.net
 
فورم بحث وتعديل واضافة بيانات شرح بالفيديو مع الاكواد
الرجوع الى أعلى الصفحة 
صفحة 1 من اصل 1

صلاحيات هذا المنتدى:لاتستطيع الرد على المواضيع في هذا المنتدى
تعلم واقرأ وارتقِ :: تعلم الاكسل-
انتقل الى: