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

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

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

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

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

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


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

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


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


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

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

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

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

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

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

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

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

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

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


الملفات المرفقة
.rar   Test_1.rar (الحجم : 33.97 ك ب / التحميلات : 21)
لا اله الا انت سبحانك انى كنت من الظالمين.
اللهم انك عفو كريم حليم تحب العفو فاعفوا عنا.
اللّهُمَّ اغْفِرْ لِي وَلِوالِدَيَّ وَارْحَمْهُما كَما رَبَّيانِي صَغِيراً، اللَّهُمَّ اجْزِهِما بِالاِحْسانِ إِحْسانا وَبِالسَّيِّئاتِ غُفْرانا، اللَّهُمَّ اغْفِرْ لِلْمُؤْمِنينَ وَالمُؤْمِناتِ الاَحْياءِ مِنْهُمْ وَالاَمْواتِ.
سبحان الله والحمدلله ولا إله إلا الله والله أكبر زنه عرشك ومداد كلماتك ورضاء نفسك وكما ينبغى لجلال شأنك وعظيم سلطانك وعدد ما كان وعدد ما سيكون وعدد الحركات و السكون وعدد ما نعلم وعدد مالانعلم وعدد كل شيئ احصيته بعلمك يا كريم
الرد }}}}
تم الشكر بواسطة:
#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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  عدد سجلات البحث Abdellah 7 162 15-09-17, 06:09 PM
آخر رد: عبد العزيز البسكري
  البحث عن ملف في اداة file list hannileo 2 83 31-08-17, 12:07 PM
آخر رد: hannileo
  [vb6.0] نتائج البحث ali.anwer87 7 218 22-07-17, 07:24 PM
آخر رد: ali.anwer87
  [vb6.0] عندي مشكلة في البحث ali.anwer87 4 156 05-07-17, 08:18 PM
آخر رد: ali.anwer87
  البحث بين تاريخين مصمم هاوي 5 225 06-06-17, 03:21 AM
آخر رد: Amir_alzubidy
  [vb6.0] البحث بشرطين Abdellah 14 743 13-05-17, 12:29 PM
آخر رد: Abdellah
  [vb6.0] طريقة استخلاص البحث من البحث larbihamri 13 523 06-05-17, 12:59 AM
آخر رد: Ahmed_Mansoor
  البحث بين تاريخين SQL 2008 +vb6 أبو عقيل 4 221 05-05-17, 08:57 AM
آخر رد: Ahmed_Mansoor
  [vb6.0] ارجو المساعدة باجراء البحث بين MSHFlexGrid1 و MSHFlexGrid2 بحقل واحد و إجراء عملية ح عبدالقادرعواد 6 274 27-04-17, 11:56 AM
آخر رد: عبدالقادرعواد
Question [vb6.0] الماذا لايظهر اسم المدينة عند اختيار اسم الدولة في برنامجي المرفق ؟؟ Microformt 1 180 22-03-17, 10:25 PM
آخر رد: السيد الغالي

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


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