jjafferr

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

اخي خلف 🙂 هذا التقرير تم عمله خصيصا لنتائج الاستعلام الجدولي الخاص بالاخ Monm ، وكما ترى ، انه بتغير متغيرات الاستعلام ، فالتقرير يتوسع وينقبض حسب حقول وبيانات الاستعلام ، ولا يحتاج الى عمل استعلام/تقرير جديد كلما تغيرت المتغيرات/المعايير ، وانما الكود في التقرير مرن ويقوم بالتعديل. هذا مجرد مثال على طريقة عمل تقرير لإستعلام جدولي ، واذ احببت ، افتح موضوع جديد ، وارفق فيه برنامجك علشان نضبطه مثل هذا التقرير 🙂 جعفر

وعليكم السلام 🙂 ولا يهمك ، ان شاء الله معاك الى ان نتمم الموضوع 🙂 خلينا نمشي بالخطوات التالية لوسمحت: 1. انزل المرفق (هو نفسه المرفق السابق ، ولكن بتعديل بسيط على واجهة النموذج فقط) ، وافتح البرنامج ، 2. ادخل في VBE عن طريق الكيبورد Ctrl+G او Alt+F11 او تفتح اي حدث ، 3. اكتب السطرين التاليين (انتبه لمكانهم) في حدث التقرير: . 4. تأكد ان نافذة النتائج المباشرة مفتوحة في الاسفل (الرقم 3 في الصورة ادناه) : . 5. افتح النموذج tqrer واختار الشهر والادارة مثل ما هو في الصورة ، ثم انقر على زر "فتح" ليفتح التقرير . 6. انا عندي احصل على هذه النتائج في التقرير: . 7. اذهب الى VBE ، وفي نافذة النتائج المباشرة اللي عملناها ، انا احصل على: . اذا رقم 6 و 7 اعلاه عندك غير عن اللي عندي ، رجاء ترفق لي صورة الرقم 6 و بيانات الرقم 7 🙂 جعفر rpt_Monthly_Crosstab.zip

السلام عليكم 🙂 اشكرك على المثال الذي ارفقته ، فقد ساعدني للوصول الى التالي: البرنامج كان يحتاج الى تعديلات اساسية ، فقمت بعمل بعض الاضافات والتعديلات عليه: 1. عمل جدول خاص للمدرسين ، ولكل واحد رقمه الخاص Teacher_ID (حتى لا تتشابه الاسماء) ، ورقم المدرسة التي هو بها SID : . 2. عملت جدول ، ذكرت فيه رقم المدرسة SID ، والقاعات المسموح ان يقوم المدرسين بمراقبتها : . 3. على هذا الاساس ، عملت استعلام ، حتى نعرف القاعات التي نسمح للمدرسين ان يراقبوها : . والنتيجة: . وسنقوم بعمل القرعة من جديد ، بناء على اعلاه ، فسؤالي: هل نتائج الاستعلام صحيحة؟ انت قلت في مشاركاتك الخاصة بالموضوع: 1- وضع كل ستة مدرسين في كل قاعة 2- يجب اختيار هؤلاء المعلمين الستة في ثلاث مدارس مختلفة ولكن نصفهم من الذكور وآخرون الإناث 3- كل المعلم في قاعات مدينتهم 4- تكرار اسم المعلم غير مسموح في قاعات المختلفه‌. ممكن تساعدني مرة ثانية وتعمل لي مثال في صفحة اكسل (ولكن رجاء استعمل الاسماء Teacher_ID الموجودة في قاعدة البيانات المرفقة) ، وحسب شروطك اعلاه ، للقاعات 111 و 113 . يعني شغلنا سيكون على الاستعلام فقط ان شاء الله 🙂 شكرا 2020.zip

آه نسيت هذه الجزئية ، شكرا اخب خلف 🙂 هنا نقاش عن هذا الموضوع كذلك: . وهنا جعفر

1. انت محتاج الى هذا الكود فقط Private Sub الاسم_BeforeUpdate(Cancel As Integer) If DCount("*", "العميل", "[الاسم]='" & Me.الاسم & "'") > 0 Then MsgBox "هذا الاسم موجود بالفعل", vbCritical, "التكرار ممنوع" Me.Undo Cancel = True End If End Sub . 2. افتح موضوع جديد لكل سؤال 🙂 جعفر

وعليكم السلام 🙂 من الصعب مساعدتك في برنامج مغلق ، ولكن: 1. استخدم هذا الرابط ، وبعدها جرب برنامجك: 2. الشيء الثاني اللي يجي في بالي ، هو ان توقف اي شيء فيه ActiveX ، وكذلك جرب (لاحظ ، ان النموذج الذي فيه هذه الاداه ، هو النموذج الذي ينتج منه خطأ). جعفر

اعطنا مثال لوسمحت 🙂 جعفر

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

وعليكم السلام 🙂 fc.controltype جعفر

هذا الموضوع مخالف لقوانين المنتدي ×××××××× يغلق ×××××××× الإدارة

نعم اخي عدنان ، رجاء مراعاة هذه الشروط 🙂 وشكرا لك اخي kanory 🙂 تم تعديل العنوان. جعفر

السلام عليكم 🙂 اخي ريباز ، صار لي فترة انظر في موضوعك بدون ان اوصل الى شيء 😞 لو تسمح ، تُدخل بيانات كاملة لفئة معينة من المدرسين ، في القاعات المسموحة ، والقاعات الغير مسوح لهم ، ثم من هذه البيانات ، اعمل النتائج على صفحة اكسل ، ارفقها ، حتى نحاول تقليدها برمجيا 🙂 جعفر

ولكن كيف يمكن ان نستفيد منها لتصدير التقرير؟

انا في الخدمة قدر المستطاع 🙂 كانت لي تجارب مع Power Point هنا: http://arabteam2000-forum.com/index.php?/topic/279726-تدوير-مربع-النص-في-التقرير-rotate/&do=findComment&comment=1350599 اختر المجلد اولا 🙂 جعفر

وعليكم السلام اخي صالح 🙂 شيء جميل 🙂 ظهر لي هذا الخطأ: . وبعد متابعة الكود ، اتضح ان الكود يقف على هذا السطر: PptApp.ActivePresentation.SaveAs Me.LctionTxt, ppSaveAsJPG, msoTrue والمشكلة هي ان الحقل Me.LctionTxt في النموذج ينتهي بالشرطة \ ، مما يعني انه يجب ان نُدخل اسم المجلد الذي نريد ان نحفظ فيه المجلد ، او نحذف الشرطة ، حتى يتم الحفظ 🙂 جعفر

وبتعديل على كود الاخ kanory ، ولكن بالمقلوب 🙂 If application.CurrentProject.Name = "Date1.mdb" Then Me.Com1.Visible = false Else Me.Com1.Visible = true End If جعفر

1. هذه صورة التقرير في نسختي: . وهي تتماشى مع بيانات الاستعلام الجدولي: . 2. انا عملت عرض الصفحة ثابت ، ويُطبق على جميع حقول التاريخ ، ويمكن تغييره من هنا: . مع ملاحظة ان القيمة هنا بصيغة twips : 1 بوصة = 1440 تويبس 1 سنتيمتر = 567 تويبس 96 بكسل = 1440 تويبس جعفر

السلام عليكم 🙂 اسم قاعدة البيانات application.CurrentProject.Name مسار قاعدة البيانات application.CurrentProject.Path اسم ومسار قاعدة البيانات application.CurrentDb.Name جعفر

السلام عليكم 🙂 هذا ليس التقرير اللي انا عملته !! جعفر

السلام عليكم 🙂 وهذه طريقة بالاستعلام ، وبدون المساس بالجدول 🙂 . والنتيجة . جعفر 1007.المركزي.accdb.zip

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

1. البرنامج فيه تقرير واحد فقط ، وهو يصلح لجميع الاختيار (من النموذج) ، 2. كل شيء موجود في الاستعلام ، يظهر في التقرير ، 3. وفيه التسميات 🙂 وفي هذه النسخة ، الكود موجود في التقرير ، ولا يحتاج الى حذف او تغيير ، فهو مرن لجميع الاشهر ، بغض النظر عن عدد الحقول وعدد السجلات 🙂 جعفر rpt_Monthly_Crosstab.accdb.zip

و احذف الصح عن جميع اللي في الرقم 3 و 4

تفضل 🙂 @Echo off Echo decompiling D:\progrms\test.accdb "C:\Program Files(x86)\Microsoft Office\Office12\msaccess.exe" "D:\progrms\test.accdb" /decompile /cmd shutdown Echo compacting D:\progrms\test.accdb "C:\Program Files(x86)\Microsoft Office\Office12\msaccess.exe" "D:\progrms\test.accdb" /compact Echo compiling D:\progrms\test.accdb "C:\Program Files(x86)\Microsoft Office\Office12\msaccess.exe" "D:\progrms\test.accdb" /cmd compile Echo compacting D:\progrms\test.accdb "C:\Program Files(x86)\Microsoft Office\Office12\msaccess.exe" "D:\progrms\test.accdb" /compact Echo Opening D:\progrms\test.accdb , and Exiting .bat start "" "C:\Program Files(x86)\Microsoft Office\Office12\msaccess.exe" "D:\progrms\test.accdb"