rudwan

جرب هذه الدالة البسيطه Public Function SumUpTo5(ByVal S,ByVal F,ByVal K) As Double On Error Resume Next SumUpTo3=s+f+k End Function

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

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

مثال على كيفية التحكم بترتيب عناصر لائحة ListBox من خلال زر أمر افتح الملف تجد على اليسار مربع تحرير و سرد , اختر منه احدى القيمتين , تجد البيانات الخاصة بالموظف قد عرضت في اللائحة التي على اليمين الآن في أعلى اللائحة يوجد زري أمري Order by ID أي تريتب البيانات حسب الرقم المعرف Order by Title أي ترتيب البيانات حسب الوصف يمكنك النقر على أي من هذين الزرين لاعادة الترتيب حسب أي عمود , كما يمكنك فرز تلك البيانات تصاعديا أو تنازليا , حسب اتجاه السهم الموجود في زر الأمر المذكور OrderListBox2k.rar

مثال فيه فائدة كبيرة على طريقة استخدام قرائن فتح النموذج OpenArg بشكل بسيط و متعدد افتح الملف تجد عدة أزرار أمر الزر الأول يفتح لك نموذجا فيه خيارين : الأول كيفية فتح النموذج FORM1 و ترتيب السجلات على الرقم المعرف باستخدام OpenArg الثاني فتح نفس النموذج و ترتيب السجلات على الاسم باستخدام OpenArg الزر الثاني يفتح نموذج فيه عدة خيارات لفتح تقرير واحد , حيث تفتح نفس التقرير و لكن باختلاف عنوان التقرير و المحددات و ذلك باستخدام OpenArg الزر الثالث يعرض نموذج فيه ثلاثة مربعات تحرير و سرد , اختر أي من هذه المحددات أو كلها ثم اضغط زر add score يفتح لك سجل جديد في نموذج آخر يقوم بتعبئة الحقول الثلاث تلقائيا بالقيم التي تم تحديدها في النموذج الذي يحتوي مربعات التحرير و السرد - أي دون الحاجة لاعادة كتابة تلك القيم في النموذج الجديد مرة ثانية - و هذه فائدة كبيرة على استخدام أكثر من قرينة من القرائن OpenArg - Openargs2k.rar

مثال لتحويل الأرقام الى حروف - كتابة الرقم كتابة من أجل التفقيط عربي انكليزي مع خيارات عديدة من تصميم أبو هادي- أوفسينا NumberLettrs.rar

السلام عليكم في جدول ترميز الرتبة أضف حقل سنة التقاعد الآن في نموذج إضافة البيانات للافراد عند تسجيل رتبة الموظف وتاريخ ميلاده استخدم كود Dllookup("Year","Rutbah","[Rutbah ID]=" & ME.Rutbah) حيث Rutbah هو اسم الجدول ترميز الرتبة Year الحقل المصاف في الجدول Rutbah ID رمز الرتبة ME.Rutbah اسم حقل رمز الرتبة في النموذج و نفس الكلام ينطبق على السؤال الثاني حيث تضيف حقل آخر اسمه سنوات الترفيع

مثال لنموذجين فيهما عدة أزرا أمر , بمجرد تحريك الفأرة فوق أحد الأزرار يتغير لون نصه الى الأخضر HighLightComd.rar

مثال يبين كيفية توظيف الدوال لاستخراج نتائج بيانات النموذج الفرعي من خلال النموذج الرئيسي افتح النموذج , اضغط الزر العلوي يعرض لك نموذج رئيسي فيه نموذج فرعي , تجد في الأسفل مربع نص فيه مجموع حقل القيمة الزر الثاني يعرض نفس النموذج الرئيسي و الفرعي و لكن باضافة خاصية فلترة البيانات بناء على قيمة معينة لحقل القيمة FormSubform2k.rar

مثال مفيد جدا لمن يحتاج المساعدة في بناء الاستعلامات بسهولة كبيرة قم بتحميل الملف أولا , ثم استورد النموذج الموجود frmSearch الى أي ملف من ملفاتك الآن افتح النموذج frmSearch من ملفك الأصلي , يعرض لك جداول الملف في لائحة على اليسار العلوي , اختر أحد الجداول و بجانبه تجد مربع تحرير و سرد افتحه يعرض لك حقول الجدول , اختر أحد الحقول للبحث فيه و على يساره يوجد مربع نص اذا كنت ترغب باضافة شرط بحث ضمن نفس الحقل يمكنك اضافة حقول أخرى للبحث فيها في الأسطر التالية يظهر لك في المنتصف كود الاستعلام , يمكنك تعديله حسب رغبتك بضغط Edit Query نائج الاستعلام تظهر في اللائحة السفلى من النموذج اذا كانت نتائج الاستعلام هي المطلوبة يمكنك بناء استعلامك باحدى طريقتين 1- اضغط زر Creat Query في الأسفل , ستظهر لك رسالة تطلب ادخال اسم الاستعلام الجديد ثم ينشأ لك الاستعلام المطلوب 2-اضغط زر Copy SQL ينسخ لك كود الاستعلام في الحافظة , اذهب الاستعلامات و أنشأ استعلام جديد بدون اختيار الجداول , ثم افتح نافة ال sql و انسخ فيها الكود السابق ثم احفظ findrecord2k.rar

مثال مهم جدا يعرض لك حجم المكونات الفعلية للبيانات افتح النموذج و اضغط على زر Start يعرض لك الجداول الفعليه و عدد سجلاتها و حجمها الحقيقي اضافة الى جداو ل النظام نفسه و أحجامها كذلك و أخيرا الحجم الكلي للملف FileSize.rar

مثال للتنقل بين حقول الصفحات Tab Pages من خلال زر أمر CurrentTab2k.rar

مثال للتحكم بخصائص مربعات النص من خلال أزرار الاختيار ف يالنموذج افتح النموذج الرئيسي , Demo1 تجد ثلاثة مجموعات من الحقول Group a - Group b - Group c و على اليمين حدد مثلا رمز المجموعة A ثم اضغط على الأزرار التي تحته لاظهار أو اخفاء حقول المجموعه - تمكين أو عدم تمكين الحقول - قفل أو فتح قفل العناصر Demo1 يفتح نموذج لادخال حقول جدول , توجد في اسفل حقول الادخال زري أمر على اليسار List Requierd Control يعطيك قائمة الحقول المطلوبة في الجدول و التي لايمكن حفظ السجل بدون ادخال قيمة لها Demo2 يفتح نموذج يغير خصائص المجموعات - ألوان - اطارات - أنماط .. الخ CtlGroups.rar

مثال على صنع تقرير مبني على استعلام جدولي محوري CrossTab_Query معلوم أن حقول هذا الاستعلام غير محددة حيث يمكن أن تتغير تلك الحقول حسب تغير قيم الاستعلام , و عندما تحتاج تقرير فيه حقول مجاميع مثلا , ستحتاج في كل مرة الى تغيير تصميم الحقول ليتناسب مع عدد الحقول الفعليه و اسماؤها هذا المثال يحل تلك المشكلة حيث سيأخذ بالاعتبار تلقائيا اسماء الحقول و أعدادها CrosstabReport2k.rar

هنا أصبح موضوعا آخر أرجو فتح موضوع جديد مع تحديد ماهي المتغيرات المطلوبة بالضبط

النموذج ممتاز جدا , و لكن حبذا لو يتم تظليل السجل كله بدلا من الحقل المقصود و هذا مجرد راي فقط

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

مثال لمقارنة الاختلافات بين سجلات جدولين , الجدول الأساسي و اسمه هنا : DefaultBaseComparisonTable و الجدول المتغير و اسمه هنا VaryingTable افتح النموذج تجد زري أمر بالضغط على الزر الأول تحصل على جدول اسمه TableDiscrepancies و يعطيك معلومات عن السجلات المختلفة بين الجدولين و بالضغط على الزر الثاني تحصل على الجدول TableDiscrepancies2 و فيه بيانات تفصيليه أوضح من الجدول الذي قبله CompareTwoTables2k.rar

مثال لكيفية انشاء شريط قوائم بالكود و اضفة أزرار اليها أو حذفها افتح النموذج frmCommandBar ستفتح لك على مربعي تبديل Toggle Buttons و شريط قوائم اذا ضغطت الزر اليسر العلوي تظهر شريط القوائم الخاص بالأكسس في الأعلى , أما اذا ضغطت الز راليساري تظهر القائمة الخاصة بالمثال اضغط الزر الأيمن الأسفل تختفي شريط تصميم القوائم المفتوح حديثا , و بضغط الزر اليسار تعود للظهر في شريط القوائم تجد بجانب المصباح الكهربائي مربع تحرير و سرد فيه قيمتين الأولى Creat Button و هذا يؤدي لاضافة زر قائمة جديد الى شريط القوائم و بضغط remove Button تحذف الزر الأخير CommandCBO.rar

مثال لكيفية تلوين السجل الحالي في النموذج المستمر بلون مختلف CndFrmt.rar

مثال لكيفية النسخ و اللصق من و الى الحافظة يفتح النموذج على نموذج فيه مربع نص و تحته أربعة أزرار Clear Text Box لمسح محتويات مربع النص Clear Clipboard لمسح محتويات الحافظة Copy Text Box to Clipboard لنسخ محتويات النص الى الحافظة Copy from Clipboard to Text Box لتفريغ محتويات الحافظة في مربع النص clipboard2k.rar

مثال على كيفية اختيار اسم التقرير المطلوب من لائحة ListBox افتح النموذج الرئيسي , يعرض لك ثلاثة أزرار الزر الأول يفتح على نموذج فيه لائحة تحوي أسماء التقارير , و بالنقر على أي اسم يفتح التقرير المطلوب الزر الثاني يفتح نموذج فيه لائحة و في أعلاه زري اختيار , حيث تستطيع اختيار اما الاستعلامات أو التقارير و باختيار أي منها تتحدث اللائحة تلقائيا لتعرض أسماء الاستعلامات أو التقارير المتاحة ChooseReportFromList2_2k.rar

مثال للتحكم بلون خلفية النموذج و تغييرها من نفس النموذج افتح النموذج تجد ثلاثة أزرار الأول : يفتح لك نموذجا فيه زري اختيار في الأعلى على اليمين و على اليسار , تستطيع اختيار لون من على اليمين و لون من على اليسار لتصبغ نموذجك بطريقك جميله الثاني : يعرض لك طريقة تماذج اللونين من الأعلى الى السفل الثالث : تعليمات لكيفية تطبيق أكواد هذا المثال في نماذجك ChangeBackColor.rar

مثال لكيفية تصفية مربع تحرير و سرد بناء على قيمة مقابلة من مربع تحرير و سرد آخر افتح النموذج تجد خمسة أزرار الزر الأول يعرض نموذج لتصفية مربع تحرير و سرد بناء على قيمة مربع تحرير و سرد آخر الزر الثاني نفس الأول لكن يضاف عليها وجود قيمة (*) , فاذا اخترت * من المربع الأول يعرض كل سجلات القائمة الثانيه , كخيار اضافي الزر الثالث : نفس الزر الثاني و لكن باختيار كلمة ALL لعرض كافة سجلات المربع الثاني بدلا من علامة * الز رالرابع يعرض كيفية تصفية لائحة ListBox بناء على قيمة لائحة أخرى الزر الخامس يعرض تصفية مربع تحرير و سرد ضمن نموذج فرعي CascadingComboBoxes2K.rar

مثال على نموذج فيه زر يفتح التقويم calendarsolution.rar