jjafferr

وهل تستعمل البرنامج بإخفاء الخلفية الاكسس؟

شكرا لك اخي خالد 🙂 في طريقة اخرى ، باستخدام الامر instr داخل الاستعلام ، متعبة بعض الشيء ، وقد بدأت العمل عليها ، ولكني اريد بيانات حقيقية للتجربة عليها ، ويكون جدا صعب تغيير العمل اذا كانت البيانات بطريقة غير!! شوف الاستعلامات qry_1 و qry_2 و qry_3 ، وطبعا لازم اكملها لبقية الحقول 🙂 طيب ، لوسمحت ابو عبد الله ، اعطينا بعض الكلمات الحقيقة اللي عندك ، ويا ريت في جدول في الاكسس ، علشان نشوف كيف نقدر نحل الموضوع 🙂 والسبب في طلب بيانات حقيقية ، هي ان الجواب يكون تفصيل خاص لطريقة عرض كلماتك. جعفر 1116.1.Split.mdb

وعليكم السلام اخوي ابو زاهر 🙂 للأسف الشديد ما عندي فكرة !! يمكن احد من الشباب صادف هذه المشكلة ، ويعطينا الحل 🙂 جعفر

السلام عليكم 🙂 شوف الاستعلام qry_Split جعفر 1116.Split.mdb.zip

🙂

هذا معناه انه لا توجد سجلات بين هذين الرقمين 🙂 استعمل هذه الطريقة للتخلص من هذه الرسالة: 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. . جعفر

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