rudwan

أهلا بك أخي أحمد المعادله صحيحه لكن الرموز خطأ , حيث في تذييل التقرير , لااعتبار لسماء الحقول المحسوبه مثلا استخدمت =sum([gh]) في حين أن gh نفسه هو حقل مجموع لعدة قيم هي : a,b,c كما أن كل واحد من تلك القيم هو مجموع قيم أخرى و هذه القيم كلها ليس لها اعتبار في تذييل التقرير لأنه لايعرف قيمتها , و انما يتعامل مع جمع قيم حقول اصليه , فلو وضعت مجموع قيمة اي حقل ( غير محسوب ) ستظهر لك نتيجة الجمع بشكل صحيح و على كل حال لي رأي في تصميم الحق نفسه , حيث أنك اعتمدت جدولا واحدا للمدرسين و الحصص و الفصول و المواد , و هذا كله أدى الة تعقيد الجدول و بالتالي الى تعقيد المعادلات التي استخدمتها أرى من الأسهل لو وضعت جداول مستقله للمواد - الفصول - المدرسن ثم تستخدم جدول جديد لحصص الأسبوع مرتبط بالجداول السابقه , ستسهل لك المهمه أكثر و أكثر ان شا الله

تفضل أخي الكريم هذا موضوع فيه برنامج متكامل عن الأيتام عسى ينفعكم و بارك الله فيكم برنامج للأيتام و يليه برنامج للمتبرعين

الحقيقه يجب اتباع نفس خطوات المثال عمليا و ليس حرفيا بمعنى أن أسماء الحقول و الجداول يجب أن تتوافق مع اسماء الحقول و الجداول الفعليه و على اي حال لا استطيع الجزم بمكان الخطأ الا عندما أرى المثال نفسه

العمل صحيح لكن تأكدي أن يكون حقل التاريخ الهجري اسمه فعلا MyDate ( اسم الحقل و ليس مصدر البيانات ) . لأن أي كود يتعامل مع اسم الحقل و ليس مع مصدر بياناته في الجدول

أختي المسلمه هل ترغبين باعادة ارسال الملف ؟

ضع في خانة التحقق من الصحه لحقل سعر البيع : >[PurchPrice]

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

حياكي الله أختنا , و مبروك توصلك لنهاية المشروع مؤقتا , يمكنك ارسال الملف الى الايميل r1353@hotmail.com حتى نرى ماسبب عدم التحميل و سأقوم ان شاء الله بارفاقه مباشرة في المنتدى

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

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

أرجو التوضيح أكثر كيف سيتم التعديل في نموذج آخر ؟

الكود الذي وضعته أنت خطأ , اعتمد الكود الذي وضعته لك أو أرفق ملفك اذا لم تنجح معك

و هذا ملف آخر و لكنه باللغه بالانكليزيه Books2k.rar

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

هذا خطأ يا أخي , ألم تنسخ الكود الذي وضعته لك أعلاه Private Sub Form_BeforeInsert(Cancel As Integer) [CreatedBy] = MyUser.UserName [CreatedDate] = Now() End Sub

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

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

نعم أخي السهران عندك حق , أنا أخطأت في كود اسم المستخدم , و هذا التعديل هنا Private Sub Form_BeforeInsert(Cancel As Integer) [CreatedBy] = MyUser.UserName [CreatedDate] = Now() End Sub و مثله الكود الآخر و هذا الملف حسب طلب لينا , يفتح نموذج الادارات ( مأخوذ من برنامج ابن مسقط نفسه ) في حال التعديل في أي من حقول النموذج , يتم ادخال سجل جديد في جدول التعديلات modifications حيث يسجل فيه : اسم الجدول - اسم الحقل الذي تم فيه التعديل رقم السجل اذلي تم فيه التعديل القميه الأصليه للحقل القميه المعدله من قام بالتعديل تاريخ ووقت التعديل اسم المتسخدم rudwan كلمة السر 1 ModifiedFields.rar

أعطني مهله حتى الغد ان شاء الله , صدقا مشغول لآخر درجه

توجد دوال مميزه لأستاذنا أبو هادي خاصه بتحويل التاريخ أنسخي هذه الأكواد في وحده نمطه مستقله Function GetSysHijri(ByVal HijriDate As Variant, _ Optional ByVal FormatPic As String = "dd/mm/yyyy") As String Dim oKey As Variant Dim AddDays As Integer Dim CurrCal As Byte Dim NewDate As String Dim ddd As String Dim dddd As String Dim Pos As Integer On Error Resume Next CurrCal = Calendar Calendar = vbCalHijri HijriDate = CDate(HijriDate) If Not IsDate(HijriDate) Then Exit Function If Year(HijriDate) = Year(Date) And _ Month(HijriDate) = Month(Date) Then Set oKey = CreateObject("Wscript.Shell") Select Case oKey.RegRead("HKEY_CURRENT_USER\control Panel\International\AddHijriDate") Case "AddHijriDate-2": AddDays = -2 Case "AddHijriDate": AddDays = -1 Case "": AddDays = 0 Case "AddHijriDate+1": AddDays = 1 Case "AddHijriDate+2": AddDays = 2 End Select Set oKey = Nothing Else AddDays = 0 End If ddd = format(HijriDate + AddDays, "ddd") dddd = format(HijriDate + AddDays, "dddd") NewDate = format(HijriDate + AddDays, FormatPic) If ddd <> format(HijriDate, "ddd") Then Do While True If NewDate Like "*" & dddd & "*" Then Pos = InStr(1, NewDate, dddd) NewDate = Left(NewDate, Pos - 1) & _ format(HijriDate, "dddd") & _ Mid(NewDate, Pos + Len(dddd)) ElseIf NewDate Like "*" & ddd & "*" Then Pos = InStr(1, NewDate, ddd) NewDate = Left(NewDate, Pos - 1) & _ format(HijriDate, "ddd") & _ Mid(NewDate, Pos + Len(ddd)) Else Exit Do End If Loop End If GetSysHijri = NewDate Calendar = CurrCal End Function Function GetGreg(ByVal inDate As Variant, _ Optional ByVal FormatPic As String = "dd/mm/yyyy") As String Dim CurrCal As Byte On Error Resume Next inDate = CDate(inDate) If IsDate(inDate) Then CurrCal = Calendar Calendar = vbCalGreg GetGreg = format(inDate, FormatPic) Calendar = CurrCal End If End Function Function GetHijri(ByVal inDate As Variant, _ Optional ByVal FormatPic As String = "dd/mm/yyyy") As String Dim CurrCal As Byte On Error Resume Next inDate = CDate(inDate) If IsDate(inDate) Then CurrCal = Calendar Calendar = vbCalHijri GetHijri = format(inDate, FormatPic) Calendar = CurrCal End If End Function و الآن من النموذج , نستخدم الداله GetGreg(MyDate) للحصول على تاريخ ميلادي مقابل للتاريخ الهجري mydate و الداله : GetHijri(mydate) للحصول على تاريخ هجري مقابل للتاريخ الميلادي لمن توجد ملاحظه , الأكسس لايقبل الا تاريخ واحد فقط , يعني اذا كان التاريخ الأصلي هجري و تنسيقه تاريخ , و تريدين اضافة حقل آخر للتاريخ الميلادي , فيجب أن يكون هذا الحقل الآخر تنسيقه نص و ليس تاريخ , و الا لن يعطي نتيجه صحيحه و بالعكس اذا كان التاريخ ميلادي و يوضع حقل آخر نص لتخزين التاريخ الهجري

ممكن جدأ و حسب رغبة المستخدم أن يفعل مايريد , فالبرنامج تسخير من رب العالمين لنصممه حسب مانرغب

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

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

اعمل استعلام الحاق من الجدوين الأول و الثاني الى الثالث

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