فورم بحث واظهار النتائج

[أب مارية]

السلام عليكم 

لقد قمت بالاستعادنة بفورم البحث لأستاذنا حامدة عمر وقمت باجراء بعض التغييرات في صفحة العمل وكذلك الفورم وهناك بعض الاستفسارات أرجو المساعدة 

شرح المطلوب في المرفقات

فورم بحث .rar

[أب مارية]

السلام عليكم

ماهو الخطأ في كود التعديل والترحيل التالي حيث أنه بعد الضغط على زر التعديل تبقى المعلومات على حالها ولا يجرى التعيدل

 

Private Sub Bout3MF_Click()

Dim i As Integer

For i = 9 To 17

If ComboBox4.Text = Cells(i, 1) Then

Cells(i, 2) = TextBoxAF48.Text

Cells(i, 3) = TextBoxAF49.Text

Cells(i, 4) = TextBoxAF50.Text

Cells(i, 5) = TextBoxAF51.Text

Cells(i, 6) = TextBoxAF52.Text

Cells(i, 7) = TextBoxAF53.Text

End If

Next

 

MsgBox "Les cordonnées de fournisseur modifier avec succée"

Me.ComboBox4 = ""

 

Me.TextBoxAF48.Value = ""

Me.TextBoxAF49.Value = ""

Me.TextBoxAF50.Value = ""

Me.TextBoxAF51.Value = ""

Me.TextBoxAF52.Value = ""

Me.TextBoxAF52.Value = ""

ComboBox4.SetFocus

End Sub

تم تعديل مارس 19, 2014 بواسطه foular

[أبوعيد]

غير القيمة 0 في السطر التالي الموجود في التكست بوكس P36

If Application.WorksheetFunction.Search(M, Q, 0) = 1 Then

إلى القيمة 1 كالتالي

If Application.WorksheetFunction.Search(M, Q, 1) = 1 Then

ولاحظ النتيجة

[أب مارية]

السلام عليكم

اخي ابو عيد بارك الله فيك على المعلومة نجح الامر

وهل هناك حل لمشكل التعديل 

في انتظار الحل تفبلوا مني فائق التقدير والاحترام

[أب مارية]

للرفع

[أبوعيد]

إذهب إلى   Private Sub ListBoxP1_Click()

وغير هذا السطر

CommandButton2.Enabled = false

إلى

CommandButton2.Enabled = True

[أب مارية]

السلام عليكم

أخي أبو عيد المشكل في الكود فهة لجعل الزر مفعل أو غير مفعل حيث أنه بعد اجراء التعديل يصبح مفعل لكن المشكل هو عند اجراء التعديل والقيام بالترحيل لا يكون تغيير في الجدول 

أرجو تجريب المرفق 

تم تعديل مارس 20, 2014 بواسطه foular