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

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

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

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

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

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

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

_________________

لا تعطيني سمكة ... و لكن علمني كيف أصطاد السمك

من أحب الله رأى كل شئ جميلا

مع تحياتى مجدى يونس

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

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

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

الفيديو

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

الرمز:

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

_________________

لا تعطيني سمكة ... و لكن علمني كيف أصطاد السمك

من أحب الله رأى كل شئ جميلا

مع تحياتى مجدى يونس

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

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

اكواد زر بحث

الرمز:

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

الفيديو

_________________

لا تعطيني سمكة ... و لكن علمني كيف أصطاد السمك

من أحب الله رأى كل شئ جميلا

مع تحياتى مجدى يونس

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

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

_________________

لا تعطيني سمكة ... و لكن علمني كيف أصطاد السمك

من أحب الله رأى كل شئ جميلا

مع تحياتى مجدى يونس

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

_________________

لا تعطيني سمكة ... و لكن علمني كيف أصطاد السمك

من أحب الله رأى كل شئ جميلا

مع تحياتى مجدى يونس

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

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

كود الشاشة

الرمز:

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

_________________

لا تعطيني سمكة ... و لكن علمني كيف أصطاد السمك

من أحب الله رأى كل شئ جميلا

مع تحياتى مجدى يونس

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

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

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

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

الفيديو

حمل الملف

_________________

لا تعطيني سمكة ... و لكن علمني كيف أصطاد السمك

من أحب الله رأى كل شئ جميلا

مع تحياتى مجدى يونس

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

شكرا يااستاذ
بس ياريت ترفع الملف مره ثانيه

ان شاء الله

_________________

لا تعطيني سمكة ... و لكن علمني كيف أصطاد السمك

من أحب الله رأى كل شئ جميلا

مع تحياتى مجدى يونس

» فورم بحث واضافة وتعديل وحذف وترحيل وطباعة بطريقتين فيديو 2 ترحيل بيانات وترقيم فورى
» فورم بحث واضافة وتعديل وحذف وترحيل وطباعة بطريقتين فيديو 2 ترحيل بيانات وترقيم فورى
» فورم ترحيل بيانات متفرقة وترحيل لشيت اخر وتعديل بيانات
» فورم ترحيل بيانات متفرقة وترحيل لشيت اخر وتعديل بيانات
» فورم بحث واضافة وتعديل وحذف وترحيل بطريقتين فيديو6تعديل