وعندى برنامج يعمل ولله الحمد جيدا و طلب منى ان يقوم البرنامج بالبحث عن طلبات الصيانه بالقسم .
و هو المتواجد حالياً ولكن بعد وقت طويل طلب منى التعديل على البرنامج ليتمكن المستخدم من البحث عن عده اقسام معينه بعد عمل select على check box فى الأداه list1.
فلم استطيع ضبط الاداه كما هو موضح فى المرفقات .
فهل اجد من يساعدنى فى التعديل على المرفقات او كيفيه عمل جمله البحث كما هو سابق الذكر ، علماً بأن آداه الربط مع قواعد البيانات هى الــ data control .
وجزاكم الله خيرا وزادكم علماً.
لا اله الا انت سبحانك انى كنت من الظالمين.
اللهم انك عفو كريم حليم تحب العفو فاعفوا عنا.
اللّهُمَّ اغْفِرْ لِي وَلِوالِدَيَّ وَارْحَمْهُما كَما رَبَّيانِي صَغِيراً، اللَّهُمَّ اجْزِهِما بِالاِحْسانِ إِحْسانا وَبِالسَّيِّئاتِ غُفْرانا، اللَّهُمَّ اغْفِرْ لِلْمُؤْمِنينَ وَالمُؤْمِناتِ الاَحْياءِ مِنْهُمْ وَالاَمْواتِ.
سبحان الله والحمدلله ولا إله إلا الله والله أكبر زنه عرشك ومداد كلماتك ورضاء نفسك وكما ينبغى لجلال شأنك وعظيم سلطانك وعدد ما كان وعدد ما سيكون وعدد الحركات و السكون وعدد ما نعلم وعدد مالانعلم وعدد كل شيئ احصيته بعلمك يا كريم
لا اله الا انت سبحانك انى كنت من الظالمين.
اللهم انك عفو كريم حليم تحب العفو فاعفوا عنا.
اللّهُمَّ اغْفِرْ لِي وَلِوالِدَيَّ وَارْحَمْهُما كَما رَبَّيانِي صَغِيراً، اللَّهُمَّ اجْزِهِما بِالاِحْسانِ إِحْسانا وَبِالسَّيِّئاتِ غُفْرانا، اللَّهُمَّ اغْفِرْ لِلْمُؤْمِنينَ وَالمُؤْمِناتِ الاَحْياءِ مِنْهُمْ وَالاَمْواتِ.
سبحان الله والحمدلله ولا إله إلا الله والله أكبر زنه عرشك ومداد كلماتك ورضاء نفسك وكما ينبغى لجلال شأنك وعظيم سلطانك وعدد ما كان وعدد ما سيكون وعدد الحركات و السكون وعدد ما نعلم وعدد مالانعلم وعدد كل شيئ احصيته بعلمك يا كريم
لا اله الا انت سبحانك انى كنت من الظالمين.
اللهم انك عفو كريم حليم تحب العفو فاعفوا عنا.
اللّهُمَّ اغْفِرْ لِي وَلِوالِدَيَّ وَارْحَمْهُما كَما رَبَّيانِي صَغِيراً، اللَّهُمَّ اجْزِهِما بِالاِحْسانِ إِحْسانا وَبِالسَّيِّئاتِ غُفْرانا، اللَّهُمَّ اغْفِرْ لِلْمُؤْمِنينَ وَالمُؤْمِناتِ الاَحْياءِ مِنْهُمْ وَالاَمْواتِ.
سبحان الله والحمدلله ولا إله إلا الله والله أكبر زنه عرشك ومداد كلماتك ورضاء نفسك وكما ينبغى لجلال شأنك وعظيم سلطانك وعدد ما كان وعدد ما سيكون وعدد الحركات و السكون وعدد ما نعلم وعدد مالانعلم وعدد كل شيئ احصيته بعلمك يا كريم
واجهتنى مشكله أخرى عند دمج التعديل الذى ارسلته مع برنامجى
و هى تتمثل فى انه عندما أبحث عن كل طلبات الصيانه من قسم ( الانتاج - التقنى - المخازن ) بعد عمل تحديد لهمList1 ثم اختار الطلبات التى تم ارسالها لقسم الميكانيكا Combo10 و على خط الانتاج رقم (PM3) على سبيل المثال Combo8 النتيجه تكون خاطئه ؟
يأتى بجميع الاقسام ( ميكانيكا - كهرباء - لحام ).
فهل من الممكن مساعدتى فى ضبط كود البحث كما فى المرفقات
وجزاكم الله خيراً.
لا اله الا انت سبحانك انى كنت من الظالمين.
اللهم انك عفو كريم حليم تحب العفو فاعفوا عنا.
اللّهُمَّ اغْفِرْ لِي وَلِوالِدَيَّ وَارْحَمْهُما كَما رَبَّيانِي صَغِيراً، اللَّهُمَّ اجْزِهِما بِالاِحْسانِ إِحْسانا وَبِالسَّيِّئاتِ غُفْرانا، اللَّهُمَّ اغْفِرْ لِلْمُؤْمِنينَ وَالمُؤْمِناتِ الاَحْياءِ مِنْهُمْ وَالاَمْواتِ.
سبحان الله والحمدلله ولا إله إلا الله والله أكبر زنه عرشك ومداد كلماتك ورضاء نفسك وكما ينبغى لجلال شأنك وعظيم سلطانك وعدد ما كان وعدد ما سيكون وعدد الحركات و السكون وعدد ما نعلم وعدد مالانعلم وعدد كل شيئ احصيته بعلمك يا كريم
19-10-16, 01:55 AM (آخر تعديل لهذه المشاركة : 19-10-16, 01:57 AM {2} بواسطة Ahmed_Mansoor.)
أهلا أخي الكريم , تم تعديل كود زر البحث على حسب ماكان موجود في جملة الإستعلام , هذا كود زر البحث :
PHP كود :
Private Sub Command1_Click()
If List1.ListCount <= 0 Then Exit Sub
Dim ZSQL As String Dim I As Integer
For I = 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(1, ZSQL, "=") > 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
بصراحة روعه زادكم الله علماً اخى الكريم و جعل الله مساعدتك لنا فى ميزان حسناتك.
جزاكم الله خيراً.
لا اله الا انت سبحانك انى كنت من الظالمين.
اللهم انك عفو كريم حليم تحب العفو فاعفوا عنا.
اللّهُمَّ اغْفِرْ لِي وَلِوالِدَيَّ وَارْحَمْهُما كَما رَبَّيانِي صَغِيراً، اللَّهُمَّ اجْزِهِما بِالاِحْسانِ إِحْسانا وَبِالسَّيِّئاتِ غُفْرانا، اللَّهُمَّ اغْفِرْ لِلْمُؤْمِنينَ وَالمُؤْمِناتِ الاَحْياءِ مِنْهُمْ وَالاَمْواتِ.
سبحان الله والحمدلله ولا إله إلا الله والله أكبر زنه عرشك ومداد كلماتك ورضاء نفسك وكما ينبغى لجلال شأنك وعظيم سلطانك وعدد ما كان وعدد ما سيكون وعدد الحركات و السكون وعدد ما نعلم وعدد مالانعلم وعدد كل شيئ احصيته بعلمك يا كريم