ابو ريان

اخواني : هذه الشاشة اتمنى ان تحوز على رضاكم وهذا ما استطيع تقديمه لهذا المنتدى اظن ان هناك خطأ بسيط في كود التايمر لفتح النموذج الرئسي وكن اتمنى من لديه الخبرة التعليق على ذلك وتعديله 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 هذا على حسب ما فهمته من سؤالك وارجو ان يكون هو المطلوب

تتمكن الإستعلامات من أداء وظيفه عديده حسب تسخير المستخدم لها فها هي مع استخدام بسيط للدالة dlookup تمنع تكرار قيمه لنفس رقم السجل لنفس التاريخ او حسب حقول اخرى . فلدينا مثال مكون من رقم تاريخ قيمه في نموذج اسمه نموذج 1 لنعمل استعلام نختار منه الحقول الثلاثه ونكتب تحت القيمه في المعايير نكتب [forms]![نموذج 1]![القيمه] وتحت الرقم نكتب [forms]![نموذج 1]![الرقم] وتحت التاريخ نكتب [forms]![نموذج 1]![التاريخ] والآن نتجه الى النموذج ونكتب في الاجراء بعد التحديث لحقل القيمه الكود التالي If DLookup("القيمه", "استعلام1") > 0 Then response = MsgBox("iهذه القيمه موجوده مسبقا وبنفس التاريخ لهذا السجل هل تريد التكرار", vbYesNo, "تبيه عن تكرار") If response = vbYes Then DoCmd.GoToControl "اضافة سجل جديد" Else If response = vbNo Then DoCmd.GoToControl "تراجج" [القيمه] = "" End If End If End If هنالك ايضا زرا امر يتم انشاءهما في النموذج وهما تراجع و اضافة سجل

انتهى

ما فهمته من سؤالك هو ان لديك جدول به اسماء المدرسين والمواد التي يدرسونها والحصص وجدول آخر وبه اسماء الفصول وتريد عرض البيانات في تقرير على اساس اسم المدرس لو اسم الفصل لنأخذ مثلا على أساس انك تريد اظهار البيانات على اساس اسم المدرس اولا قم برط الجدولين بواسطة علاقة راس بأطراف برقم المدرس اجعل لديك نموذج لطباعة التقارير ضع قائمة مربع تحرير وسرد في نموذج طباعة التقارير قم بإنشاء الاستعلام من جدول الفصول اختر اسم الفصل ثم من جدول المدرسين اختر البقية في معايير للحقل الفصل اكتب [forms]![اسم النموذج الذي انشأت لطباعة التقارير]![قائمة اختيار الفصول] ضع زر امر في نموذج طباعة التقارير ليفتح التقرير في تصميم التقرير اسحب اسم الفصل واجعله في رأس الصفحة حتى لا يتم التكرار

ذا كنت تريد بيع برنامج وتريد انهاء البرنامج عند العميل بعد فترة معينة ولا تريد الذهاب الى العميل بل تريد الإكتفاء بالإتصال من طرفه يخبرك أن البرنامج يطلب رقم سري جديد ، اليك الآن الطريقه: انشء نموذجا وليكن اسمه شاشة الدخول اجعل به مربع نص وليكن اسمه s ضع زر امر ok وآخر cancel ضع lable او تسميه واجعل التسمية التوضيحية لها الرقم 1401 وهو الرقم السري الاول وسم الليبل D حرر الخاصية مرئي الى لا اعمل الآن نموذج آخر وسمه وليكن الشاشة الرئسية اجعل بدء تشغيل البرنامج على شاشة الدخول الآن في حدث عند الفتح لشاشة الدخول اكتب الكود التالي:- If Date > #2/15/2004# Then D.Caption = 510 Else If Date < #2/15/2004# Then D.Caption = 1401 End If End If في حدث عند النقر لزر ok اكتب الكود If [s] = D.Caption Then DoCmd.OpenForm "الشاشة الرئسية " If [s] <> 1401 And [s] <> 510 Then MsgBox "الرقم المدخل غير صحيح" End If وفي حدث بعد التحديث لمربع النص S If Date > #2/15/2004# And [s] = 1401 Then MsgBox "لم يعد بإمكانك استخدام هذا الرقم السري فضلا اتصل بمصمم البرنامج لتحصل على رقم سري جديد" Else If Date < #2/15/2004# And [s] = 510 Then MsgBox "الرقم المدخل غير صحيح" End If End If