ابو يامن

أخي العزيز،

بما أنك قمت بطرح هذا الموضوع ضمن قسم الآكسس فأنا أفترض أن لديك برنامج معمول على الآكسس و ترغب بطباعة تقرير و تخزينه على الجهاز بنفس الوقت بدون تدخل من المستخدم

الكود التالي يوضح عملية طباعة التقرير و تخزين نسخة منه على مجلد إسمه Folder_Name مخزن على الـ C Drive و هو كاتالي :

 Dim a

Dim b

b = Date

a = "C:\Folder_Name\" & b & ".xls"

DoCmd.OpenReport "Report Name"

DoCmd.OutputTo acOutputReport, "Report Name", xls, a 

أخي العزيز يوسف،

بالفعل هذا هو المطلوب

تم إستكمال الموضوع لدي، لك مني تحية شكر و بارك الله فيك

اخوك ابو يامن ،،،

أخوتي الأعزاء ،

الرجاء الإجابة على إستفساري و انا كلي أمل ان أجده لديكم

مع الشكر ،،،

السلام عليكم جميعاً،

ارجو ان يكون المطلوب واضح، و كلي أمل بالحصول على الرد في القريب العاجل رجاءاً

مع الشكر ،،،

هل من ردود رجاءاً

أخوتي الأعزاء في هذا المنتدى الحبيب،

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

و لكن وقفت عند كيفية تنفيذ الكود من خلال النموذج.

المثال المرفق يوضح المطلوب بشكل مباشر، حيث يحتوي المثال المرفق على نموذج (Form1) و الذي يظهر به Combo يتم من خلاله إختيار رمز الكود وبالتالي يتم إستدعاء الكود في النموذج من خلال هذا الـ Combo ، ولكن أرغب في حال تم الضغط على الأمر Run ان يتم تنفيذ الكود الموجود في خانة Code و المعرفة تحت Text7 في الـ Form1 .

أرجو أن يكون المطلوب واضح لديكم

و ارجو أن أحصل على ردودكم النيرة.

مع جزيل الشكر و التقدير ،

أخوكم / ابو يامن ... Coding.rar

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

أخي الكريم ،

الظاهر إنك لم ترى مشاركتي أعلاه ، أم أن التعديل غير صحيح ؟

أخوتي الأعزاء ،،

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

طبعاً و هاي النقلة بدها أرتب أموري شوي و بوعدكم حرجع أقدملكم المزيد المزيد من الرامج و المساعدة

و الله الموفق

ولا تنسونا بدعائكم

تفضل أخي

تم تعديل الملف حسب طلبك

2_FORMS_.rar

مشكور أخي الكريم

أخي الكريم ،

تفضل أعتقد هذا هو المطلوب .

Select Case.rar

Select Case.rar

أخي الكريم

بالنسبة إلي طلبك غير واضح

هل لك أن ترفق توضيح اكثر

أخي العزيز ،

اعتقد أنه يمكن أن يتم عمل المطلوب على الآكسس

و لكن للبدء في الموضوع هناك عدة طرق و أنا أفضل أن يتم البدء بالمخرجات و من ثم نصل الى المدخلات اي بمعنى آخر هل لك أن تقوم بوضع شرح عن الآتي :

1- ما هي التقارير و الإستعلامات النهائية التي يجب أن يقوم البرنامج بإستخراجها.

2- ما هي الحقول التي يجب أن يتم التعامل معها بالجدول الرئيسي (قاعدة البيانات)

3- العلاقات بين الحقول و وضع المحددات.

مع الشكر و بالتوفيق .

أخي الكريم ،

بما أن الهدف من هذا الطلب هو عمل نفس التقرير المرفق أعلاه فلماذا تستخدم طريقة ربط الإستعلامات ببعض

ما عليك إلا أن تقوم بعمل Crosstab Query و إختار حقلي التاريخ و الوقت كصفوف و الكورسات كأعمدة

بالفعل شيء بيرفع الراس

مشكور اخي الكريم

مشكور أخي محمد على هذه الإضافة الرائعة

بالفعل شيء جميل

بارك الله فيك و جعله الله في ميزان حسناتك

مشكورين أخوتي الأعزاء على هذا الإطراء

وهذا أعتبره واجب كما هو واجب على كل مسلم أن يقوم بنشر العلم قدر المستطاع

مشكور أخي الكريم على البرنامج الرائع

بس لو كان مفتوح المصدر لكنت قد أضفت عليه خاصية قراءة الكلمة يعني إظهار صوت يبين كيفية لفظ الكلمة المشار إليها

إذا كان بالإمكان أن تقوم بذلك أرجو إضافتها كإقتراح مني ليجمل البرنامج أكثر

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

الاسم : محمد سليم ناعسه - ابو يامن

سنة الميلاد : 1980 م

المهنة : مدير التطوير في بنك

التعليم : بكارولويس محاسبة 2002 - جامعة اليرموك - الأردن

ماجيستير نظم معلومات 2007 - الجامعة الأردنية

الحالة الاجتماعية : متزوج و رزقني الله بطفل

بلد الجنسية : الأردن

بلد الاقامة : الكويت

أقسام الاهتمام فى المنتدي : كل الأقسام - و بالذات الأكسيس و الإكسيل

معلومات أخري :

أحب الأكسس و أنشأت تطبيقات مختلفة له ، و أيضا أحب جدا الاكسيل و استخدام ال vba به .

أشرفت على العديد من المشاريع المتعلقة بنظم المعلومات و أنظمة الدفع المختلفة

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

يمكن ترتيب ذلك من خلال إختيار Tab order من خلال عمل Right Click على الفورم

أخي الكريم :

هل جربت تعديل الكود على هذه الصورة :

Open "\\192.168.1.111" For Input As #1

اي بإختصار إستبدال الـ IP بدلاً من الـ C Drive

???

شكراً أخوتي الأعزاء على هذه الردود

جزاك الله كل الخير أخي الكريم بالفعل عمل رائع

جعله الله في ميزان حسناتك

و لكن لو سمحت هل لك إضافة البرنامج مفتوح المصدر لتعم الفائدة علينا جميعا ً