أحمد العيسى

السلام عليكم الأخ العزيز / السيد عبد العال بارك الله فيك وأكثر من أمثالك ، الناتج كما أردت تماماً ، ولكن لى طلب بسيط يتمثل فى إضافة متصيد خطأ لهذا الكود Dim NumPerPage As Byte Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer) If [AA] Mod NumPerPage = 0 Then 'And Counter <> RecCounter Then Fasel.Visible = True Else Fasel.Visible = False End If [DD] = [AA] - [CC] 'MsgBox "fOrmatcount" & FormatCount End Sub Private Sub PageHeader_Print(Cancel As Integer, PrintCount As Integer) If [AA] = 1 Then [CC] = 0 Else [CC] = [AA] End If End Sub Private Sub Report_Open(Cancel As Integer) NumPerPage = InputBox("أدخل العدد فى كل صفحة", "برنامج التنسيق", "46") If NumPerPage = 0 Then NumPerPage = 46 End Sub فعند تشغيل التقرير وظهور مربع حوار ، إذا ضغطت على زر Cancel تظهر لك رسالة خطأ ( Type mismath ) ، كما أننى أريد المستخدم ألا يدخل رقماً أكبر من 46 ويجب التنبيه لذلك إذا أخطأ فى رقم أكبر من ذلك

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

أشكرك أخى العزيز لكن مازال التقرير ناقص ثلاث معلومات أرجو النظر إليهم بتعديل نفس المثال وإرفاقه

للرفع البرنامج يتوقف استكماله على هذه المعلومات

السلام عليكم بالملف المرفق تقرير باسم "تقرير_قائمة" يقوم بتوزيع طالبات قسم معين على فصول متتالية بحيث لايزيد عدد الطالبات عن 35 فى كل فصل ، والمطلوب 1- ظهور مربع حوار يسأل عن أقصى عدد يمكن تسكينه فى كل فصل قبل بدء تشغيل التقرير حتى استطيع تغيير رقم 35 الى أى عدد أريده دون الدخول الى كود التقرير 2- الاحتفاظ بتنسيق التقرير من اليمين الى اليسار ومعالجة مشكلة زحف رأس الصفحة الثانية الى اليمين 3- بدء ترقيم مسلسل كل صفحة بـ الرقم 1 بالاستعانة بما تم فى التقرير R1 وقد حاولت ذلك فوجدت أن الكود لا يعمل فى تقريرى بينما يعمل بكفاءة فى R1 وشكرا جزيلاً لكم الملف المرفق http://www.s22s.com/up/pic13/Tansek.rar

للرفع

السلام عليكم لاحظت عند تقسيم الصفحة لأعمدة أن تنسيق رأس صفحة التجميع ( GropHeadr ) فقط هى التى تحتوى على خاصية تكرار المقطع ( فى كل صفحة ) ، بينما كل من رأس التقرير ( RepotHeader ) ورأس الصفحة ( PageHeader ) لا يحتويا على هذه الخاصية. للتوضيح أريد رأس التقرير غير مقسم لأعمدة بينما باقى الصفحة مقسمة لأعمدة ولذلك يجب تكرار الراس بعرض جميع الأعمدة فى كل صفحة. مثل هذا : |رأس التقريـــــــــــــــــــــــــــــــــــــــــــــــــــــــــر| |-----------------------------------------------| |العمــــــــــــود الأول|العمــــــــــــــــود الثانـــــى | ------------------------------------------------- فهل يوجد كود من خلاله أستطيع تكرار رأس أى منهما فى كل صفحة ؟

الأخ/ السيد عبدالعال شكرا على ردك كما كتبت فى مشاركة سابقة ، فقد عدلت كثيرا فى الملف واقترب أكثر من الهدف الذى أردته . وإذا طلبه أحد الأخوان لن أتأخر عليه

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

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

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

السلام عليكم صممت هذا البرنامج بعد أن تعلمت من هذا الموقع الكثير ، والفضل يعود لسبحانه وتعالى ثم إليكم أتمنى ممن لديه أفكار أفضل فى الإضافة أو الناحية الجمالية أو تغيير الأكواد ألا يتأخر بكرمه علماً بأن البيانات الموجودة بالبرنامج غير حقيقية ، وقد تم تجميعها من مصادر مختلفة لغرض التجربة فقط سؤال هام :هل أستطيع تصميم تقرير يماثل ملف الدمج لوورد (المرفق مع الملف) http://www.s22s.com/up/pic12/tansek.rar

أخى أبو أفنان إن الأزرار الموجودة فى مثالك ss غاية فى الروعة ..كيف صممتها ؟ أرجو إفادتى وأرجو ألا تبخل علينا بكرمك مع تحياتى

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

شكراً أخى هشام لكن لى سؤال آخر وأرجو ألا أثقل عليك على ضوء هذه الدالة لدى جدول باسم Tbl_years و به حقل تاريخ firstyy وفى مربع نص وضعت فى خانة مصدر عنصر التحكم هذا الكود =" " & DLookUp("[firstyy]";"Tbl_years") وفى خانة تنسيق yyyy/mm/dd لكن هذا التنسيق لايجدى نفعاً ويخرج لى تاريخ 30 /9/ 2002 مثلاً منسقاً بهذا الشكل 30/09/02 ما الخطأ فى استخدام التنسيق مع هذه الدالة ؟

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

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

للرفع

السلام عليكم كيف يمكن إظهار الوقت داخل مربع التسميه LblClockView بالنظام 10م أو 10ص بدلاً من 22 والتى تتيحها دالة الكود التالية: Private Sub Form_Load() Me!LblClockView.Caption = Time$ End Sub Private Sub Form_Timer() Me![LblClockView].Caption = Time$ End Sub