ابو ريان

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

شكرا يا استاذنا ابو هادي على هذه الملاحظة وجزاك الله خيرا

اخواني الأعزاء نظرا للمواضيع والأسئلة التي اثيرت حول هذا الموضوع فقد فكرت في طريقة ربما تكون سهلة ومبسطة للجميع ولكن لم اعمل عليها تجارب كثيرة لذا ارجو تجريبها والعمل بها ان كانت نافعة وان كان بها عيوب ارجو مسامحتي . ________________.zip

وماذا عن بريد الهت ميل

هذا البرنامج على الفيجوال بيسك يحاكي برنامج الويندوز ولكن لم استطع ان اجعله يعمل على الاكسس amremad1.zip

لقد كان يعيب موضوعنا في السابق هو امكتنية لجوء المستخدم الى ارجاع تاريخ الجهاز ولذا خطرت لي بعض الأفكار لمنع محاولات العابثين . 1- انشئ مربع نص وسمه d واجعل مصدر هذا المربع جدول ضع به الرقم السري الاول 2-اجعل القيمة له 1401 وهو الرقم السري الاول و الافتراضيه له صفر 3-انشئ استعلام حذف مصدره الجدول السابق 4-قم بتوزيع الاوامر التالية على الإجراءات عند الفتح للنموذج - بعد التحديث لمربع النص الذي يدخل به كلمة السر - عند النقر لزر ok فعند فتح النموذج ضع امر يشغلل الاستعلام في حال كان التاريخ اكبر من او يساوي التاريخ الذي تحدده لانتهاء الرقم السري الاول عندها سيتم حذف سجل من الجدول وبالتالي حذف القيمة بمربع النص d ال 1401 في الاجراء بعد التحديث لمربع النص الذي يوضع به كلمة السر ضع امر لاظهار رسالة في حال كان الرقم المدخل 1401 و القيمة لمربع النص d هي صفر والتاريخ < من التاريخ الذي تحدده لانتهاء الرقم السري الاول "لقد تم التلاعب بتاريخ الجهاز" هذا وارجو من اصحاب صلاحيات ارفاق الملفات ارفاق مثال لموضوعي هذا كما فعل الاستاذ شاكر جزاه الله خيرا .

آسف لم اعلم ان الاخ اشرف رد على السؤال فاضطررت للتحرير

تقبل الله منا ومنك صالح الأعمال

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

احيانا عندما اخرج من برنامج معمول بالاكسس عند محاولة فتح الملف مرة اخرى تنشاايقونه اخرى مجاوره على سطح المكتب بشكل ايقونة الملف الذي اريد فتحه عليها علامه ونوع الملف هو Microsoft Access Record-Locking Information ولا استطيع فتح الملف الا بإعادة تشغيل الجهاز فهل يوجد حل لهذه المشكلة علما ان هذا لم يحصل معي الا في البرامج المعموله بالاكسس والويندوز الذي استخدمه xp

تفضل اخي مصلح هذا الرابط به برنامج البحث http://vb4arab.com/vb/showthread.php?s=&th...E3%CC+%C8%CD%CB

ارجو ارسال الملف على ايميلي الخاص esraalm2002@yahoo.com وسأحاول مساعدتك بقدر استطاعتي انشاء الله

نعم اخي يمكن تحويل الميلادي الى هجري والعكس وبالنسبة لطلبك تحويل الميلادي الى هجري في مربع نص بناء على مربع نص آخر فلديك مثلا مربع النص تاريخ ميلادي والآخر تاريخ هجري في حدث بعد التحديث للأول اكتب الكود Dim dd As String dd = Trim(Format(تاريخ_ميلادي, "dd/mm/yyyy")) [تاريخ هجري] = ConvertDateString(dd) وفي الوحده النمطية اكتب الكود 'التحويل من التاريخ الميلادى للهجرى Function ConvertDateString(ByRef stringin As String) Dim SavedCal As Integer Dim d As Date Dim s As String SavedCal = Calendar VBA.Calendar = 0 d = CDate(stringin) VBA.Calendar = 1 s = CStr(d) ConvertDateString = Format(s, "dd/mm/yyyy") VBA.Calendar = SavedCal End Function 'التحويل من التاريخ الهجرى إلى الميلادى Function ConvertDate(ByRef stringin As String) As String Dim SavedCal As Integer Dim d As Date Dim s As String SavedCal = Calendar VBA.Calendar = 1 d = CDate(stringin) VBA.Calendar = 0 s = CStr(d) ConvertDate = Format(s, "dd/mm/yyyy") VBA.Calendar = SavedCal End Function

اذا كان المشكلة في المقسوم عليه فبإمكانك عمل حقل وسمه مثلا d متوسط الدرجات:[عربي1]+[عربي2]+............ /[d] وبذلك يمكنك تغيير هذا الرقم حسب طلبك

في الاستعلام اختر جميع الحقول الموجوده لديك واجعل حقل آخر في الاستعلام وسمه متوسط درجات الطالب واكتب به متوسط الدرجات:[عربي1]+[عربي2]+............ /3 هذا على حسب ما فهمته من سؤالك وارجو ان يكون هو المطلوب