rudwan

نموذج الآلة الحاسبة Calcul.rar

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

هذا مثال لعمل نسخ احتياطي تلقائي لقاعدة البيانات ( أو لعدة قواعد بيانات ) بناء على مهمة مجدولة زمنيا - اضافة الى عمل اصلاح للملف و ضغط لعمل جدولة زمنية للنسخ الاحتياطي , اضغط على زر "Set Up Automated Backup" في أعلى اليمن تجد Edit Database to Back Up: اضغط على زر "Browse لتحديد الملف - ثم اضغط على زر "Add to List لاضافة هذا الملف المختار الى لائحة المهام المجدولة - أكتب مسار ملف النسخة الاحتياطيه ( و الذي يجب أن يكون مجلده منشأ سابقا و الا فان النسخ لن يتم ) ثم اضغط على زر Save Directory الموجود في المنتصف لحفظ المسار - حدد زمن و توقيت النسخ المجدول و ذلك في الحقل الأسفل من النموذج ثم اضغط على زر Save &Time لحفظ التوقيت يمكنك الضغط مرتين على أي ملف موجود في هذه اللائحة لتعديل توقيته أو حذفه من اللائحة لتنفيذ النسخ أبق نموذج "Open Backup Timer" مفتوحا و بدون تصغير AutoBkUp2K.rar

مثال لضبط و رقابة سجلات الملف , افتح الملف يعرض لك نموذج الموظفين , في حال تم تعديل أي حقل من حقول النموذج الفرعي أو الرئيسي , يتم تخزين معلومات التعديل في جدول مستقل , قم بتعديل اي حقل ثم اضغط على زر View Audit Table يعرض لك بيانات التعديل ان وجدت و هي : اسم المستخدم - المجموعة - اسم الجدول الذي تم عليه التعديل - رقم السجل المعدل - اسم الحقل المعدل - القيمة القديمة - القيمة الحالية - تاريخ ووقت التعديل AuditTrail2k.rar

مثال يجعل النموذج ينتقل تلقائيا من سجل للسجل الذي يليه - استخدام المؤقت في النموذج Atomatic_Record_Scrolling.rar

مثال رائع على استخدام خاصية المؤقت في النموذج Timer لصنع ساعة - أشكال متحركة مختلفة Animation2k.rar

و هذا مثال لكيفية فتح النموذج بعدة طرق انسيابية - animation.rar

- مثال على كيفية استخدام دوال التجميع في النموذج - المتوسط الحسابي - الأرصدة الحسابية كشوفات الحساب Aggregate.rar

- هذا مثال للتحكم بتغيير لون خلفية الأكسس - من تصميم أبو هاجر access_backcolor.rar

السلام عليكم اخواني أقدم لكم مجموعة من الأمثلة كنت قد حملتها من مواقع عربية و أجنبية لعلها تفيد من له اهتمام بها و المقصود بالمثال هنا ليس برنامج كامل و انما حل برمجي لجزئية معينة من جزئيات المسائل المطلوب حلها . . مع المعذرة عن ذكر اسم الموقع أو اسم المصمم للمثال حيث الأمثلة موجودة عندي من فترة و لم أعد أذكر معلومات عنها و سأقوم ان شا الله بتحميل الأمثلة أولا بأول و أرجو من الأخوة الكرام عدم ادارج أي تعليق هنا حتى يتسع المجال لتحميل أكبر عدد من الأمثلة بأقل عدد من المشاركات , و من أحب التعليق أو الاستفسار فليفتح موضوعا جديدا بهذا الأمر فهرس الأمثلة : تغيير لون خلفية الأكسس مثال على دوال التجميع مثال لفتح النموذج بعدة طرق انسيابية مثال رائع على استخدام خاصية المؤقت في النموذج Timer مثال يجعل النموذج ينتقل تلقائيا من سجل للسجل الذي يليه مثال لعمل جدول يبين جميع البيانات التي تم تعديلها مثال لعمل نسخ احتياطي مجدول زمنيا مثال لعمل ترقيم تلقائي برمجيا نموذج الآلة الحاسبة مثال لفتح نموذج التقويم مثال لكيفية تصفية مربع تحرير و سرد بناء على قيمة مقابلة من مربع تحرير و سرد آخر مثال للتحكم بلون خلفية النموذج و تغييرها من نفس النموذج مثال على كيفية اختيار اسم التقرير المطلوب من لائحة ListBox مثال لكيفية النسخ و اللصق من و الى الحافظة مثال لكيفية تلوين السجل الحالي في النموذج المستمر بلون مختلف مثال لكيفية انشاء شريط قوائم بالكود و اضفة أزرار اليها أو حذفها مثال لمقارنة الاختلافات بين سجلات جدولين مثال على التنسيق الشرطي بعدة طرق مختلفة للنماذج مثال على صنع تقرير مبني على استعلام جدولي محوري CrossTab_Query مثال للتحكم بخصائص مربعات النص من خلال أزرار الاختيار في النموذج مثال للتنقل بين حقول الصفحات Tab Pages من خلال زر أمر مثال مهم جدا يعرض لك حجم المكونات الفعلية للبيانات مثال مفيد جدا لمن يحتاج المساعدة في بناء الاستعلامات بسهولة كبيرة مثال يبين كيفية توظيف الدوال لاستخراج نتائج بيانات النموذج الفرعي من خلال النموذج الرئيسي مثال لتغيير لون زر الأمر بمجرد مرور الفأرة عليه مثال لتفقيط الأرقام - عربي انكليزي مثال على نقل عدة بيانات من نموذج الى نموذج آخر مثال على كيفية التحكم بترتيب عناصر لائحة ListBox من خلال زر أمر مثال لتشغيل استعلام حذف سجلات بناء على قيمة معينة مختارة في النموذج مثال على استخدام شريط التقدم الأزرق Progress Bar مثال على كيفية ارسال بيانات الى ملف وورد , و فتح ذلك الملف بعد انشائه مثال على البحث مع تجاهل التشابه في الحروف مثل الألف و الهمزة مثال على البحث المتقدم في أكثر من حقل مثال على استخدام المؤثرات البصرية في جعل الكائنات تتحرك باشكال هندسية مثال لكيفية تغيير تنسيقات الحقول : تاريخ - نصوص - أحرف مثال على نموذج يحوي نماذج فرعية بثلاثة مستويات

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

انظر المثال المرفق افتح الموديول الجديد تجد كيفية وضع الدالة افتح الاستعلام تجد كيفية تطبيقها RoundUpTo5.rar

لاستخدام أي دالة في الاستعلام , اعمل استعلام جديد من جدول موجود عندك اختر الحق الذي تريد تقريبه لأقرب نصف و ليكن اسمه مثلا Amount الآن اضف حقل جديد الى الاستعلام و أكتب فيه Round:roundupto5([amount]) طبعا و ذلك بعد أن تكون قد عملت وحدة نمطية جديده و لصقت فيها الدالة المذكورة أعلاه و مثله عمليات الجمع أيضا , تجمع حقلين هكذا Total:[Field1]+[Field2]

في موضوعك هنــــــــــــا مثال على دالة بسيطة , تستطيع عمل مثلها على هدف آخر

السلام عليكم يمكنك استخدام الدالة التالية Public Function RoundUpTo5(ByVal S) As Double On Error Resume Next Select Case S - Fix(S) Case 0: RoundUpTo5 = S Case 0 To 0.5: RoundUpTo5 = Fix(S) + 0.5 Case Is > 0.5: RoundUpTo5 = Round(S, 0) End Select End Function

الشرط غير واضح ماهو المطلوب بالضبط من شرط التاريخ ؟

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

انظري الاستعلام FinalQuery db1.rar

أشر الى الموضوع المطلوب لمعرفة ماالخطأ فيه

أنشىْ نموذج جديد خالي من البيانات و ليكن اسمه Search ضع فيه مربعي نص الأول First و الثاني End أنشىْ استعلام على جدول بياناتك و ضع في معايير حقل التاريخ لذلك الاستعلام الشرط التالي between #forms!search!first# and #forms!search!end# الآن ارجع الى النموذج المنشأ قبل , و شغل المعالج و أنشأ زر أمر يقوم بتشغيل الاستعلام السابق

المشكلة ان برنامجك متشابك بشكل جيد

انظر الاستعلام tasknew.rar

استخدم دالة الاضافة DateAdd كما يلي DateAdd("yyyy", 1, FirstDate) حيث تضيف له واحد أو اثنين بالنسبة للسنوات اذا كان تاريخ الاجازة ثلاثون أو ستون يوما أما اذا كان لديك سنة و نصف . تضيف واحد الى المعادلة السابقة , أي سنة .و تضيف ستة الى المعادلة التالية أي ستة اشهر DateAdd("m", 6, FirstDate)

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

المفروض أنه يكون هناك في جدول القيود مثلا حقل واحد مرتبط بجدول الحسابات و هو رقم الحساب فقط و يكون مرتبطا مع جدول الحسابات على حقل رقم الحساب أما حقل اسم الحساب فهو ليس ضروريا في جدول القيود اذ يكفي وجود المعرف و هو رقم الحساب و من خلال الاستعلام يمكن الحصول على رقم الحساب و اسمه من الجدولين : جدول القيود أو الترحيل و جدول الحسابات على سبيل المثال و يمكن الاطلاع على الرابط التالي لمعرفة كيفية تطبيق خاصية مربع التحررير و السرد على حقل في الجدول ليعرض حقلين من جدول آخر ( مثلا رقم الحساب و اسمه ) http://www.officena.net/ib/index.php?showtopic=16 و كذلك الموضوع التالي http://www.officena.net/ib/index.php?showtopic=6209