تفضل أخي المرفق كل ماعليك اختار مكان الحفظ ثم حفظ المسار ... ثم من الكمبوبكس اختار الجدول ثم ارسال ثم الجدول التالي ثم ارسال الى أن تنتهي الجداول سواء كانت مرتبطة أو غير مرتبطة ...
ثم اذهب لمكان الحفظ بتحصل قاعدة بيانات جديدة وبها الجداول التي ارسلتها ومعها نموذج افتح النموذج واضغط عى الزر بيخلي الجداول المرتبطة ثابتة بيشيل السهم بجوارها وأيضا بيفضي الجداول كلها ودمتم .
اليك المرفق . ووافني بالرد
و اذا كان هذا طلبك اضغط على أفضل اجابة .
DD140.rar
1- أولا أقدم اعتذار لكم لأني بحذف المشاركات يومياً واليوم فقط حصلت المشاركة وعملت المطلوب .
2-تم تثيت (y1) عند الرقم 1 ويمكن تعديله بالكتابة عليه أما بالنسبة لـ (y2) تم تثبيتها على آخر رقم بالجدول مهما زادت أو نقصت وأيضا يمكن تعديله بالكتابة عليه.
مرةً أخري أقدم اعتذاري لشحصكم الكريم وإليكم المرفق بعد التعديل .
DDTest-2.mdb
إلى الأستاذان أستاذ @Moosak والأستاذ @ابو خليل والله مبدعين وجزاكم الله خير على اتمام واثراء هذا الموضوع الحيوي الذي يحتاجة معظم المبرمجين . كما اني أشكر أستاذنا @ابو عبد الرحمن اشرف
على فتح هذا الموضوع واثرائه بأسئلته وحواره الموضوعي .............فشكراً جميعاً ويجعله الله في ميزان حسناتكم .
أستاذي الفاضل @ابو عبد الرحمن اشرف بعد دمج مرفق استاذنا @Moosak جزاه الله خير قصر علينا الوقت باقي التجربة ووافنا بالرد .
Zip Folder and CopyLast_3.rar
تفضل أخي هذا هو الكود واذا لم يعمل على نموذجك لأن به أوامر كثيرة ....... افتح نموذج جديد به زر أمر به هذا الكود بيطبع لك أول صفحة فقط .
DoCmd.OpenReport "CHEMM", acViewPreview
DoCmd.PrintOut acPages, 1, 1
و اذا كان هذا طلبك اضغط على أفضل اجابة .
أستاذي الفاضل @ابو عبد الرحمن اشرف أنا شغال على الموضع لك ولي كي أطور البرنامج بس لو ممكن تطول بالك شوي أما لو شاركنا أستاذنا @أبو خليل جزاه الله خير يبقى قصر علينا الوقت .
أستاذي الفاضل @ابو عبد الرحمن اشرف هذا برنامجي بيعطيك نسخة مضغوطة من البرنامج يدوياَ وكل مرة بإسم غير...... أما أسبوعياً أو يوميا أو شهرياً ......... يساعدك فيها أستاذنا الكبير @أبو خليل لأنه تطرق إليها من قبل .
تفضل المرفق .
Zip Folder and CopyLast.rar
وانت فاتح الملف أذهب( File)ثم (Options) ثم (Trust Center) ثم (Trust Center Settings) علم عى الخيار الأسفل ثم (OK) ثم أعد تشغيل البرنامج ......ووافني بالرد .