تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مساعده فى البحث فى الاداه List1 بعد اختيار عده اختيارات مجمعه منها
#1
الساده المحترمين اعضاء المنتدى.

الرجاء مساعدتى فى كود البحث كما فى المرفقات.

عندى اقسام مختلفه بالشركه مثل ( الانتاج - الحسابات - المشتريات - الامن الادارى ... الخ).

وعندى برنامج يعمل ولله الحمد جيدا و طلب منى ان يقوم البرنامج بالبحث عن طلبات الصيانه بالقسم .

و هو المتواجد حالياً ولكن بعد وقت طويل طلب منى التعديل على البرنامج ليتمكن المستخدم من البحث عن عده اقسام معينه بعد عمل select على check box فى الأداه list1.

فلم استطيع ضبط الاداه كما هو موضح فى المرفقات .


فهل اجد من يساعدنى فى التعديل على المرفقات او كيفيه عمل جمله البحث كما هو سابق الذكر ،  علماً بأن آداه الربط مع قواعد البيانات هى الــ data control .

وجزاكم الله خيرا وزادكم علماً.


الملفات المرفقة
.rar   Test.rar (الحجم : 64.27 ك ب / التحميلات : 14)
لا اله الا انت سبحانك انى كنت من الظالمين.
اللهم انك عفو كريم حليم تحب العفو فاعفوا عنا.
اللّهُمَّ اغْفِرْ لِي وَلِوالِدَيَّ وَارْحَمْهُما كَما رَبَّيانِي صَغِيراً، اللَّهُمَّ اجْزِهِما بِالاِحْسانِ إِحْسانا وَبِالسَّيِّئاتِ غُفْرانا، اللَّهُمَّ اغْفِرْ لِلْمُؤْمِنينَ وَالمُؤْمِناتِ الاَحْياءِ مِنْهُمْ وَالاَمْواتِ.
سبحان الله والحمدلله ولا إله إلا الله والله أكبر زنه عرشك ومداد كلماتك ورضاء نفسك وكما ينبغى لجلال شأنك وعظيم سلطانك وعدد ما كان وعدد ما سيكون وعدد الحركات و السكون وعدد ما نعلم وعدد مالانعلم وعدد كل شيئ احصيته بعلمك يا كريم
الرد }}}}
تم الشكر بواسطة:
#2
أهلا بك أخي الكريم , تم تعديل المثال .


الملفات المرفقة
.rar   Test_1.rar (الحجم : 64.48 ك ب / التحميلات : 33)
الرد }}}}
#3
جزاكم الله خيرا أخى أحمد

وبارك الله فيك وزادك علماً .

جارى التجربه
لا اله الا انت سبحانك انى كنت من الظالمين.
اللهم انك عفو كريم حليم تحب العفو فاعفوا عنا.
اللّهُمَّ اغْفِرْ لِي وَلِوالِدَيَّ وَارْحَمْهُما كَما رَبَّيانِي صَغِيراً، اللَّهُمَّ اجْزِهِما بِالاِحْسانِ إِحْسانا وَبِالسَّيِّئاتِ غُفْرانا، اللَّهُمَّ اغْفِرْ لِلْمُؤْمِنينَ وَالمُؤْمِناتِ الاَحْياءِ مِنْهُمْ وَالاَمْواتِ.
سبحان الله والحمدلله ولا إله إلا الله والله أكبر زنه عرشك ومداد كلماتك ورضاء نفسك وكما ينبغى لجلال شأنك وعظيم سلطانك وعدد ما كان وعدد ما سيكون وعدد الحركات و السكون وعدد ما نعلم وعدد مالانعلم وعدد كل شيئ احصيته بعلمك يا كريم
الرد }}}}
تم الشكر بواسطة: Ahmed_Mansoor , Amir_alzubidy , Amir_alzubidy
#4
بارك الله فيك اخى احمد

انها تعمل جيداً

وبارك الله فى جميع الاعضاء و اساتذتنا الكبار
لا اله الا انت سبحانك انى كنت من الظالمين.
اللهم انك عفو كريم حليم تحب العفو فاعفوا عنا.
اللّهُمَّ اغْفِرْ لِي وَلِوالِدَيَّ وَارْحَمْهُما كَما رَبَّيانِي صَغِيراً، اللَّهُمَّ اجْزِهِما بِالاِحْسانِ إِحْسانا وَبِالسَّيِّئاتِ غُفْرانا، اللَّهُمَّ اغْفِرْ لِلْمُؤْمِنينَ وَالمُؤْمِناتِ الاَحْياءِ مِنْهُمْ وَالاَمْواتِ.
سبحان الله والحمدلله ولا إله إلا الله والله أكبر زنه عرشك ومداد كلماتك ورضاء نفسك وكما ينبغى لجلال شأنك وعظيم سلطانك وعدد ما كان وعدد ما سيكون وعدد الحركات و السكون وعدد ما نعلم وعدد مالانعلم وعدد كل شيئ احصيته بعلمك يا كريم
الرد }}}}
تم الشكر بواسطة:
#5
اخى العزيز أحمد

واجهتنى مشكله أخرى عند دمج التعديل الذى ارسلته مع برنامجى

و هى تتمثل فى انه عندما أبحث عن كل طلبات الصيانه من قسم ( الانتاج - التقنى - المخازن ) بعد عمل تحديد لهمList1 ثم اختار الطلبات التى تم ارسالها لقسم الميكانيكا Combo10 و على خط الانتاج رقم (PM3) على سبيل المثال Combo8 النتيجه تكون خاطئه ؟

يأتى بجميع الاقسام ( ميكانيكا - كهرباء - لحام ).

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

وجزاكم الله خيراً.


الملفات المرفقة
.rar   Test_1.rar (الحجم : 33.97 ك ب / التحميلات : 14)
لا اله الا انت سبحانك انى كنت من الظالمين.
اللهم انك عفو كريم حليم تحب العفو فاعفوا عنا.
اللّهُمَّ اغْفِرْ لِي وَلِوالِدَيَّ وَارْحَمْهُما كَما رَبَّيانِي صَغِيراً، اللَّهُمَّ اجْزِهِما بِالاِحْسانِ إِحْسانا وَبِالسَّيِّئاتِ غُفْرانا، اللَّهُمَّ اغْفِرْ لِلْمُؤْمِنينَ وَالمُؤْمِناتِ الاَحْياءِ مِنْهُمْ وَالاَمْواتِ.
سبحان الله والحمدلله ولا إله إلا الله والله أكبر زنه عرشك ومداد كلماتك ورضاء نفسك وكما ينبغى لجلال شأنك وعظيم سلطانك وعدد ما كان وعدد ما سيكون وعدد الحركات و السكون وعدد ما نعلم وعدد مالانعلم وعدد كل شيئ احصيته بعلمك يا كريم
الرد }}}}
تم الشكر بواسطة:
#6
أهلا أخي الكريم , تم تعديل كود زر البحث على حسب ماكان موجود في جملة الإستعلام , هذا كود زر البحث :

PHP كود :
Private Sub Command1_Click()

If 
List1.ListCount <= 0 Then Exit Sub

Dim ZSQL 
As String
Dim I 
As Integer

For 0 To List1.ListCount 1
    If List1
.Selected(I) = True Then
       
If Trim$(ZSQL) = "" Then
          ZSQL 
"Issuing_Department ='" Trim$(List1.List(I)) & "'"
 
      Else
 
         ZSQL ZSQL " or Issuing_Department ='" Trim$(List1.List(I)) & "'"
 
      End If
 
   End If
Next
    
If Trim$(ZSQL) = "" Then
   
Exit Sub
Else
 
  If InStr(1ZSQL"=") > 1 Then ZSQL "(" ZSQL ")"
End If

If 
Trim$(Combo4.Text) <> "" Then ZSQL ZSQL " and Type='" Trim$(Combo4.Text) & "'"

If Trim$(Combo9.Text) <> "" Then ZSQL ZSQL " and work_purpose='" Trim$(Combo9.Text) & "'"

If Trim$(Combo10.Text) <> "" Then ZSQL ZSQL " and section='" Trim$(Combo10.Text) & "'"

If Trim$(Combo8.Text) <> "" Then ZSQL ZSQL " and Line='" Trim$(Combo8.Text) & "'"

If Trim$(Combo5.Text) <> "" Then ZSQL ZSQL " and Issued_satus='" Trim$(Combo5.Text) & "'"

If Trim$(Combo7.Text) <> "" Then ZSQL ZSQL " and Requested_by='" Trim$(Combo7.Text) & "'"

If Trim$(Combo14.Text) <> "" Then ZSQL ZSQL " and Request_Type='" Trim$(Combo14.Text) & "'"

Data1.RecordSource "select * from RRS where " ZSQL " order by RRS"
Data1.Refresh
If Data1.Recordset.RecordCount 0 Then Data1.Recordset.MoveLast

End Sub 
الرد }}}}
تم الشكر بواسطة: Ashraf Elafify
#7
بارك الله فيك أخى

بصراحة روعه زادكم الله علماً اخى الكريم و جعل الله مساعدتك لنا فى ميزان حسناتك.

جزاكم الله خيراً.
لا اله الا انت سبحانك انى كنت من الظالمين.
اللهم انك عفو كريم حليم تحب العفو فاعفوا عنا.
اللّهُمَّ اغْفِرْ لِي وَلِوالِدَيَّ وَارْحَمْهُما كَما رَبَّيانِي صَغِيراً، اللَّهُمَّ اجْزِهِما بِالاِحْسانِ إِحْسانا وَبِالسَّيِّئاتِ غُفْرانا، اللَّهُمَّ اغْفِرْ لِلْمُؤْمِنينَ وَالمُؤْمِناتِ الاَحْياءِ مِنْهُمْ وَالاَمْواتِ.
سبحان الله والحمدلله ولا إله إلا الله والله أكبر زنه عرشك ومداد كلماتك ورضاء نفسك وكما ينبغى لجلال شأنك وعظيم سلطانك وعدد ما كان وعدد ما سيكون وعدد الحركات و السكون وعدد ما نعلم وعدد مالانعلم وعدد كل شيئ احصيته بعلمك يا كريم
الرد }}}}
تم الشكر بواسطة: Ahmed_Mansoor , Ahmed_Mansoor


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [vb6.0] البحث بشرطين Abdellah 14 372 13-05-17, 12:29 PM
آخر رد: Abdellah
  [vb6.0] طريقة استخلاص البحث من البحث larbihamri 13 257 06-05-17, 12:59 AM
آخر رد: Ahmed_Mansoor
  البحث بين تاريخين SQL 2008 +vb6 أبو عقيل 4 108 05-05-17, 08:57 AM
آخر رد: Ahmed_Mansoor
  [vb6.0] ارجو المساعدة باجراء البحث بين MSHFlexGrid1 و MSHFlexGrid2 بحقل واحد و إجراء عملية ح عبدالقادرعواد 6 152 27-04-17, 11:56 AM
آخر رد: عبدالقادرعواد
Question [vb6.0] الماذا لايظهر اسم المدينة عند اختيار اسم الدولة في برنامجي المرفق ؟؟ Microformt 1 92 22-03-17, 10:25 PM
آخر رد: السيد الغالي
  الاحتفاظ بنتائج البحث Abdellah 16 461 14-03-17, 03:05 AM
آخر رد: Abdellah
  [vb6.0] مساعده في كود ترقيم تلقائي للفواتير باضافه احرف قبل الرقم iAwadop 4 138 26-02-17, 07:31 PM
آخر رد: iAwadop
Information [vb6.0] تظهر لي هذه الرساله المرفقه عند عمل اعداد لبرنامج ما المقصود منها ؟؟ Microformt 0 75 14-02-17, 09:23 PM
آخر رد: Microformt
  استفسار عن البحث في عدة حقول واربعه كمبوبكس alfakeehy 8 426 05-02-17, 07:39 PM
آخر رد: alfakeehy
Question [vb6.0] كيف انشي استعلام يظهر عدد نتايج البحث؟؟ Microformt 1 156 29-01-17, 09:33 PM
آخر رد: السيد الغالي

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم