نجوم المشاركات

فى البداية اوجه الشكر لكم وانوه ان هذا الموضوع هو تكملة للموضوع التالى الخاص بتحويل الاكسس الى سيكوال انشاء السيرفر وتحويل اكسس الى سيكوال اى انـــــه لابد من تثبيت السيرفر اولا فقط على الجهاز الذى سيكون عليه قاعدة البيانات وتحويل قاعدة البيانات من اكسس الى سيكوال لكى يتم الاتصال بشكل فعلى هنا يعنى هنثبت سيكوال فقط على جهاز السيرفر مش كل الاجهزةة كلانا يعرف كيفية مشاركة الاكسس على الشبكة المحلية فقط هنعمل مشاركة للمجلد الذى يحتوى على قاعدة البيانات وبكدا اى مستخدم على الشبكة المحلية يقدر يستخدم قاعدة بيانات اكسس الموضوع يختلف كثير مع سيكوال تعالو لنقسم الموضوع الى جزئين الاتصال عن طريق الشيكة المحلية الاتصال عن طريق الانترنت 1 - فتح بورت فى الويندوز 1 - فتح بورت فى الويندوز 2 - فتح بورت فى السيرفر 2 - فتح بورت فى السيرفر 3- تثبيت الاى بى للويندوز 3 - فتح بورت فى الراوتر 4 - الحصول على اى بى ثابت اولا الاتصال عن طريق الشبكة المحلية ------------------------------------------------ بعد نثبيت السيرفر وتحويل الاكسس الى سيكوال اى تصدير الجداول من اكسس الى قاعدة بيانات سيكوال هناك امور مشتركة بين الاتصالين وهو فتح بورت فى الويندوز وفتح بورت فى السيرفر اذا نبدأ فى شرح كيفية فتح بورت فى الويندوز عن طريق Windows Firewal كدا فتحنا بورت لسيكوال سيرفر فى النظام طبعا لو عندك برامج حماية غير windows Defender يجب ان تسمح له بفتح البورت ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- والان فتح بورت فى السيرفر كدا فتحنا بورت فى السيرفر نيجى بقى للاتصال من جهاز اخر غير جهاز السيرفر تابع معى اولا يجب معرفة اى بى جهاز الذى عليه السيرفر عن طريق Cmd ثم ipconfig هيظهر الاى بى فى IPv4 Adress اما الثانية فدا عنوان الراوتر طبها الاى بى الخاص بجهاز السيرفر هو 192.168.1.3 وهذا الذى سوف نتصل به من الكمبيوتر الاخر الذى على نفس الشيكة المحلية هنفتح ODBC زى ما عملنا فى الموضوع السابق والخطوة الاهم هى التالية هنكتب اسم قاعدة البيانات اسم السيرفر سيكون كاالتالى الاى بى الخاص بالسيرفر , بورت السيرفر ( 1433 ) كوما وليس نقطة (192.168.1.3,1433 ) وتكمل خطواتك عادى زى الموضوع السابق بقى وبكدا يبقى اتصلنا بجهاز السيرفر ونستطيع نعمل ارتباط لجداول قاعدة البيانات من سيكوال الى اكسس حاجة اخيرة الاى بى الخاص بجهاز السيرفر بيتغير كل شوية ممكن نثبته عن طريق الخطوات التالية هنجيب الاى بى من cmd كدا احنا ثبتنا الاى بى الخاص بالجهاز اللى عليه السيرفر علشان تقدر تدخل بيه من على اى جهاز ------------------------------------------------------- المرحلة الثانية الاتصال بالسيرفر من على النت اى ليس شرطا وجودالمتصل على نفس الشبكة المحلية هى هى نفس الخطوات فقط هنضيف خطوة زيادة الا وهى الحصول على Static IP وفتح بورت فى الراواتر بالنسبة للاى بى الثابت دى خدمة بتقدمها الشركة اللى انت متعاقد معاها على خط الانترنت فى مصر تكلفة الاى بى الثابت عشرة جنيه شهريا من We بتطلبه من الشركة وهى بتثبتلك اى بى عمتا لو عاوز تعرف الاى بى بتاعك تابع الاتى مع العلم ان الاى بى بتغير كل ما تعمل ريستارت للراوتر هتبحث فى جوجل كدا ويطلعلك الاى بى كدا ودا اللى هنقدر ندخل بيه على السيرفر من اى مكان شرط توافر انترنت طبعا مش هتقدر تتصل على السيرفر بالاى بى دا اللى لما تفتح بورت فى الراوتر اللى متصل عليه السرفر تابع معايا انا عندى راوتر تى داتا وهشرح عليه تقريبا هى نفس الخطوات فى كل الروترات فتح بروت فى الراوتر طبعا هتعرف عنوان الراوتر بتاعك من هنا والاى بى اللى هنستخدمه هندخل على المتصفح ونكتب فى عنوان الراوتر وندخل عليه طبعا الاسم وكلمة السر بيبقى موجودين على ضهر الراوتر بعد كدا نفس الخطوات بالظبط كدا يبقى فتحنا البورت فاضل اللاتصال طبعا هتفتح ODBC ذى ما ذكرنا قبل كدا وهتدخل البيانات زى كدا الاى بى , 1433 وتابع بقية الخطوات زى الموضوع السابق علشان تقدر تحضر قاعدة بيانات سكوال على جهازك وتتصل عليه طبعا الشغل اللى مطلوب على جهاز السيرفر الحصول على الى Static IP فى حالة الاتصال عن بعد فتح بورت فى الرواتر فى حالة الاتصال عن بعد تثبيت اى بى الجهاز فتح بورت فى الويندوز فتح بورت فى السيرفر بعد ما تعمل كل دا انت ما عليك الا انك تتصل على السيرفر كما ذكرت دون الحاجة الى تثبيت سيكوال سيرفر على جهازك شكرا لكم كان مفروض فى مرفق بتدخله بيانات السيرفر زى اى بى اسم قاعدة البيانات سيكوال اسم المستخدم لو فى وكلمة السر للسيرفر وهو هينشأ الاتصال اوتامتيك طبعا بعد ما تظبط جهاز السيرفر زى ما قلنا وفى نفس المرفق خيار اخر وهو هتدخل البيانات السابقة اضافة الى اسم جدول موجود على سيكول وهو هيربطهولك تلقائى فى قاعدة اكسس بس الوقت اتاخر اوى وانا بسقط من النوم الصراحة ان شاء الله نقوم بتصميمه غدا السلام عليكم ورحمة الله وبركاته اخوكم السيد جمال 🥰

لك هذا talween.xlsx

السلام عليكم ورحمة الله تعالى وبركاته أساتذتي وإخوتي الكرام تحية طيبة لكم وبعد ... بعد إنقطاع طويل عن المنتدى بسبب عدة ظروف أعود لكم بهذه الهدية المتواضعة أتمنى ان تنال استحسانكم البرنامج المرفق فريد من نوعه نوعاً ما فهو عبارة عن اضافة بيانات شخص مع صورته حيث يتم تخزين صورة الشخص في الجدول كبيانات ثنائية طويلة (binary long data) كما يمكنك استعراض الصورة وتغييرها ايضاً قد يتسائل البعض عن أهمية استخدام هذه الطريقة في حفظ الصور!! ولماذا لا نقوم بحفظ الصور خارج قاعدة البيانات فقط وربطها بالبرنامج؟ الجواب ببساطة هو انني قد واجهت مشكلة في استعمال برنامج لإصدار بطاقات تعريفية للموظفين حيث ان البرنامج يقرأ بيانات الموظفين من قاعدة بيانات اكسس وعند اضافة صورة الموظف يقوم بتخزينها في القاعدة بصيغة بيانات ثنائية طويلة كما يقرئها بنفس الصيغة ايضاً ولا يتعامل مع الصور المرتبطة في الجدول ولضعف امكانيات البرنامج في ادخال البيانات والبحث عنها وفلترتها اضطررت الى انشاء برنامج يدخل البيانات الى تلك القاعدة وفلترتها وما الى ذلك ومن هنا وجدت انني لابد من تمكين برنامجي من اضافة الصور الى الجدول بنفس الصيغة والتحكم بها وتغييرها في اي وقت دون الحاجة الى عمل ذلك من خلال برنامج اصدار البطاقات التعريفية. على العموم اتمنى ان يستفاد منه احد في مشاريعه تحياتي view_add_edit_binary_image.mdb

ممكن اوي talween_1.xlsx

السلام عليكم شباب 🙂 ابو بهاء مو علوم وخبر 🙂 خلونا ننسى طلب ابو بهاء ، ونشوف عمل النموذج التالي: 1. عندي جدول ، 2.1. عملت استعلام 1 لهذا الجدول qry_1 ، لأدخال البيانات ، 2.2. عملت استعلام 2 لهذا الجدول qry_2 ، للبحث ، بحيث يكون هناك معيار/معايير لحقول البحث ، وهذه المعايير تشير الى حقول النموذج ، مثل (Forms!frm_1!ID) 3. عملت نموذج يأخذ بياناته من هذه الاستعلامات ، حسب صلاحيات المستخدم: أ.1. للمستخدم العادي ، نفتح النموذج بالطريقة العادية: docmd.openform "frm_1" أ.2. لمستخدمي البحث ، نفتح النموذج للقراءة فقط: docmd.OpenForm "frm_1",,,,acFormReadOnly ب. ممكن اعمل سجل جديد ، بدون مشاكل ، بإستخدام qry_1 ج. علشان البحث ، استخدم qry_2 د. اعمل على حدث فتح النموذج ، الكود التالي: if user_Group=1 then me.recordsource=qry_1 elseif user_Group=2 then me.recordsource=qry_2 end if اعتقد ممكن استعمال هذه الطريقة لأخونا ابو بهاء 🙂 جعفر

السلام عليكم ورحمة الله وبركاته 🙂 اولا ، يجب تثبيت الموضوع 🙂 وبعدها ، هضم محتواه 🙂 واللي بعدها تطبيقه 🙂 ويا سلام عليك ، سيد بمعنى الكلمة 🙂 جعفر

السلام عليكم ورحمه الله وبركاته اخوانى الافاضل ارفق لكم ملفان يقومان بمساعدتك على تسجيل مكتبات الاكتف بعض وضعها فى مجلد النظام وجدتم اثناء بحثى عن تسجيل مكتبات طبعا معروف لدى الكثيرين الطرق اليدويه مثل cmd / next regsvr32 barcodex.ocx للنظام 32 بت 1. قم بنسخ الاداة الى مجلد C:\WINDOWS\system32 2. اذهب الى ابدأ واختر تشغيل وضع هذا الامر regsvr32 "C:\WINDOWS\system32\barcodex.ocx" للنظام 64 بت 1. قم بنسخ الاداة الى مجلد C:\WINDOWS\sysWow64 2. اذهب الى ابدأ واختر تشغيل وضع هذا الامر regsvr32 "C:\WINDOWS\sysWow64\barcodex.ocx" 3. اضغط موافق وسيتم تسجيل الاداة وظهور رسالة تفيد بنجاح عملية التسجيل احببت ان اشارككم اياهم وللتسهيل على المبتدئين مثلى تقبلوا تحياتى وتمنياتى بالتوفيق تسجيل ادوات اكتيف اكس وعند تسجيل اي اداة وذلك بالضغط بالماوس الايمن عليها ستجد هذا البرنامج موجود ضمن القائمocxdllreg.rar لتسجيل مكتبات الاكتيف اكس.zip

يا اخي هات كل طلباتك دفعة واحدة وليس بالتقسيط لقد اجبتك على سؤال (جمع عمود الكمية) في المعادلة التي كتبتها لك Subtotal 1-لحساب المتوسط استبدل الرقم 109 بالرقم 101 2-لحساب العدد استبدل الرقم 109 بالرقم 103 3-لحساب الحد الاقصى استبدل الرقم 109 بالرقم 104 4-لحساب الحد الادنى استبدل الرقم 109 بالرقم 105

الاستاذ الفاضل / ابو بسمله تمام التمام الله يفتح عليك ويرزقك الفردوس ويجعله في ميزان حسناتك ان شاء الله المثال الذي ارفقته حضرتك تمام وطبقت عندي ولله الحمد على فكرة المثال الذي ارفقته انا ليس به اي مشكله ولكى تعم الفائدة لمن يريد فاليك المثال بعد ان طبقت عليه مثال الاستاذ / احمد يوسف الله يجزاه كل خير ويرحم والديه بيانات بين تاريخين (1).accdb

وعليكم السلام 🙂 واهلا وسهلا بالدكتور حلبي 🙂 ايش رأيك اعلمك كيف تصطاد ، بدل ما اعطيك سمكة 🙂 جعفر

بس اقتراحي ما فيه تغيير في النماذج ، وبالعكس المفروض سهل عمله 🙂 جرب اقتراحي في نموذج او اثنين ، وعليه اتخاذك للقرار يكون افضل 🙂 جعفر

طيب دى فكرة تانيه test2 (2) (3).mdb

بسم الله الرحمن الرحيم فى البداية لا اعلم ان كان قد تطرق احد الى هذا الموضوع الاتى شرحة من قبل ام لا وعلى كل لا ضرر فى توضيحة من جديد طبعا الحل دا هتلجأ لى بعد ما تنفذ منك كل سبل تصغير حجم قاعدة البيانات او ممكن تستخدمة عند انشاء برنامجك من البداية الموضوع ببساطة هو تحويل قاعدة بياناتاك من Access الى Sql تحويل الخلفية فقط ( الجداول ) اما النماذج فيتم انشائها فى اكسس عادى طريقة العمل المتطلبات ------------------ 1 - Microsoft SQL Server 2008 R2 RTM - Management Studio Express لينك التحميل https://www.microsoft.com/en-us/download/details.aspx?id=22985 2 - سيكوال سيرفير 2008 R2 لينك التحميل https://www.microsoft.com/en-us/download/details.aspx?id=30438 3- اوفيس اصدار 2007 فما فوق -------------------------------- شرح بسيط بالبلدى كدا احنا هنعمل سيرفير محلى وننشئ عليه قاعدة بيانات وبدل ما نصمم عليها الجداول من اول وجديد هنصدرها من الاكسس ببيانتها بكل ما تحتوى بس كدا هههههههههه طريقة العمل اول هنسطب السيرفر المحلى ( سيكوال سيرفير 2008 R2 ) طريقة تسطيب هتلاقوها فى الفيديو دا ثانيا تثبيت Microsoft SQL Server 2008 R2 RTM - Management Studio Express وهتلاقو طريقة التثبيت فى الفيديو دا نخش بقى على المهم بعد التثبيت هنفتح Management Studio Express هتلاقوه فاتح الشاشة دى هتكتب فى اسم السيرفير .\SQLEXPRESS وبعدين connect هتطلعلك الشاشة دى كليك يمين واختار داتابيز جديدة زى الصورة بالظبط هتظهرلك شاشة التالية هنكتب فيها اسم قاعدة بيانات اللى انت عاوزها وبعدين OK بعد كدا هتظهرلك قاعدة بايناتاك ضمن قواعد البيانات زى اللى فى الشاشة التالية لو مظهرتش كليك يمين ورفريش هتظهر معاك على طول --------------------------------------------------- كدا احنا انشأنا قاعدة البيانات على السيرفير ولكن بدون جداول فاضل بقى نظهر قاعدة البيانات للاكسس علشان يقدر يشوفها على السيرفير المحل تابع معايا اولا من قائمة استارت اختار بحث او ابحث عن البرنامج الاتى odbc data sources افتحه هيظهرلك الشاشة دى اختار Add بعد كدا هتظهرلك دى اختار Sql Server وبعدين Finsh هتظهرلك الشاشة دى طبعا هتكتب اسم قاعدة البيانات اللى انت عاوزها ونفسها فى حقل الوصف واسم السيرفير دا .\SQLEXPRESS وبعد كدا Next هتظهرلك الشاشة دى اختار منها Next هتظهر الشاشة دى علم على اللى فى الصورة واختار منها قاعدة بياناتك اللى انت انشأتها بعد كدا هتظهر اخر شاشة دى اختار منها Finsh هتظهرلك شاشة تاكيد اختار منها OK وممكن تعمل منها تيست لقاعدة البيانات تشوفها متصلة ولا لا بعد كدا هتلاقى قاعدة بياناتك ظاهرة فى كما فى الشاشة التالية --------------------------------------------- كدا احنا وصلنا لنص المهمة ظهرنا قاعدة البيانات للاكسس فاضل بس اصدر ليها الجداول بتاعتى هتفتح الاكسس وكليك يمين على الجدول نختار الاتى بعد كدا بعد كدا امسح الجدول طبعا قبل ما تمسح خد نسخة من قاعدة البيانات علشان مترجعش تصوتلى تقولى البرنامج باظ هههههههههه بعد كدا من بيانات خارجية فى الاكسس اختار التالى بعد كدا الاتباط بمصر البيانات علشان يعمل لينك للجدول بين السيكوال والاكسس بعد كدا اختار قاعدة البيانات بتاعتنا بعد كدا هتلاقى الجداول اللى صدرناها ظاهرة فى الاول مسبوقة بكلمة dbo_ اختاره واضغط اوكيه بعد كدا هياكد معاك حقول الجدول اللى هيا مفتاح اساسى اختار المفتاح الاساسى فقط هتلاقى الجدول ظهر عندك فى قاعدة البيانات الخاصة بك بهذا الشكل فقط اعد تسميته كما كان والجدول ظاهر بكل بياناته وبكدا يبقى قاعدة البيانات اتحول من اكسس الى سيكوال وسهل جدا تعمل لها باك اب من خلال سيكوال شكرا لكم

فورم اكسل استدعاء بيانات وصور العاملين الفيديو الصور الملف على الرابط التالى http://www.mediafire.com/file/r92gpfff79v1wgz/بيانات+وصور+الموظفين.rar

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

جزاك الله خيرا أستاذ / أحمد الفلاحجى مشكور

رزقكم الله أسمى مراتب الدنيا وأعلى منازل الجنة وجعلكم ممن طال عمره وحَسُنْ عمله وبُورك له في رزقه وماله وصحته وعافيته وأولاده وأهله

جزاك الله خيراً استاذ احمد

الف شكر استاذنا الكريم الهدف الاسمى اننا نتعلم منكم وليس النسخ واللصق كنت سالك عن الرقم 109 ماذا يعني ؟ من اجل ان تعم الفائدة للجميع فعلا هذا هو ما احتاج 1-لحساب المتوسط استبدل الرقم 109 بالرقم 101 2-لحساب العدد استبدل الرقم 109 بالرقم 103 3-لحساب الحد الاقصى استبدل الرقم 109 بالرقم 104 4-لحساب الحد الادنى استبدل الرقم 109 بالرقم 105

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

جرب المرفق بنفس الكود الى اشار له استاذنا @أحمد الفلاحجى علما باني لم اشاهد اي مشكلة بملفك العتب على النظر بيانات بين تاريخين.accdb

تم معالجة الامر super filter_new.xlsm

السلام عليكم اخى الفاضل ملفك به مشكله ارفق لك مثال لاستاذنا يوسف احمد جزاه الله خيرا لعلك تستفاد منه وتستطيع تنفيذه ع ملفك تقبل تحياتى وتمنياتى بالتوفيق بين تاريخين يوسف احمد.rar

هو ده المطلوب بالضبط استاذ سليم ربنا يبارك لك فى رزقك وفى اولادك وفى علمك ورزقك ان شاء الله الجنة

لا أعلم اذا كان هذا المطلوب super filter.xlsm

علم على الثلاث خلايا بالماوس اذهب الى التنسيق الشرطى فى القوائم الاعلى سترى ماحدث

هلا أخ ابو زاهر جرب وعطنا النتيجة 🤤 ::بالتوفيق::

تفضل color.mdb

أحسنت استاذنا الكريم عمل ممتاز وشرح مستفيض بارك الله فيك وزادك الله من فضله

رائع استاذنا الفاضل ربنا يزيدك من علمه وفضله وكرمه

وعليكم السلام ابو عبدالله 🙂 سؤالك غير واضح ، يا ريت تعمل مثال من بياناتك في ورقة اكسل/وورد مثلا 🙂 جعفر

السلام عليكم ارفق كم حالة اكثر من موظف في شيت المكملون مع البيانات المطلوبه بشكل يدوي الذين استوفو الشروط التي ذكرتها وان توفر الوقت ابشر تحياتي

السلام عليكم تفضل جرب المرفق امل ان به ماتريد المخالفات1.xlsm

تم إنشاء موضوع جديد خاص بالاتصال بالسيرفر فى هذا الرابط

السلام عليكم 🙂 رجاء من الجميع الالتزام بقوانين المنتدى ، والاهم حُسن استعمال الالفاظ ، وبدون تجريح لأحد 🙂 جعفر

السلام عليكم جرب المرفق Ali_2تعديل فورم.xlsm

وعليكم السلام-جرب هذا الملف فيه طلبك Create-Hyperlinked-List-of-Files-in-Subfolders.xlsm

آسف علي التأخر هنا توضيح للفكرة قم بتشغيل الاستعلام Query1 أولا ثم قم بتشغيل الاستعلام Q_thdeeth ولا تنسي الاطلاع علي البيانات قبل التغير لتري أثر التحديث - وكذلك أخذ نسخة احتياطية من الجداول لاعادة التجربة مرة أخري. والآن يبقي لتمام العمل انشاء استعلام حذف لبيانات الجدول Table1 بعد الانتهاء من التحديث - وهذا سهل عليك انشائه لذي لم انشأه ومن باب النصح هذه الاستعلامات الكثيرة ستعمل علي زيادة حجم قاعدة البيانات لذي ستكون محتاجا لاجراء ضغط واصلاح بين الحين والحين. والآن مع المثال ولا تنسي اخبارنا بالنتائج لديك. مثال_اوفيسنا_استعلام_تحديث_من_استعلام_تجميع.accdb

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

جميل جدا يعيطيك العافية تم التطبيق بنجاح احسنت

السلام عليكم في هاتين الخليتين (ذكور - إناث) أبدل الجزئية 1 - بـ 3 - مثل ما فعلت في المرفق... بن علية حاجي 123.xls

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

تفضل دالة نقل بيانات.xlsm

السلام عليكم ورحمة الله قمت ببعض التعديلات على الملف (تغييرات لبعض الرموز - إضافة جدول مساعد في ورقة "الأقسام" سميته "إسناد الأساتذة على الأقسام حسب المواد" - إضافة بعض المعادلات المناسبة...). في جدول توقيت الأساتذة يجب اعتماد الترميز التالي فيما يخص مادة "التربية الإسلامية" وحصة "الدعم في المواد": - بالنسبة لمادة التربية الإسلامية يجب استعمال الترميز : "اسلا+فراغ+رمز القسم"، مثال : اسلا 1م1 (وهو رمز لحصة التربية الإسلامية لقسم 1م1) - بالنسبة لحصة الدعم يكون الترميز التالي : "رمز القسم+فراغ+رمز المادة المختصر"، مثال: 1م1 عر (وهو رمز لحصة دعم لقسم 1م1 في مادة اللغة العربية) الرموز المختصرة للمواد : لغة عربية: عر ، فرنسية: فر ، انجليزية: انج ، اجتماعيات: اجت ، رياضيات: ريا ، تربية إسلامية: اسلا ملاحظة: لا يمكن فصل خلية إمضاء الأستاذ إلى جزئين لحصتي أ. م.فر/انج أو أ. م.عر/ريا باستعمال المعادلات... أرجو أن يفي الملف بالمطلوب وتجدني إن شاء الله في الخدمة لأي تساؤل أو تعديل آخر... أخوك بن علية حاجي ورقة الغياب.xlsm

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

السلام عليكم هو كود "الترحيل" نفسه مع تعديل طفيف جدا ثم ربطه بزر "الحذف"... بن علية حاجي تواتي3.rar

السلام عليكم تم طرح عدة اسئلة عن طريقة فرز او تصفية بيانات النموذج ، وسأقوم هنا بشرح الطريقتين: 1. إما عن طريق الاستعلام ، وهذا الرابط يعطينا المثال (والرجاء قراءته بتريث وتمعن وبالتفصيل) : 2. وإما عن طريق النموذج ، فميزتها: أ- انك تستطيع عمل تصفيه/تصفيات اضافية على النموذج او التقرير ، بعد تصفية الاستعلام ، ب- الاكسس سيعطيك الكود وسأشرح هنا كيفية عمل تصفية بيانات النموذج (وبنفس الطريقة يمكن عمل اكثر من تصفية ، وعمل فرز كذلك) : سأستعين بمرفق السؤال التالي للأخ محمد ، وبعد طلبت إذنه 1. قاعدة البيانات يجب ان تسمح لها ان تكون في وضع Layout View (هذا فقط حتى نتعلم الطريقة ، ويمكن الغاءه فيما بعد) ، . 2. النموذج يجب ان يكون غير منبثق . 3. هذا النموذج الذي نريد ان نعمل له تصفية بين تاريخين للحقل Date . 4. الهدف النهائي هو استخدام هذا الحقل لإدخال تاريخ معين ، ثم الضغط على زر "تصفية بين تاريحين" للقيام بالتصفية . 5. طريقة العمل: أ. بزر الفأرة اليمين نضغط في بيانات حقل التاريخ Date ، ب. ونختار تصفية التاريخ (السبب ان الاكسس اعطانا تصفية التاريخ هو لأن الحقل حقل تاريخ ، فلو كان الحقل نص او رقم لأعطانا الاكسس خيارات اخرى) ، ج. ونختار بين تاريخين (طبعا يمكنك اختيار اي من الاختيارات الاخرى ، وهذا يعتمد على التصفية التي تريد القيام بها) . د. تخرج لنا نافذة تطلب إدخال التاريخين (ويمكننا ادخال التاريخ بعدة طرق) ، وحسب اختيارنا ، والنتيجة المفروض ان نراها بعد التصفية هي السجلات بالاسهم الحمراء فقط . هـ. وهذه نتيجة التصفية اعلاه بين تاريخين . ح. والآن الى شرح كيفية الاستفادة مما عملناه اعلاه وتطبيقه في كود ، ننتقل بالنموذج الى وضع Layout View . ط. ونضغط بالفأرة اليسار على النموذج الفرعي الذي عملنا عليه التصفية ، ي. ثم ننظر في اعدادات النموذج ، الى ان نصل الى التصفية ، فنرى الكود الذي استعمله الاكسس للقيام بالتصفية ، فنعمل له نسخ ، ومثل ما اشرت اعلاه ، يمكننا اضافة اكثر من تصفية لأكثر من حقل ، ويمكن عمل فرز لحقل آخر ، ثم نرى الكود جاهزا هنا . ك. هذا الزر الذي سننقر عليه للقيام بالتصفية . ل. فنعمل الحدث على نقر الزر ، ثم نلصق الكود السابق ، ونقوم بتعديل التواريخ بما يناسب طلبنا ، وهو التصفية بين: تاريخ الحقل DateX و تاريخ الحقل DateX ناقصا 65 يوم ، او كما بالتواريخ في الملاحظات (باللون الاخضر في الكود) (ملاحظة مهمة للعلم: الاكسس يستخدم نظام التاريخ الامريكي في جميع عملياته ، والتاريخ الامريكي هو شهر/يوم/سنة ، كما نرى في كود التصفية) . م. وهنا نرى نتيجة النقر على زر "تصفية بين تاريخين" ، والذي يستعمل الكود اعلاه . ****************************************** اما اذا اردنا عمل استبعاد معلومة مثل "الاسكندرية" من قائمة Country . فيصبح الكود . ************************** الآن سنقوم بعمل اكثر من تصفية ، فرز بين تاريخين واستبعاد "الاسكندرية" فرزنا بين التاريخين ، وكانت نتيجته هكذا . واستبعاد معلومة مثل "الاسكندرية" من قائمة Country . فيصبح كود التصفية هكذا . والآن الى الكود الذي يضم هذه التصفيات: يجب ان نعرف اننا نتعامل مع مجموعة مختلفة من انواع الحقول ، وكل نوع له طريقة في عمل الكود ، فالسطر الاول هو تاريخ ، والسطر الثاني للنص ، ووضعت مثال في آخر سطر لحقل الرقم Dim City As String City = "اسكندرية" 'للتاريخ myCriteria = "([testQ].[datex] between #" & Me.DateX & "# and #" & Me.DateX - 65 & "#)" 'للنص myCriteria = myCriteria & " AND ([testQ].[country1]<> '" & City & "'" myCriteria = myCriteria & " or [testQ].[country1] is null)" 'للرقم 'myCriteria = myCriteria & " AND [testQ].[ID]<> " & Me.ID Me.TestF.Form.Filter = myCriteria Me.TestF.Form.FilterOn = True *********************************** كيف نعرف ان النموذج به تصفية: عند عمل التصفية في النموذج (وليس من الاستعلام) ، ستلاحظ ان النموذج يخبرك انك عملت تصفية ، هكذا بالتظليل الاصفر: . ولإزالة التصفية ، يجب عليك النقر على احد هذين المكانين المظللين بالاصفر ، او عمل زر: . والكود على نقر الزر سيكون: Me.TestF.Form.Filter = "" Me.TestF.Form.FilterOn = False جعفر 660.2.Test2006.mdb.zip

تفضل بدون سجلات التاريخ الفارغة Between (IIf(Len([Forms]![main]![Datamasterform]![DateX] & "")=0,#01-Jan-1900#,[Forms]![main]![Datamasterform]![DateX])) And (IIf(Len([Forms]![main]![Datamasterform]![DateX] & "")=0,#01-Jan-2900#,[Forms]![main]![Datamasterform]![DateX]+65)) والشرح Between (IIf(Len([Forms]![main]![Datamasterform]![DateX] & "")=0,#01-Jan-1900#,[Forms]![main]![Datamasterform]![DateX])) And (IIf(Len([Forms]![main]![Datamasterform]![DateX] & "")=0,#01-Jan-2900#,[Forms]![main]![Datamasterform]![DateX]+65)) مع سجلات التاريخ الفارغة Between (IIf(Len([Forms]![main]![Datamasterform]![DateX] & "")=0,#01-Jan-1900#,[Forms]![main]![Datamasterform]![DateX])) And (IIf(Len([Forms]![main]![Datamasterform]![DateX] & "")=0,#01-Jan-2900#,[Forms]![main]![Datamasterform]![DateX]+65)) Or [DateX] Is Null والشرح Between (IIf(Len([Forms]![main]![Datamasterform]![DateX] & "")=0,#01-Jan-1900#,[Forms]![main]![Datamasterform]![DateX])) And (IIf(Len([Forms]![main]![Datamasterform]![DateX] & "")=0,#01-Jan-2900#,[Forms]![main]![Datamasterform]![DateX]+65)) Or [DateX] Is Null جعفر

وعليكم السلام المفروض ان الاكسس يعطيك كود مثل هذا: ([testQ].[datex] between #01-Jul-17# and #27-Apr-17#) AND ([testQ].[country1]= 'اسكندرية' or [testQ].[country1]= 'الدقهلية' or [testQ].[country1] is null) اليك الكود ، وقد فككته الى اصغر مكوناته وانت اعمل المدرسة Dim City As String City = "اسكندرية" City2 = "الدقهلية" 'مجموعة اوامر الحقل الاول 'للتاريخ myCriteria = "(" myCriteria = myCriteria & "[testQ].[datex] between #" & Me.DateX & "# and #" & Me.DateX - 65 & "#" myCriteria = myCriteria & ")" 'مجموعة اوامر الحقل الثاني myCriteria = myCriteria & " AND " myCriteria = myCriteria & "(" 'للنص myCriteria = myCriteria & "[testQ].[country1]= '" & City & "'" myCriteria = myCriteria & " or " myCriteria = myCriteria & "[testQ].[country1]= '" & City2 & "'" myCriteria = myCriteria & " or " myCriteria = myCriteria & "[testQ].[country1] is null" myCriteria = myCriteria & ")" 'للرقم 'myCriteria = myCriteria & " AND " 'myCriteria = myCriteria & "[testQ].[ID]<> " & Me.ID 'Debug.Print myCriteria Me.TestF.Form.Filter = myCriteria Me.TestF.Form.FilterOn = True جعفر

هذا مثال مبسط و به الشرح لتصدير البيانات الي مكان محدد فى ملف وورد يتم انشاءه بناء علي قالب فى مكان محدد و تعتمد الفكرة علي عمل bookmark فى المكان المطلوب التصدير اليه في قالب الوورد ، و من ثم الارسال اليها و الكود أصلا من موقع أجنبي وضعه أحد الاخوة طالبا التعديل فيه ، علي برنامجه ، و هذه هي آخر نسخ التعديل علي برنامجه للتعامل مع الوورد . مع تحياتي sendtoword_abuwaleed_taher_5.rar