jandbi

في برنامجي اكبر عدد للصفحات في التقارير هو صفحتين فقط ..

السلام عليكم .. ارفقت مثال بسيط لتقرير يحتوي على صفحتين .. ارغب بعد طباعة الصفحة الاولى ان تظهر رسالة MsgBox تحتوي على زر ( موافق ) .. وعند الضغط على زر موافق تطبع الصفحة الثانية .. وهكذا .. << ( بهالطريقة ممكن اتركه يطبع الاوراق منفردة بالضغط على زر موافق كل مرة .. أو بعد كل طباعة ورقة اقلبها في الطابعة واضغط زر موافق ليطبع في الخلف ) ولو كان التقرير يحتوي على صفحة واحدة فقط لا يظهر الرسالة .. بحثت عن حلول ولم اجد الا اكواد تختص بطباعة تقريرين على ورقة واحدة بوجهين print report 2 paper.zip

افتح قاعدة البيانات ف1- 1437-1436 اختر من شريط الادوات ( بيانات خارجية ) ثم اضغط على استيراد قاعدة بيانات اكسس اختر مسار قاعدة البيانات ج- ف1- 1437-1436 ثم اختر الخيار الثاني ( الارتباط بمصدر البيانات بواسطة انشاء جدول مرتبط ) ثم اضغط ( موافق ) راح تفتح لك كل محتويات القاعدة اختر الجداول المطلوبة ( تحديد الكل ) ثم موافق .. وانتهى الموضوع الان روح للقاعدة ج- ف1- 1437-1436 وقم بتعبأة الجداول باي بيانات وارجع افتح قاعدة ف1- 1437-1436 سترى التغييرات :)

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

للاسف لا تعملان على 2007

وأتمنى ان الأستاذ as2003fm يقوم بإرفاق ملف الاكسل المصدر من نور كما هو بدون تعديل قبل أن يعمل الأستاذ جعفر على البرنامج حتى يقوم باستيراد جميع البيانات منه وخاصة رقم الهوية

اذا حضر الماء بطل التيمم تفضل استاذ جعفر :)

عن طريق .. خيارات اكسس >> مركز توثيق >> اعدادات مركز التوثيق >> اعدادات الماكرو >> تمكين كافة وحدات الماكرو >> موافق أو شوف الملف المرفق لتخفيض الامان ( برمجياً ) تخفيض امان الماكرو برمجيا.rar

هذا الموضوع بيفيدك كثيراً http://www.officena.net/ib/topic/65067-ما-هي-طريقة-استيراد-بيانات-من-عدة-صفحات-اكسل-الى-جدول-اكسس/

اشكرك ياخوي جعفر .. والله يحرم وجهك عن النار .. ويفرج كربتك ويزيح همك ويرزقك من حيث لا تحتسب

هذا الكود وجدته عندي في بعض الامثلة التي احتفظ بها بالنسبة لضغط قاعدة البيانات واصلاحها يمكنك انشاء وحدة نمطية و ان تضع فيها هذا الكود و من ثم استدعائه .. Public Function CompactRepairDatabase() CommandBars("Menu Bar").Controls("Tools").Controls("Database utilities").Controls("Compact and repair database...").accDoDefaultAction End Function كود الاستدعاء .. Private Sub Call_Compact_Click() Dim i As Integer For i = 1 To CommandBars.Count CommandBars(i).Enabled = True Next i Call CompactRepairDatabase End Sub

الله يكتب لك الاجر ويرزقك من واسع علمه وفضله ورزقه .. الشكر قليل في حقك اخوي جعفر ..

هههههههه حلوة طعم الذيل انت ما فهمت قصدي .. انا مثلاً سحبت اول ملف اكسل .. لو بغيت اسحب ملف اكسل ثاني ( البرنامج حاليا ) راح يمسح البيانات الموجودة بجدول Degree ويضيف الجديدة انا ابغاه يخلي القديم ويضيف الجديد ( ولو تشابه حقل ID وحقل ال Class وحقل Year_H وحقل Year_G ) يقوم بحذف البيانات القديمة :)

الله يعطيك العافية .. يعمل بشكل سليم بالنسبة للملاحظة : - يوجد مشكلة في خانة RankA و RankB ( احتاج تكون البيانات بالعكس فيها ) .. قمت بحلها عن طريق تعديل استعلام الالحاق وغيرت مكان الالحاق بين الحقول :) بقي الملاحظة الاخيرة : - ارغب بإضافة خاصية : عند استيراد ملف اكسل جديد لا يقوم بحذف البيانات القديمة في الجدول وإنما يضيف البيانات الجديدة عليها ( وعند تشابه ID يقوم بحذف البيانات القديمة والإبقاء على الجديدة )

الاستاذ الكريم جعفر .. يبدو ان اخر ملف ارفقته هو نفسه اللي انا وضعته اول الموضوع :) على العموم ملاحظتي اللي ودي تعدلها على البرنامج : - منع تكرار البيانات ( يأخذ رقم الهوية فقط ) مثل ما ذكرتها لك في الخاص :) - يوجد مشكلة في خانة RankA و RankB ( احتاج تكون البيانات بالعكس فيها ) - ارغب بإضافة خاصية : عند استيراد ملف اكسل جديد لا يقوم بحذف البيانات القديمة في الجدول وإنما يضيف البيانات الجديدة عليها ( وعند تشابه ID يقوم بحذف البيانات القديمة والإبقاء على الجديدة )

الاستاذ الكبير جعفر .. للامانة كنت في انتظارك :) .. إجابة على سؤالك عن عدد الصفحات .. قد يصل عدد sheet الى اكثر من 1000 :/ << واعتقد ان هالشيء صعب يدوياً :( سأقوم بتجربة ما كتبته بإذن الله .. وأعود لك

ما فيه احد يقدر يساعدنا ؟ :(

جربت الطريقة مرة اخرى .. للاسف لا تقوم بالمطلوب حيث انها تستورد اول صفحة فقط وبقية الصفحات لا كما اني لا احتاج الا خلايا محددة فقط ( درجة المادة ) وليس كل البيانات من ورقة الاكسل

نسيت ان اضيف ملاحظة على ملف الاكسل .. عناوين البيانات في الصفحات مكانها ثابت لا يتغير .. مثلا درجة القران الكريم عنوانها في صفحة الاكسل B2 في Sheet1 وفي كل الصفحات الباقية .. وكذلك بقية البيانات من رقم الهوية والمواد الاخرى

الله يعطيك العافية .. نفذت المطلوب وظهرت لي رسالة ..

لتعطيل الماكرو .. اضغط على زر الاوفيس >> خيارات اكسس >> مركز توثيق >> اعدادات مركز التوثيق .. >> اعدادات الماكرو >> ( اختر ما تريده اما تعطيل او تمكين )

السلام عليكم ورحمة الله وبركاته بالمرفقات ملف مضغوط يحتوي على .. - ملف اكسل ( يحتوي على 3 صفحات ) - قاعدة بيانات اكسس ( تحتوي على جدول ونموذج ) جهزت النموذج في الاكسس بحيث انه يحتوي على مربع لاستعراض ملف الاكسل اللي راح استورد بياناته .. اللي احتاجه .. زر الاستيراد .. بحيث انه يقوم باستيراد الدرجات من كل صفحة ( كل صفحة لطالب واحد ) ويقوم بوضعها في جدول الاكسس ( جدول واحد فقط ) هل من خبير يساعدنا ؟ :) استيراد الدرجات.rar

شكراً لك أ. جعفر

السلام عليكم ورحمة الله .. في المرفقات قاعدة بيانات تحتوي على : - جدول بيانات للطلاب StudentData - جدول معلومات بداية ونهاية الدراسة ووقت بداية حساب التأخر الصباحي Information - جدول التحضير اليومي ADS1 - استعلام اجمالي عدد أيام التأخر بمعايير التاريخ والوقت Absence - نموذج يحتوي على حقول من جدول Information ( تم تأمينها ) بالإضافة لزر أمر لفتح التقرير - تقرير مبني على الاستعلام السابق AbsenceStudent المشكلة .. عند الضغط على زر الأمر لفتح التقرير .. يفتح التقرير ولكن لا يقوم بحساب الاجمالي للطالب الواحد وإنما يكرر اسم الطالب أكثر من مرة .. هل من حل ؟ Absence.rar