jjafferr

أخي أبوعلاء :) اﻻفضل أن ترفق قاعدة بياناتك حتى انظر فيها :) جعفر

حياك الله :) جعفر

تفضل ، هذا كود النموذج كاملا :) Option Compare Database Sub FilterData() 'For Each ctrl In Me 'If TypeOf ctrl Is ComboBox Then 'If ctrl.Name = "name1" Or ctrl.Name = "name2" Then 'ctrl.SetFocus 'If ctrl.Text <> "" Then Criteria = Criteria & " And [" & ctrl.Nam…

وعليكم السلام بوحسين :) هذا المثال من عمل اختنا الفاضلة الدكتورة أم عهود :) انا انزلت البرنامج ، وشغال بدون اخطاء ، وتقدر تغير مصدر المعلومات من استعلام الى جدول كذلك ، لكن الدكتورة ربطت الكود وملف الاكسل ، ربطتهم باسم الااستعلام :) كود ارسال جدول او استعلام ا…

:) اسمح لي اشرح الكود لانه سهل ، بس لان القيم الثلاث فيه ، قد يجعله في نظرك صعب: 1. نحن عندنا عدد 2 مربع سرد ، و قائمة اختيار واحده ، يعني عندنا ثلاث حقول للفلتر ، 2. الطريقة اننا لا نعمل فلتر مستقل لكل مربع سرد او اختيار ، وانما نجعل Sub اسميته Check_Selected…

تفضل :) 1. نعمل حقل في النموذج الرئيسي ، انا سميته Filter_By ، وطبعا تقدر تخفيه بعدين ، 2. لمربع السرد ItemNo ، في RecordSource ، نضيف الفلتر وهو عبارة عن قيمة Filter_By في النموذج الفرعي ، 3. وهذا الكود يعمل الباقي :) Private Sub cmd_A_Click() Call Filtering(…

وكيف نعرف الخدمات نوع A ؟

وعليكم السلام :) يعني تريد عمل فلتر على A او B او C حسب ضغطة الزر؟ جعفر

:)

حياك الله :)

:)

حياك الله :) واعتذر عن الرد على طلبك ، لأنه غير معقول وفوق قدراتي البشرية :( يعني كيف اجيب لك شئ غير موجود اصلا!! ما انت قلت "رقم ساقط / محذوف / ملغي" ، يعني حأجيبه لك معلومته منين :haha: جعفر

تفضل ، المشكلة كانت هنا :) Private Sub name2_AfterUpdate() DoCmd.ApplyFilter "", "[requierd] ='" & [Forms]![results]![name2] & "'" End Sub وانصحك ان تمر على الرابط التالي ، لأني عملت الفلتر بطريقة سلسه :) : /index.php/topic/292771-%D8%AA%D8%B5%D9%81%D9%8A%D8%A…

اخي العزيز ابوعلاء :) الارقام المفقودة او الملغية: في الواقع المسألة جذبت انتباهي ، وحاولت عدم الرد ، ولكن التحدي ارغمني على قبوله :) ومثل ما توقعت ، المسأله لم تكن سهلة ، ولا علاقة لها بالاستعلام :( وغيرت في الكود عدة مرات ، الى ان توصلت الى طريقة جدا سهلة (و…

الله يطول في عمرك اخوي :) ياريت تخبرني كل المطلوب مرة واحدة وما تعطينا الطلبات بالقطارة :( لأن المبرمج انت ، وانت فاهم تفاصيل برنامجك ، وإما نحن فنحاول مساعدتك فقط في السؤال اللي تطرحه ، وما نتطرق لبقية البرنامج ، ولا حتى نعرفه :( تفضل هذه الاضافة التي طلبتها …

طيب جرب تخليه على الحدث On Error للنموذج الرئيسي ، هكذا: Private Sub Form_Error(DataErr As Integer, Response As Integer) If DataErr = 3044 Then Response = 0 End If End Sub جعفر

تفضل :) 260.تجربه.mdb.zip

الافضل استخدام حث "الحالي" في النموذج ، بدل حدث "عند التحميل" والذي اعطيتك سابقا؟ Private Sub Form_Current() On Error GoTo err_Form_Current Call Ctl1_AfterUpdate Exit Sub err_Form_Current: If Err.Number = 3044 Then Resume Next Else MsgBox Err.Number & vbCrLf &…

هذا بالضبط ما يفعله الكود في مشاركتي السابقة :) جعفر

الظاهر انه الخطأ 3044 (حسب ما بحثت في الانترنت الان) ، حاول الآتي: في اول نموذج تفتحة ، ضع الكود الآتي: Private Sub Form_Load() On Error GoTo err_Form_Load ' ' 'اذا كان عندك كود سابق ، فيوضع هنا ' ' Exit Sub err_Form_Load: If Err.Number = 3044 Then Resume Next…