ابوخليل

تمام عليك اخي فادي .. حول فكرتك نلف وندور سأقوم بشرح الخطوات : لدينا ثلاثة انواع من الاشتراكات : النوع الأول ذهبي ( مفتوح) بمعنى يتم حساب ايام الحضور فقط .. النوع الثاني فضي (جزئي ) اي يعوض عن جزء من ايام الغياب .. لنتفق على 3 ايام عن كل شهر النوع الثالث برونزي ( مغلق ) اي يحسب اشتراكه حسب التاريخ حيث لا يوجد تعويض ثلاثة اصدقاء اشتركوا في يوم واحد لمدة شهر .. وكل واحد منهم اشترك بنوع من هذه الانواع .. وسنمنحهم اسماء بنوع اشتراكاتهم الاصدقاء الثلاثة حضروا العشر الأيام الأولى ثم قرروا ان يقوموا برحلة صيد او رحلة بحرية لمدة 10 أيام .. يعني غابوا 10 ايام في اليوم 21 حضروا جميعا واستمروا بالحضور الى نهاية الشهر . العضو الذهبي سيتبقى له 10 ايام كرصيد .. حسابه يتم حسب ايام الحضور . ولم يحضر الا 20 يوما العضو البرونزي انتهى اشتراكه .. حسابه يتم حسب التاريخ : من/ الى .. نأتي الى العضو الفضي وهو محل النقاش .. الآن يستحق ثلاثة ايام كتعويض .. ولكن لنفترض ان شخصا ما غاب يوما واحدا فقط خلال الشهر .. هل سيتم منحه 3 ايام طبعا لا .. سيعوض عن يوم واحد فقط والعملية تتم بمقارنة ((( الحصة المعتمد في التعويض ) + الايام التي حضرها ..))) من جهة .. مع ايام الاشتراك المستحقة (شهر) بعملية حسابية وشرط عدم تجاوز عدد ايام الشهر يتم تعويضه فعندما نقول انه غاب يوما واحدا فستتم الحسبة على النحو التالي : عدد ايام التعويض النظامية = 3 ايام عدد ايام الحضور =29 عدد ايام الشهر 30 يوما 3 +29 = 32 .. .. الدالة سوف ترجع النتيجة الى 30 ولكن 30 -29 = 1 اذا يتم تعويضه يوما واحدا ----------------------------------- لو حسبناها على الصديق البرونزي فسوف تتم هكذا : ايام التعويض=3 ايام الحضور = 20 عدد ايام الشهر=30 3+20=23 ولكن 30-23 = 7 النتيجة اكبر من التعويض اذا يستحق كامل التعويض لا نستغني عن المقترحات والافكار منكم احبتي واخواني

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

بعد اجالة الفكر .. عدلت عن فكرة المالك او تدخل الموظف .. وافكر بطريقة تكون خفيفة وآلية ما لون بالاحمر هو ما كنت افكر به عند طرحي للموضوع : ولكن كما ذكرت صرفت النظر عن التدخل البشري .. واريد ان يتم الأمر آليا عن طريق الزبون الفكرة لم تتبلور بعد ------------------------------------------------------------------------------------------ قبل ان ابدأ بتنفيذ الفكرة سوف اطرح الخطوات لأستنير بآرائكم وأنهل من علمكم

في التقرير : في حدث التحميل اذا انت تعرض التقرير قبل طباعته او في حدث الطباعة اذا انت تطبع مباشرة ضع السطر التالي Private Sub Report_Load() Me.Caption = [Forms]![frm_Section]![cbo_Class] End Sub اعجبني جمال العرض في السؤال .. مع ان الطلب يمكن ايضاحه بسطرين او ثلاثة اتمنى نراك قريبا تتصدر الاجابات للأعضاء على هذه الطريقة

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

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

له من اسمه نصيب .. عذاب .. نسأل الله السلامة اول مشاركة لي .. الحل فيها متكامل فقط يضع في اعلى الكود او اسفله : سطر اضافة سجل جديد

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

صاحبي لديه برنامج تسجيل ومتابعة خدمات لمنشأة الزبون او العميل مشترك في هذه الخدمة شهريا يجدد الاشتراك كل شهر في يوم ما ومع بداية الشهر وبعد ان سدد الزبون الاشتراك حصل لديه ظرف سفر طارىء لمدة نصف شهر ويريد التوقف المؤقت .. بمعنى ان لا يتم احتساب ايام سفره يقول صاحبي : برنامجي يظهر اسماء الزبائن الذين اقترب موعد انتهاء اشتراكهم ( يقارن التاريخ الحالي بتاريخ يوم الاشتراك) حيث اني عملت طريقة في برنامجي وهي اني اضيف الايام التي سيتغيب فيها .. الى سجل الاشتراك فلا يظهر الاشعار فلو كان الاشتراك شهرا 30 يوما ويريد ان يتوقف اسبوعا .. اقوم باضافة 7 ايام الى سجله فيصبح مجموع الايام 37 يقول صاحبي .. لدينا زبائن دائمين واشتراكهم سنوي .. واريد ان اجعل التوقف لهم خاصا مفتوحا بدون تحديد بحيث الزبون يسافر او ينقطع ماء شاء شهر او شهرين او سنة .. بمعنى يكون اشتراكه عبارة عن رصيد .. حسب الاستفادة من الخدمة وليست حسب الوقت يقول : واريد ان اجمع بين الطريقتين اختار منهما ما يناسب الزبون اخواني واحبتي .. احببت ان تشاركوني بافكاركم

البحث وتعديل درجات8.rar

شكرا للمشاركة اخي ابو بسملة تفضل تعديل كامل على الكود مع المرفق Dim db As Database Dim td As TableDef Set db = CurrentDb() For Each td In db.TableDefs If Left(td.Name, 4) = "MSys" Or Left(td.Name, 1) = "~" Then GoTo Continue DoCmd.RunSQL "DELETE * FROM " & td.Name & ";" Continue: Next MsgBox " all records in all tables are deleted" Me.Requery Database2.rar

العلاقات بين الجداول .. تأكد منها خاصة .. خاصية تتالي الحذف

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

جميل جدا .. مع ان الحقل status ثغرة يمكن التلاعب بها فتنعكس العملية . هل الاعلان عن متغير رقمي عند الفتح وعندما يتم فك التشفير تتغير قيمته من اجل شرط التشفير يقوم بالمهمة بدلا من الحقل ؟ والافضل عند تغير قيمة المتغير ان تتغير الى : صفر ويكون هو الشرط لماذا ؟ ... خشية ان يحدث خطأ .. فاي error عند العمل على البرنامج مهما كان صغيرا يسبب مسح للذاكرة هنا لو تم مسح الذاكرة سيبقى المتغير على قيمته الافتراضية صفر

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

شكرا اخي فادي للتنبيه .. تم فصل الموضوع ويمكنك فتح موضوع خاص بك ان احببت .

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

فكر قليلا هو الحل نفسه ادرج سطر الحفظ او سجل جديد في أعلى الحدث

السلام عليكم ايضا انا لدي تساؤل ؟؟ كيف تضع الرقم المطلوب داخل النموذج بمعنى : كيف تعرف مرتبة الرقم الذي ستضيفه .. بمعنى اوضح كيف عرفت ان الرقم المناسب هو 9 ؟ ماهي معاييرك ؟ الحل برأيي : ان اعادة الترقيم يكون منفصل عن الادخالات يتم الترقيم التلقائي بناء على التاريخ الذي يتم فرزه من الأقدم الى الأحدث يمكنك اعادة الترقيم في اي وقت سواء ادخلت بيانات ام لم تدخل ADD2.rar

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

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

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

تفضل تم تغيير الحدث Dim x As Integer x = Nz(DCount("asm", "tbl1", "asm='" & Me.asm & "'"), 0) If x > 0 Then Beep MsgBox "هذا الاسم موجود سابقا", , "" DoCmd.CancelEvent Exit Sub End If الاسم موجود سابقا3.rar

تفضل حماية تشفير.mdb

بعد الرسالة اكتب : Undo الاسم موجود سابقا2.rar