تعديل على الكود

[مجاهد2013]

السلام عليكم إخوتي :

عندي في الملف المرفق فورم بحث غيرت 04 تكست بوكس بأربعة كومبوبوكس فتعطل الفورم عن العمل

ممكن تعديل الكود و شكرا مسبقا

2-

 

فورم بحث .xlsm

[بن علية حاجي]

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

وضعت لك تعديلا على الكود في موضع آخر وأعيده هنا للفائدة... أرجو أن يفي بالغرض...

بن علية حاجي 

فورم بحث .rar

[أحمد يوسف]

استاذى الكريم شكرا لك لكن مازال هناك رسائل خطأ تظهر

 

[بن علية حاجي]

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

ماذا فعلت حتى ظهرت هذه الرسالة؟ لأن الرسالة تقول إن كائنا معينا غير موجود... 

بن علية حاجي 

[أحمد يوسف]

شكرا لك اخى الكريم

فقط عندما اقوم بالبحث فى تكست بوكس البحث

[بن علية حاجي]

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

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

بن علية حاجي 

فورم بحث .rar

[أحمد يوسف]

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

[مجاهد2013]

أستاذ علي لم أتمكن من فتح الملف هل لنوع الاوفيس دخل لأاني أعمل بالاوفيس 2007

و شكرا

[Ali Mohamed Ali]

يمكن هذا ولكن بعد اذن طبعا استاذنا الجليل بن علية

يمكنك لصق هذه الأكواد بدل التى لديك

Private Sub CommandButton1_Click()
For i = 1 To 11
   k = Choose(i, 1, 2, 3, 4, 8, 9, 11, 12, 13, 14, 15)
   Cells(r, k) = Controls("TextBox" & k).Text
Next i
For j = 1 To 4
   k = Choose(j, 5, 6, 7, 10)
   Cells(r, k) = Controls("ComboBox" & j).Text
Next j
ListBox1.List(i, 0) = TextBox2.Text
End Sub
Private Sub CommandButton2_Click()
lrw = Sheets(1).Cells(Rows.Count, 2).End(xlUp).Row
For i = 1 To 11
   k = Choose(i, 1, 2, 3, 4, 8, 9, 11, 12, 13, 14, 15)
   Sheets(1).Cells(lrw + 1, k) = Controls("TextBox" & k).Text
Next i
For j = 1 To 4
   k = Choose(j, 5, 6, 7, 10)
   Sheets(1).Cells(lrw + 1, k) = Controls("ComboBox" & j).Text
Next j
For m = 1 To 11
   Controls("TextBox" & Choose(m, 1, 2, 3, 4, 8, 9, 11, 12, 13, 14, 15)).Text = ""
Next m
For n = 1 To 4
   Controls("Combobox" & n).Text = ""
Next n
 
ListBox1.AddItem
ListBox1.List(ListBox1.ListCount - 1, 0) = Sheets(1).Cells(lrw + 1, 2).Value
ListBox1.List(ListBox1.ListCount - 1, 1) = lrw + 1
TextBox1.Value = Application.WorksheetFunction.Max(Sheets(1).Range("A2:A5000")) + 1
TextBox2.SetFocus
End Sub
Private Sub CommandButton3_Click()
If MsgBox("سيتم الحذف هل أنت متأكد؟", vbQuestion + vbYesNo) = vbYes Then
Sheets(1).Cells(r, 1).EntireRow.Delete
For Z = 1 To 15
Sheets(1).Cells(r, Z).Delete Shift:=xlUp
Next Z
Sheets(1).Cells(r, 1).Resize(r, 15).Delete Shift:=xlUp
MsgBox "تمت عملية الحذف بنجاح"
For X = 1 To 11
    k = Choose(X, 1, 2, 3, 4, 8, 9, 11, 12, 13, 14, 15)
    Controls("Textbox" & k).Text = ""
Next X
For Y = 1 To 4
   Controls("Combobox" & Y).Text = ""
Next Y

ListBox1.Clear
UserForm_Activate
TextBox16 = ""
End If
End Sub
Private Sub CommandButton4_Click()
    End
End Sub
Private Sub ListBox1_Click()
For i = 0 To ListBox1.ListCount
    If ListBox1.Selected(i) = True Then
        For j = 1 To 11
            k = Choose(j, 1, 2, 3, 4, 8, 9, 11, 12, 13, 14, 15)
            Controls("TextBox" & k).Text = Cells(ListBox1.List(i, 1), k)
        Next j
            ComboBox1.Text = Cells(ListBox1.List(i, 1), 5): ComboBox2.Text = Cells(ListBox1.List(i, 1), 6): _
            ComboBox3.Text = Cells(ListBox1.List(i, 1), 7): ComboBox4.Text = Cells(ListBox1.List(i, 1), 10)
        r = ListBox1.List(i, 1)
        Exit For
    End If
Next i
End Sub
Private Sub TextBox14_Change()
    TextBox14.Value = Format(TextBox14.Value, "HH:MM")
End Sub
Private Sub TextBox15_Change()
    TextBox15.Value = Format(TextBox15.Value, "HH:MM")
End Sub
Private Sub TextBox16_Change()
ListBox1.Clear
    For j = 1 To 11
        Controls("TextBox" & Choose(j, 1, 2, 3, 4, 8, 9, 11, 12, 13, 14, 15)).Text = ""
    Next j
    For k = 1 To 4
        Controls("Combobox" & k).Text = ""
    Next k
    If TextBox16 = "" Then Exit Sub
    Sheets(1).Activate
    ss = Sheets(1).Cells(Rows.Count, 2).End(xlUp).Row
     k = 0
          For Each C In Range("B2:B" & ss)
    If C Like TextBox16.Value & "*" Then
        ListBox1.AddItem
        ListBox1.List(k, 0) = Cells(C.Row, 2).Value
        ListBox1.List(k, 1) = C.Row
        k = k + 1
    End If
Next C
End Sub
Private Sub TextBox12_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If StrComp(TextBox12.Value, "DD/MM/YYYY", vbTextCompare) = 0 Then
     TextBox12.Value = ""
End If
End Sub
Private Sub TextBox13_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
 Dim dDate As Date
 dDate = DateSerial(Year(Date), Month(Date), Day(Date))
TextBox13.Value = Format(TextBox13.Value, "dd/mm/yyyy")
 dDate = TextBox13.Value
End Sub
Private Sub UserForm_Activate()
For i = 2 To Sheets(1).Cells(Rows.Count, 2).End(xlUp).Row
ListBox1.AddItem
' ListBox1.List(i - 1, 0) = Cells(i, 2).Value
' ListBox1.List(i - 1, 1) = i
      Next i
 For j = 1 To 11
    Controls("TextBox" & Choose(j, 1, 2, 3, 4, 8, 9, 11, 12, 13, 14, 15)).Text = ""
 Next j
 For k = 1 To 4
    Controls("Combobox" & k).Text = ""
 Next k

TextBox1.Value = Application.WorksheetFunction.Max(Sheets(1).Range("A2:A5000")) + 1
TextBox2.SetFocus
End Sub

 

[مجاهد2013]

تمام أستاذ على محمد ألصقت الكود شغال مية مية

ألف ألف شكر