ارجوا المساعدة في جوهرتين من اعمال الاستاذ خبور خير

[nicola]

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

تحية شكر وتقدير لاساتذة المنتدى الاكارم 

 

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

 

 

حاليا اعمل على ملف يتركز على اعمال الاستاذ عبدالله حفظه الله

ولكني واجهة مشكلتين في استدعاء البيانات 

 

حيث انني استخدم كلا الملفين

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

2-فورم ادخال و تعديل مرن

 

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

في الملف الثاني اريد تحديد البيانات التي اريد اظهارها في فورم الادخال

 

في المرفق توجد التفاصيل

 

ولكم جزيل الشكر والتحية

 

فورم الادخال +فورم البحث.rar

[nicola]

للرفع

[nicola]

للرفع

[nicola]

للرفع

[احمد عبد الناصر]

السلام عليكم

 

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

 

كمحاولة جرب استبدال Private Sub ComboBox1_Change  بهذا 

 

Private Sub ComboBox1_Change()
Select Case ComboBox1.ListIndex
Case 0
Run "kh_Find1":
Case 1
Run "kh_Find2":
Case 2
Run "kh_Find3":
End Select

ComboFind.Clear
'==========================
With Me.ComboFind
    .Column = sRng.Rows(1).Value
    .ListIndex = 0
    .Style = 2
End With
'==========================
End Sub

 

تحياتي

[احمد عبد الناصر]

اما بالنسبة لفورم ادخال و تعديل مرن 

 

في نهاية Private Sub UserForm_Activate

 

ضيف هذا السطر

 

Me.ScrollBar1.Value = UserForm1.ComboBox1.ListIndex + 1

 

تحياتي 

[nicola]

مشكور اخي احمد عبد الناصر  

 

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

ولكن بقت المشكلة عند البحث 

حيث تظهر جميع البيانات المحددة وغير المحددة ضمن مجال البحث

 

واتمنى ان تكمل معروفك في مساعدتي 

ولك جزيل الشكر والتحية

[احمد عبد الناصر]

السلام عليكم

 

جرب اضافة هذا السطر 

 

ContColmn = sRng.Columns.Count

 

في اول Private Sub CommandButton1_Click

و في اول Private Sub ButtonFind_Click

 

ارجو ان تنجح

 

تحياتي

[nicola]

اخي الكريم احمد عبد الناصر

 

ما شاء الله عنك

مبدع دائما 

بارك الله فيك

وزادك الله علما من اوسع ابوابة

 

تحياتي لك 

تم تعديل مارس 31, 2013 بواسطه nicola