ابوخليل

النموذج المذكور لعرض جميع الطلاب ، فحين تضع امر طباعة سيتم طباعة الكل اما الكود اعلاه فهو مخصص لحصر عدد مرات الطباعة لطالب محدد تجد في المرفق المعدل اني حصرت الطباعة في الصفحة الأولى فقط (( يمكنك جعل النموذج لا يعرض الا طالب واحد )) ولآن مصدر بيانات النموذج عبارة عن استعلام تجميعي ومشروط ايضا لذا فإنك لن ترى التغير في حقل عدد مرات الطباعة الا بعد اغلاق النموذج ثم فتحه مرة اخرى . علمي2.rar

الله يعينك ، صحيح لخبطة ولكن المهم النتيجة التي تريدها يحتاج توضحها لنا اكثر س: المدفعي يمكن يكون آمر ويمكن لا . ؟ ، وكذلك اآمر يمكن يكون مدفعي ويمكن لا ؟ هل هذا صحيح ؟ اذا كان الجواب = صحيح فانت عليك تعتمد المسمى الفعلي فقط والرأي طبعا لكم انتم اهل الشأن ,,

اهلا وسهلا حياك الله بين اخوانك هذا مثال تم فيه تطبيق ما طلبت جمع كل صفحة.rar

تفضل تجربه12.rar

حياك الله يا بو فيصل بالنسبة للتقرير يمكنك جمع التقارير في واحد كتقارير فرعية ، ويمكن الربط بينها او عدمه حسب الحاجة وحسب تأسيس الجداول عندك اما الوظيفة ما رأيك لو كانت هكذا : 1- آمر 2- مدفعي 3- آمر مدفعي 4- ......

Dim x As Integer x = Nz(DLookup("printCount", "table1", "id=" & Me.id)) + 1 DoCmd.RunSQL "UPDATE table1 SET table1.printCount=" & x التجديث يكون آليا الكود اعلاه ضعه في حدث الطباعة ، تحت سطر الطباعة على اعتبار : printCount الحقل في الجول id معرف table1 الجدول غير حسب الاسماء عندك سيقوم هذا الكود بزيادة 1 الى الحقل المحدد عند كل امر طباعة

اخي حفظك الله ورعاك ايضا عنوان غير مناسب فهو لا يصف الموضوع ، حيث ان المطلوب كلمة مرور وصلاحيات مستخدمي طبعا لا يخفى ان حسن اختيار العنوان يساعد في عملية البحث مستقبلا تم تعديل العنوان

تفضل مثال للتحكم بألوان خلفية علامة الجدولة بالتوفيق ،،، TabsVer16.rar

اخوي بارك الله فيك الرجاء قراءة قواعد المشاركه في المنتدى و الالتزام بها http://www.officena....s/Questions.htm 1- عنوان مخالف 2- طرح اكثر من سؤال

جزاك الله خيرا استاذنا الكريم تدعو الحاجة اليها كثيرا خاصة في مستندات وورد

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

ممكن ويسير ان لم تحصل على الاجابة من احد الاخوة فارفق مثالك على الاصدار 2003

خصائص / تنسيق / عدد الاعمدة = الاعمدة الفعلية الموجودة داخل مربع التحرير عرض الاعمدة = اجعل جميع الاعمدة = صفر ما عدا العمود الذي تريد ظهوره اجعله يساوي مثلا 3

المفهوم من كلامك انك تريد البحث عن مجموعة سجلات دفعة واحدة الجواب : يمكن تحقيق ذلك على شرط ان الارقام المراد لصقها تكون على هيئة قائمة (عمود) اذا كان كذلك فارفق مثالك لنجرب امكانية التطبيق

تم فصل المشاركة بموضوع مستقل ملحوظة : الاخ حبيب ارفق مثالا للتطبيق

ارفق مثالك لفحص الخلل ملحوظة : تم فصل المشاركات في عنوان مستقل

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

نعم يصلح انظر المثال المرفق خاصة الاستعلام اما يكون افضل ؟ فحسب ما تطلبه من نتائج : فهنا ليس افضل لان المواد ستكون الزامية db2.rar

استأذنكم اخواني لنقل هذا الموضوع الى مكانه المناسب (قسم الاكسل ) وتحديث العنوان ايضا

طبيعي ان تتحرك الى اليسار لان حساب البعد يبدأ من اليسار كل 500 تقترب الى اليمين بمقدار 1سم تقريبا انظر المثال المرفق صغرت من عرض الحقل ووضعت خطوطا حتى يمكننا ان نرى الفرق بين 1 ، 50 ، 100 اعتقد اننا الآن نحرك الخلية لليمين وللاسفل فالرقم مثلا 5000 يجعل الخلية الى اليمين بالوسط تقريبا بين اليمين واليسار تصور ان هناك مسطرة وضعناها بشكل افقي على التقرير مرقمة من اليسار الى اليمين ( 1 الى 10000) فعند اختيارنا للرقم فنحن نحدد مكان الخلية على هذه المسطرة .، وأيضا ينطبق هذا الكلام على الحركة العمودية هذا ما اعلمه ، والله اعلم Move Cell3.rar

اخي الفاضل .. عبدالله باقشير سلمت أناملك هذه ثمرة الزيارة .. جزاك الله خيرا

استاذ عبدالله اعتقد انني توصلت الى طريقة لتشغيل الاستعلام فانظر المثال ان كانت تفي بالغرض ملحوظة : هناك error في حدث التصدير اتركه لك حيث لم يتبين لي مصدره ولكني الجمته استيراد وتصدير.rar

Docmd امر تشغيل داخل اكسس و RunSql لتنفيذ جملة الاستعلام هذا ما اعرفه ، ولا ادري نصف العلم فمثلا هذه الاسطر لحذف بيانات جدول في قاعدة بيانات اكسس خارجية ( موجودة ضمن مجلد البرنامج) Dim strSQL As String Dim srtPath As String srtPath = Application.CurrentProject.Path & "\kh.mdb" strSQL = "DELETE table1.* FROM table1" DoCmd.RunSQL strSQL

وعليكم السلام ورحمة الله وبركاته قدمت أهلا ووطئت سهلا أستاذنا العزيز لم يتضح لي ان كنت تريد الحذف في جدول اكسس ام اكسل في أكسس : جملة sql هذه لحذف جميع سجلات الجدول table1 دفعة واحدة DoCmd.RunSQL "DELETE table1.* FROM table1"

السبب انه كل طالب له درجة في اكثر من مادة وبالمقابل كل مادة مضافة الى اكثر من طالب ولو عملت كما تقول لاضطررت الى تكرار المواد بشكل رهيب ( عدد الطلاب ) لان كل طالب سيأخذ جميع المواد والذي يليه مثله وهكذا .... عملت لك النموذجين في المثال السابق قصدا . حتى تتضح لك الرؤية ، وتعرف الغاية من العلاقات المنشأة نموذج لادخال درجات المواد كلها لطالب والآخر لادخال درجة مادة لجميع تالطلاب