05-05-14, 10:12 PM
-
جرب هذا التعديل بعد الاستفادة من مواضيع المنتدى.....
(أتمنى يكون الكود أكثر تنظيماً ومرتب ليسهل على الأخوة الأعضاء مساعدتك مع تسمية الأدوات بأسماء مناسبة مثل Combo4 يكون cmb_Situ وعدم تركها بأسماءها الإفتراضية)
ملاحظة:
الأداة cmb_N_AP فيها بيانات رقمية على شكل نصي مثل 03
والعمود N_AP في قاعدة البيانات نصي ولكن تم تعبئة بشكل رقمي فقط مثل 3 بدون صفر
لهذا أضطررت إلى التعامل مع كرقم وذلك بوضع VAL لها لحين تقوم أنت بمراجعته.
(وقد يكون هناك ما يحتاج مراجعة)
-
جرب هذا التعديل بعد الاستفادة من مواضيع المنتدى.....
(أتمنى يكون الكود أكثر تنظيماً ومرتب ليسهل على الأخوة الأعضاء مساعدتك مع تسمية الأدوات بأسماء مناسبة مثل Combo4 يكون cmb_Situ وعدم تركها بأسماءها الإفتراضية)
كود :
'--------------------------------------------------------------------------------------------------------
Me.cmb_Sup.Text = Val(Me.cmb_Sup.Text)
Dim sql As String
sql = " SELECT * FROM [ACCUEILLE] WHERE [Sup] >= " & Val(Me.cmb_Sup.Text) & " "
If Trim(Me.cmb_Situ.Text) <> "" Then sql = sql & " AND [Situ] = '" & Trim(Me.cmb_Situ.Text) & "' "
If Trim(Me.cmb_Vue.Text) <> "" Then sql = sql & " AND [Vue] = '" & Trim(Me.cmb_Vue.Text) & "' "
If Trim(Me.cmb_N_IM.Text) <> "" Then sql = sql & " AND [N_IM] = '" & Trim(Me.cmb_N_IM.Text) & "' "
If Val(Me.cmb_N_AP.Text) <> 0 Then sql = sql & " AND [N_AP] = '" & Val(Me.cmb_N_AP.Text) & "' "
If Trim(Me.cmb_N_ET.Text) <> "" Then sql = sql & " AND [N_ET] = '" & Trim(Me.cmb_N_ET.Text) & "' "
Rs.Open sql
'--------------------------------------------------------------------------------------------------------ملاحظة:
الأداة cmb_N_AP فيها بيانات رقمية على شكل نصي مثل 03
والعمود N_AP في قاعدة البيانات نصي ولكن تم تعبئة بشكل رقمي فقط مثل 3 بدون صفر
لهذا أضطررت إلى التعامل مع كرقم وذلك بوضع VAL لها لحين تقوم أنت بمراجعته.
(وقد يكون هناك ما يحتاج مراجعة)
-
