أحمد العيسى

تمام .. أشكرك بارك الله فيك

جربت الآن تشغيل التطبيق على أكسس 2007 وباستخدام الأمر : DoCmd.OutputTo acOutputTable, stDocName, acSpreadsheetTypeExcel8, "C:\" & "المدرسين" & ".xls", False 'Excel 2003 ينتج رسالة الخطأ التالية: لكن إذا استخدمت الأمر التالى على أكسس 2007 لا ينتج أخطاء DoCmd.OutputTo acOutputTable, stDocName, "ExcelWorkbook(*.xlsx)", "C:\" & "المدرسين" & ".xlsx", False 'Excel 2007 السؤال : كيف يمكن للتطبيق أن يشعر بنسخة الأكسس ويختار الأمر المناسب له ، أو ما هو الأمر الذى يصلح لجميع النسخ

عندك حق فيما سبق قمت بالطباعة من خلال الطابعة الوهمية pdf Factory التى تقوم بتحويل ما يتم طباعته إلى ملف pdf عندما أعدت الطباعة على طابعة فعلية Samsung ظهر الإطار كما المعاينة وكما -أنت- أسلفت

"مجموعة إضافية " مع إضافة name تصاعدى فى فرز وتجميع .. تمام بارك الله فيكما

السلام عليكم عند طباعة تقرير بأسماء مدرسين باختلاف تخصصاتهم ينتج ترقيم (مسلسل) متصل من أول أسم إلى نهاية الأسماء المطلوب تكرماً شرح كيفية عمل تسلسل منفصل لكل مجموعة منهم يوجد مثال بالمرفقات db1.rar

المتوفر عندي الان أكسس 2003 وتلك الأوامر تستخدم فيه بلا أخطاء، لكن لم أجرب صحة مستخرجات 2007 السؤال بصيغة أخرى: ما الأوامر المستخدمة لديك؟

السلام عليكم الأمر التالى استخدمته لاستخراج جدول إلى ملف أكسل 2003 DoCmd.OutputTo acOutputTable, stDocName, acSpreadsheetTypeExcel8, "C:\" & "المدرسين" & ".xls", False هل لو تم تعديل بسيط على الأمر السابق بالشكل التالى يصلح للتصدير إلى 2007 وما فوق DoCmd.OutputTo acOutputTable, stDocName, "ExcelWorkbook(*.xlsx)", "C:\" & "المدرسين" & ".xlsx" فى انتظار آراءكم

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

لنفرض أن لديك مربع نص الذى سوف تضع فيه الرقم القومى وليكن أسمه : National_Nr ، مربع نص سوف يأخذ معلوماته فى النوع من السابق وليكن أسمه : gender ، مربع نص ثالث سوف يأخذ معلوماته فى المحافظة وليكن أسمه : Mohaftha ، مربع نص رابع سوف يستقطع تاريخ الميلاد وليكن أسمه : birth من مربع النص National_Nr فى خاصية حدث بعد التحديث أنسخ الكود التالى:- Private Sub National_Nr_AfterUpdate() Dim x, y, z, r As Byte Dim xx As String * 2 Dim MyProvinces As Variant x = Left(Me.National_Nr, 1) If x = 2 Then Me.birth.Value = Mid(Me.National_Nr, 2, 2) & "-" & Mid(Me.National_Nr, 4, 2) & "-" & Mid(Me.National_Nr, 6, 2) Else Me.birth.Value = 20 & Mid(Me.National_Nr, 2, 2) & "-" & Mid(Me.National_Nr, 4, 2) & "-" & Mid(Me.National_Nr, 6, 2) End If '======= y = Left(Right(Me.National_Nr, 2), 1) Mod 2 If y = 1 Then Me.gender.Value = "ذكر" Else Me.gender.Value = "أنثى" End If '======= MyProvinces = Array("01/القاهرة", "02/الإسكندرية", "03/بورسعيد", "04/السويس", "11/دمياط", "12/الدقهلية", "13/الشرقية" _ , "14/القليوبية", "15/كفر الشيخ", "16/الغربية", "17/المنوفية", "18/البحيرة", "31/البحر الأحمر", "32/الوادى الجديد" _ , "19/الإسماعيلية", "21/الجيزة", "22/بني سويف", "23/الفيوم", "24/المنيا", "25/أسيوط", "34/شمال سيناء", "35/جنوب سيناء" _ , "26/سوهاج", "27/قنا", "28/أسوان", "29/الأقصر", "33/مطروح", "88/خارج مسر") z = Mid(Me.National_Nr, 8, 2) For r = LBound(MyProvinces) To UBound(MyProvinces) xx = MyProvinces(r) If z = xx Then Me.Mohaftha.Value = Right(MyProvinces(r), Len(MyProvinces(r)) - 3) Exit For End If Next End Sub الكود السابق تم أخذه من هنا بالمنتدى ... الأفضل عمل ملف توضيحي بالمرفقات .. تفضل db1.rar

بارك الله فيك أخى جعفر تم حل المشكلة تحياتى وتقديرى لك

مشكور أخى الكريم الملف db3.rar تم استخدام استعلام الحذف فيه مع الماكرو بشكل سوف استفيد منه بالتأكيد الملف db4.ra (وهو المقضل عندى) الحذف به يحتاج إلى تعديل ، لأنه يقوم بحذف أعلى قائمة الكمبو ، وليس الذى تم اختياره

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

السلام عليكم فى المرفقات مثال بسيط يحتوى على جدول (به حقلين فقط ) يأخذ منه مربع السرد بالنموذج محتوياته المطلوب تفضلاً عمل زر أمر على النموذج لإضافة سجلات جديدة أو حذف السجل المختار من قائمة السرد وحفظ التحديثات فى جدول tbl_Class_Name ثم تحديث محتويات الكومبوبكس تحياتى مقدماً لحضراتكم db1.rar

ممتاز .. أشكرك جداً

للرفع

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

تمام أشكرك جداً.. لكن سؤالى كان ألا يوجد إمكانية فتح هذا الاختيار من التقرير وليس من نموذج ؟ أنظر فى المرفقات ، رفعت نموذج انجليزى (كمثال ممتاز ) أريد تطبيقه على التقرير الخاص بمثالى : عند فتح التقرير تنبثق قائمة منسدلة فيتم اختيار اسم المجموعة من تلك القائمة( عربى ، انجليزى ، ) ومن ثم يتم تغيير اسم المجموعة فى أعلى التقرير ومحتوياتها المرتبطة بها فى نفس هذا التقرير دون الحاجة لعمل تقرير لكل مجموعة PopUpForReportDemo.rar

أشكرك سأرفق مثال : وضعت لكل مجموعة رقم إذا كتبت رقم 2 عند الضغط على التقرير يعطيك مجموعة الرياضيات المطلوب تكرماً بدلاً من كتابة رقم 2 اختياره من قائمة والأفضل طبعاً إختيار اسم المجموعة (عربى - انجليزى .. ) db1.rar

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

تمام .. الله ينور عليك .. بارك الله فيك

تم إرفلق القاعدة فى المشاركة الرئيسية

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

يبدو أن الموضوع نادر من نوعه ، ويبدو أيضاً أن له علاقة بـ Unicode لذلك لجأت لتوضيح ما سبق بالصور .. لعل وعسى سؤالى الآن إذا تكرمتم هل يوجد أمر أكثر احترافية يمكن استخدامه لتصدير الاستعلام بصيغة أكسل ( 95 ، 2000 ، 2003 ، 2007 ) بدلاً من DoCmd.OutputTo acOutputQuery, stDocName, acFormatXLS, "C:\" & stDocName & ".xls

السلام عليكم إذا تم تحميل التطبيق المرفق على أكسس 2003 وتم استخدام الأمر التالى فى استخراج الإستعلام "ملابس" إلى ملف أكسس : stDocName = "ملابس" DoCmd.OpenQuery stDocName, acNormal, acEdit DoCmd.OutputTo acOutputQuery, stDocName, acFormatXLS, "C:\" & stDocName & ".xls" لا يوجد أى مشكلة فى إظهار الحروف العربية لكن إذا تم استخدام أكسس 2007 فسوف تجد أن ناتج المحتوى هيروغليفى سواء تم عرضه على أكسل 2003 أو أكسل 2007 ما الحل ؟؟ School.rar