أحمد العيسى

سبق وأن طبقت حالة مشابهة فى تقرير لإظهار استمارة 1_سري للمدرسين بهذه الدالة =Mid([National_Nr];14;1) =Mid([National_Nr];13;1) . . حيث National_Nr هو حقل الرقم القومى الأرقام 14 ، 13 ، ... ، 1 هى ترتيب كل رقم داخل هذا الحقل من اليمين لليسار بينما رقم 1 المكرر فى كل دالة معناه اختيار عدد واحد فقط من 14 رقم ربما توجد طريقة أسهل من الزملاء .. لكن هذا الذى حقق الغرض عندى .

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

كان الهدف من وضع هذا التطبيق هنا هو التطوير ليكون تطبيق عام للمدرسين لمختلف المدارس كمثال : تقرير1 سري ... هل هو مناسب لجميع المدرسين ؟ الخدمات المطبوعة للمدرسين .. ما الناقص ليتم إضافته ؟ .......................................................... للأسف : 63 تحميل حتى هذه اللحظة ، ولا تعليق سلبى أو إيجابى !!

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

السلام عليكم قاعدة التطبيق تم عملها على أكسس 2003 وهى تعمل أيضاً على أى أكسس حتى 2024 أكواد القاعدة تحتوى على الكثير والكثير من الأفكار والحيل الرائعة لمحترفى أعضاء المنتدى منهم أبو هادى والأخت زهرة وسيد عبدالعال وابو خليل وغيرهم من الأحباء القدامى والجدد لا أدعى أن البرنامج قد حقق الكثير من أهدافه ، لكنه أرضى كل مدرسة هنا قامت باستخدامه الرقم السري للدخول " 1 " ويمكن تغييره فى الإعدادات وإليكم بعض الصور لشاشاته تحياتى لجميع أعضاء أوفيسنا ، والشكر الكبير لهذا المنتدى العريق بيانات المدرسين.rar

تمام تحقق المطلوب بعد تغيير الفاصلة ; إلى , Me.Caption =DLookUp("[school]","Tbl_basic")

السلام عليكم بمربع النص فى التقرير فى خانة مصدر عنصر التحكم يمكن وضع هذا السطر ="مدرسة " & DLookUp("[school]";"Tbl_basic") فيتم وضع اسم المدرسة أمام كلمة مدرسة المأخوذ من جدول Tbl_Basic لكن ما سبق فى النموذج لا يصلح فى خانة تسمية توضيحية هل هناك سطر برمجى يصلح لكتابة ما سبق كعنوان للنموذج أي فى الـ Caption

تمام .. شكراً جزيلاً

الإجابة الأولى لم تحقق المطلوب .. لكن شكراً لواضعها الإجابة الثانية : كيف يتم عمل Requery وهل هو يختلف عن Recalc ليكون السؤال أكثر وضوحاً هذه أوامر فتح شاشة الصف الأول : Private Sub btnOne_Click() On Error GoTo Err_btnOne_Click Dim DocName As String Dim LinkCriteria As String Form_frm_basic.Refresh Form_frm_basic.Visible = False ' frm_basic ' الشاشة الرئيسية DocName = "frm_Main1" ' frm_Main1 ' شاشة الصف الأول DoCmd.OpenForm DocName, , , LinkCriteria Exit_btnOne_Click: Exit Sub Err_btnOne_Click: MsgBox Error$ Resume Exit_btnOne_Click End Sub وهذه أوامر زر الرجوع من شاشة الصف الأول إلى الشاشة الرئيسية : Private Sub Cmd_Exit_Click() On Error GoTo Err_Cmd_Exit_Click DoCmd.Close 'frm_Main1 ' غلق شاشة الصف الأول Form_frm_basic.Visible = True 'frm_basic ' إظهار الشاشة الرئيسية Exit_Cmd_Exit_Click: Exit Sub Err_Cmd_Exit_Click: MsgBox Err.Description Resume Exit_Cmd_Exit_Click End Sub

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

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

السلام عليكم عندى قالب لوورد (فى دمج المراسلات ) يأخذ حقوله من ملف أكسل إذا وضعت تسلسل يدوى للأرقام فى القالب ، بالطبع سوف تتكرر نفس الأرقام فى كل صفحة نشأت من عملية الدمج فى تقارير أكسس يمكن التغلب على هذه المشكلة بوضع 1= فى "مصدر عنصر التحكم " هل يوجد فى وورد ما يتطابق مع أكسس فى هذه الميزة الرائعة ؟؟ من المؤكد أنه يوجد حل ، لكنى لم أتوصل إليه .

طبيعة عملى _كمدرس_ هى التى تفترض زيادة الإيضاح و التبسيط فى تناول السؤال أو الجواب شكراً جزيلاً لردك

السلام عليكم بالتطبيق نموذج frm_Section يحتوي على كومبوبوكس cbo_Class ، عند اختيار أحد عناصره يتم فتح تقرير يأخذ محتواه من استعلام طبقاً لسطر المعايير [Forms]![frm_Section]![cbo_Class] التقرير له تسمية توضيحية كما هو موضح بالصورة والتقرير له اسم بالطبع "1_سرى_القاهرة" وعقب إختيار عنصر الإدارة من الكومبوبكس يأتى التقرير بكل بيانات تلك المجموعة وعند النقر على زر الطباعة فى جهازى تطبيق جميل جداً (7-Bullzip PDF Printer) يضيف طابعة افتراضية تحول أى مطبوعة لملف pdf وعند النقر على موافق تجد مثل هذه الصورة والملف الناتج أخد الإسم من التسمية التوضيحية ، وإذا كان لديك الكثير جداً من المجموعات ستجد أنك مضطر فى كل مرة التدخل يدوياً لتنقيح أسم الملف الناتج جربت مسح التسمية التوضيحية تماماً ، فما كان من الملف إلا أن أخذ أسم التقرير "1_سرى_القاهرة" ما رأيكم .. هل يوجد حل آلياً ؟؟

تمام .. الله ينور السؤال هنا : هل يمكن استخراج هذه الصورة منفردة لاستخدامها فى تطبيق آخر

السلام عليكم فى التراث القديم ( وما أروع أعضاءه ) تم عمل هذا التدرج اللونى لخلفية النموذج فى أكسس ومن المتعارف عليه أن هذا التنسيق لا يتواجد إلا فى وورد بالتحديد إذن كيف تم عمل هذا !! Crack-by-zahrah.rar

أشكرك شكراً جزيلاً أخى عمر ضاحى قمت بالتعديل فى الملف عندى طبقاً للأكواد الموضوعة فى توضيحك وكانت النتيجة ممتازة

السلام عليكم بالمثال التالى نموذج بسيط المطلوب فيه عند النقر على أي عنوان فيه ( ملف - اسم الموظف - الوظيفة ) يتم فهرسة محتوى هذا العمود تصاعدياً وبمعاودة النقر عليه يتم الترتيب تنازلياً .. وفيما يلى صورة للنموذج ومرفق مثال للتعديل عليه بالمرفقات db1.mdb

يبدو أن الموضوع صعب !!! بالطبع أستطيع وضع أمر طباعة فى كل تقرير ، لكن ماذا لو كانت التقارير عددها كبير جداً ؟ أو إظهار الواجهة أثناء تشغيل التقرير لأضع بها شريط الأدوات وبه أيقونة أمر الطباعة .. وهذا أيضاً غير مرغوب .

تم التعديل على خصائص التقرير ( منبثق: نعم ، شكلى أو مشروط: لا ) واستخدام الأمر DoCmd.Maximize عند الفتح وأصبح لا مشكلة فى ظهور التقرير ، إنما المشكلة فى عدم ظهور إضافة شريط الطباعة المذكور فى الصورة أعلاه هل من مساعدة ؟

السلام عليكم عثرت على كود (سطوره قليلة جداً ) لإخفاء واجهة أكسس ، والأجمل أنه يعمل على جميع الإصدارات بدءاً من 2003 لكن بشرط التقيد بخصائص النموذج الرئيسى أن تكون فى تبويبات( التنسيق ، غير ذلك ) بمعنى تكون الاختيارات كالتالى : ' كود الوحدة النمطية ' Option Compare Database Option Explicit Global Const SW_HIDE = 0 Private Declare Function apiShowWindow Lib "user32" _ Alias "ShowWindow" (ByVal hwnd As Long, _ ByVal nCmdShow As Long) As Long Function fSetAccessWindow(nCmdShow As Long) Dim loX As Long Dim loForm As Form loX = apiShowWindow(hWndAccessApp, nCmdShow) End Function ' كود حدث فتح النموذج Private Sub Form_Open(Cancel As Integer) fSetAccessWindow (SW_HIDE) End Sub لكن ماذا عن تعديل خصائص التقرير المرتبط به وخاصة إذا كان به إضافة شريط طباعة إضافى أعلاه مثل هذا : وهذه هى الخصائص المطلوب التعديل عليها : تحياتى للجميع

شكراً جزيلاً أبو عبدالله

تمام أخى أبو عبدالله يبدو أن التعديل فى هذا النموذج ( OnlyYou1 ) أخذ الكثير من جهد الزملاء (شكراً لهم) ولم يصل للمستوى المطلوب سوف أضيف بالملف المرفق التالى أسلوب أبو هادى فى البحث ( البحث يتم اثناء كتابة كل حرف ولكن سريع جداً) والمطلوب فقط وضع الكود المناسب لزر " حذف سجلات ناتج البحث " والاستغناء عن النموذج "OnlyYou1" db3.mdb

رجاء التعديل على كود البحث فى الملف السابق لأنه بطئ جداً db2.mdb فقد رأيت طرق بحث ممتازة للأخ الحبيب أبو هاجر قديماً لكن لم أستطيع توظيفه فى هذا الملف بدون استخدام نموذج فرعى