jjafferr

🙂

هذا معناه انه لا توجد سجلات بين هذين الرقمين 🙂 استعمل هذه الطريقة للتخلص من هذه الرسالة: private sub abc_click() on erroro goto err_abc_click dim rst as dao.recordset mySQL = "Select * From Query2" mySQL = mySQL & " WHERE IDStu Between " & [Forms]![X1]![A1] & " And " & [Forms]![X1]![A2] debug.print mySQL 'حتى نرى الجملة كاملة في اسفل الشاشة، ونستطيع لصقها في الاستعلام حتى نرى النتيجة هناك Set rst = CurrentDb.OpenRecordset(mySQL) rst.MoveLast: rst.MoveFirst Exit_abc_click: rst.close: set rst=nothing exit sub err_abc_click: if err.number=3021 then 'no records resume Exit_abc_click else msgbox err.number & vbcrlf & err.description end if end sub جعفر

متابع

السلام عليكم 🙂 اخي ابو بشري ، المنتدى موجود لتبادل الخبرات ، والانتقال الى محادثة خاصه تحرم الجميع من الاستفادة من الاجابه. جعفر

شكرا جزيلا اخي عصام 🙂 اللي خلاني اضيع في السؤال هي هذه الجملة: لهذا السبب كنت محتاج توضيح اكثر 🙂 جعفر

وعليكم السلام 🙂 اذا كان الحقل IDStu رقم: mySQL = "Select * From Query2" mySQL = mySQL & " WHERE IDStu Between " & [Forms]![X1]![A1] & " And " & [Forms]![X1]![A2] Set rst = CurrentDb.OpenRecordset(mySQL) rst.MoveLast: rst.MoveFirst بينما اذا كان الحقل IDStu تاريخ: mySQL = "Select * From Query2" mySQL = mySQL & " WHERE IDStu Between #" & [Forms]![X1]![A1] & "# And #" & [Forms]![X1]![A2] & "#" Set rst = CurrentDb.OpenRecordset(mySQL) rst.MoveLast: rst.MoveFirst جعفر

اخي الفاضل ، رجاء توضيح المطلوب ، وبالتفصيل ، لأني ما فهمت قصدك !!

وعليكم السلام 🙂 الاكسس يأخذ هذه المعلومة من نظام الوندوز : . . Metric معناه قياس السنتيمتر. وبعد حفظ هذه الاعدادات ، الاكسس سيظهر لك القياس بالسنتيمتر 🙂 جعفر

تفضل 🙂 تم تغيير نوع الحقل A1 في الجدول StuSce من نوع مذكرة الى نوع رقم، حتى يتم الربط بين الجدولين برنامج متابعة غياب طلاب الفراغات.zip

الله يسامحك ، صار لي كذا ساعة وانا محتار ، الاستعلام qry_SubSt ما يعطيني نتائج !! واذا بالبيانات اللي انت وضعتها لليوم والحصة في جدول SubSt ، كلها تبدأ ب مسافة فارغة Space !! على العموم تفضل 🙂 جعفر برنامج متابعة غياب طلاب الفراغات.zip

وعليكم السلام 🙂 واهلا وسهلا بالدكتور حلبي 🙂 ايش رأيك اعلمك كيف تصطاد ، بدل ما اعطيك سمكة 🙂 جعفر

اخي الفاضل ، مرفقك الاصل مافيه بيانات في الجدول SubSt لهذا السبب طلبت منك ان تضيف بيانات في الجدول SubSt وترفقه ، ولايزال هذا طلبي 🙂 انت عندك علاقة بين جدولي Table1 و SubSt ، فإذا مافي بيانات في الجدول SubSt ، فما تظهر لك بيانات في حقل الطالب. إلا اذا انا اصلا فهمي كله كان خطأ جعفر

وارفقه هنا 🙂

اختار اليوم والحصة ، وبعدين اختار اسم الطالب ، وارفقه هنا 🙂 جعفر

انا اللي عملته هو للنموذج الفرعي فقط !! لوسمحت تجرب هذا المرفق ، واذا في مشكلة ، فيجب ان تكتب شوية بيانات في الجدول SubSt 🙂 جعفر برنامج متابعة غياب طلاب الفراغات.zip

الظاهر اني فهمتك خطأ !! لوسمحت تنسخ هذه المعادلات وتضعها في الاستعلام ، بدلا عن اللي موجودة حاليا: دائن: IIf([المبلغ]>0,[المبلغ],0) مدين: IIf([المبلغ]<0,[المبلغ],0) جعفر

وعليكم السلام 🙂 واهلا وسهلا بك في المنتدى 🙂 رجاء مراجعة قوانين المنتدى: اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة و بصفة خاصة نؤكدعلى ما يلي 1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة 2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد. 3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال. 4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا..... 5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم. ومخالفة ذلك تعرض الموضوع للحذف هناك طريقتين يجون على بالي: 1. نعمل استعلام qry_SubSt اللي مصدر بياناته الجدول SubSt ، وفيه معيار البحث لحقلي اليوم والحصة : ويكون هذا الاستعلام مصدر بيانات النموذج الفرعي SubSt ، ويكون هذا الكود بعد تحديث الحقلين في النموذج: 2. ربط النموذج الرئيسي بالفرعي ، بالحقول المطلوبة : جعفر 1113‏‏برنامج غياب طلاب الفراغات - نسخة.zip

بس اقتراحي ما فيه تغيير في النماذج ، وبالعكس المفروض سهل عمله 🙂 جرب اقتراحي في نموذج او اثنين ، وعليه اتخاذك للقرار يكون افضل 🙂 جعفر

السلام عليكم شباب 🙂 ابو بهاء مو علوم وخبر 🙂 خلونا ننسى طلب ابو بهاء ، ونشوف عمل النموذج التالي: 1. عندي جدول ، 2.1. عملت استعلام 1 لهذا الجدول qry_1 ، لأدخال البيانات ، 2.2. عملت استعلام 2 لهذا الجدول qry_2 ، للبحث ، بحيث يكون هناك معيار/معايير لحقول البحث ، وهذه المعايير تشير الى حقول النموذج ، مثل (Forms!frm_1!ID) 3. عملت نموذج يأخذ بياناته من هذه الاستعلامات ، حسب صلاحيات المستخدم: أ.1. للمستخدم العادي ، نفتح النموذج بالطريقة العادية: docmd.openform "frm_1" أ.2. لمستخدمي البحث ، نفتح النموذج للقراءة فقط: docmd.OpenForm "frm_1",,,,acFormReadOnly ب. ممكن اعمل سجل جديد ، بدون مشاكل ، بإستخدام qry_1 ج. علشان البحث ، استخدم qry_2 د. اعمل على حدث فتح النموذج ، الكود التالي: if user_Group=1 then me.recordsource=qry_1 elseif user_Group=2 then me.recordsource=qry_2 end if اعتقد ممكن استعمال هذه الطريقة لأخونا ابو بهاء 🙂 جعفر

وعليكم السلام 🙂 حسب فهمي للموضوع ، هناك طريقتين: 1. تضيف كلمة true في معيار الحقلين : . او 2. . جعفر

وعليكم السلام ابو عبدالله 🙂 سؤالك غير واضح ، يا ريت تعمل مثال من بياناتك في ورقة اكسل/وورد مثلا 🙂 جعفر

حياك الله 🙂 على راسي ، ولكن شروط المنتدى لا تسمح لأكثر من سؤال في موضوع واحد 🙂 رجاء ارفاق رابط بالموضوع ، او تعمل موضوع جديد ، وترفق الرابط هنا 🙂 جعفر

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

السلام عليكم 🙂 اذا تسمحوا لي بالمشاركة 🙂 لإصطياد رقم الخطأ ، يجب علينا ان نستعمل حدث "on error" ، في النموذج الذي نحصل فيه على الخطأ ، وفي حالتنا ، فهو النموذج الفرعي ، هكذا: Private Sub Form_Error(DataErr As Integer, Response As Integer) MsgBox DataErr End Sub وعند التجربة ، نحصل على هذا: الآن وقد عرفنا رقم الخطأ ، اصبح من السهل التعامل معاه ، هكذا مثلا: Private Sub Form_Error(DataErr As Integer, Response As Integer) 'MsgBox DataErr If DataErr = 3314 Then Response = acDataErrContinue strMsg = "لا يمكن ترك الحقل التالي فارغ " & vbCrLf & _ "المنصرف بالوحدة الصغرى" MsgBox strMsg End If End Sub ونلقى هذه الرسالة الآن: جعفر 1110.Market.accdb.zip

السلام عليكم 🙂 رجاء من الجميع الالتزام بقوانين المنتدى ، والاهم حُسن استعمال الالفاظ ، وبدون تجريح لأحد 🙂 جعفر