الساده المحترمين اعضاء المنتدى.
الرجاء مساعدتى فى كود البحث كما فى المرفقات.
عندى اقسام مختلفه بالشركه مثل ( الانتاج - الحسابات - المشتريات - الامن الادارى ... الخ).
وعندى برنامج يعمل ولله الحمد جيدا و طلب منى ان يقوم البرنامج بالبحث عن طلبات الصيانه بالقسم .
و هو المتواجد حالياً ولكن بعد وقت طويل طلب منى التعديل على البرنامج ليتمكن المستخدم من البحث عن عده اقسام معينه بعد عمل select على check box فى الأداه list1.
فلم استطيع ضبط الاداه كما هو موضح فى المرفقات .
فهل اجد من يساعدنى فى التعديل على المرفقات او كيفيه عمل جمله البحث كما هو سابق الذكر ، علماً بأن آداه الربط مع قواعد البيانات هى الــ data control .
وجزاكم الله خيرا وزادكم علماً.
أهلا بك أخي الكريم , تم تعديل المثال .
جزاكم الله خيرا أخى أحمد
وبارك الله فيك وزادك علماً .
جارى التجربه
بارك الله فيك اخى احمد
انها تعمل جيداً
وبارك الله فى جميع الاعضاء و اساتذتنا الكبار
اخى العزيز أحمد
واجهتنى مشكله أخرى عند دمج التعديل الذى ارسلته مع برنامجى
و هى تتمثل فى انه عندما أبحث عن كل طلبات الصيانه من قسم ( الانتاج - التقنى - المخازن ) بعد عمل تحديد لهمList1 ثم اختار الطلبات التى تم ارسالها لقسم الميكانيكا Combo10 و على خط الانتاج رقم (PM3) على سبيل المثال Combo8 النتيجه تكون خاطئه ؟
يأتى بجميع الاقسام ( ميكانيكا - كهرباء - لحام ).
فهل من الممكن مساعدتى فى ضبط كود البحث كما فى المرفقات
وجزاكم الله خيراً.
أهلا أخي الكريم , تم تعديل كود زر البحث على حسب ماكان موجود في جملة الإستعلام , هذا كود زر البحث :
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
End Sub
بارك الله فيك أخى
بصراحة روعه زادكم الله علماً اخى الكريم و جعل الله مساعدتك لنا فى ميزان حسناتك.
جزاكم الله خيراً.