السلام عليكم
الأخ سندباد ،
الحقيقة ما فهمته من سؤالك هو رغبتك في تخزين التاريخ الهجري فإذا ما فهمته صحيح فأنصحك بقراءة هذا الموضوع :
http://www.arabteam2000.com/vb/showthread....&threadid=17151
وإلا آمل التوضيح أكثر .
موضوع نسخة من المثال على أكسس 2000 فتستطيع أن تحوله بمجرد محاولتك تشغيل البرنامج سوف يسألك الأكسس عن تحويله من 97 إلى 2000 . عموما غدا إن شاء الله تعالى سوف أضع نسخة لـ 2000 و 2002 .
تحياتي .
يعطيك ألف عافية
شكراً حزيلاً (f)
ولكم خالص التحية
أخي و أستاذي أبو هادي بعد التحية
فقد عملت جهدي المتواضع ولكن يبدوا أن الموضوع أطول من طولي و أعرض من عرضي لذلك أرجو منك إكمال الفضل الذي بدأتموه (f)
بإختصار إنني حاولت أن أستخدم خاصية التنسيق الشرطي في النموذج VICAT_F ولذلك لكي أقوم بتلوين السجل مباشرة بعد إختيار اللون وبعد ذلك نأخد الأرقام المخزنة ونلون بها أزرار العطلة باللون الذي إختاره المستخدم ولكن كما ذكرت لك لم أتمكن لضعفي في صياغة الكود المناسب أرجو قبول عذري و إكمال الموضوع ولكم كل الفضل :o
السلام عليكم
أخي الفاضل محسن محمد لقد نبهتني إلى التنسيق المشروط ولم أكن أعرف أنه متوفر في الأكسس مثله مثل الأكسل .
عموما يجب أن تتنبه أن هذه الخاصية لا تقبل أكثر من ثلاثة شروط فإذا كان لديك في قاعدة البيانات أكثر من ثلاثة ألوان مختلفة فسوف أعتمد أول ثلاثة ألوان مختلفة وأدع الباقي .
تحياتي .
الله يعطيك العافية يا بو هادي
كيف يمكن ان استفيد من هذا البرنامج في برنامجي فأنا عندي برنامج خاص بتسجيل الطلاب وغيرها من امور الطلاب واعتمد اعتماد كلي على التاريخ الهجري الموجود في الويندوز وطبعا تعرف الاخطاء الموجودة
اريد ان يعتد اي فورم عندي وخاصة حقول التاريخ علة التاريخ الخاص ببرنامجك فمثلا لو اني قمت بادخال تاريخ 30/12/1422 لا اريد ان يتم تحوبلها ال 1//1/1423 فكيف لي الاعتماد على تقويمكم في نماذجي وبرنامجي
السلام عليكم
الأخ osamabinmohamed آمل قراءة هذا الموضوع :
http://www.arabteam2000.com/vb/showthread....&threadid=17151
في حالة إذا لم تود التغيير ويبقى الحال على ماهو عليه فالحل الوحيد أن تنادي النتجية بطلب التقويم الهجري رقم 1 ثم تنتقل إلى تقويم أم القرى وتدخل التاريخ المطلوب مثل 30/12/1422 وبكل تأكيد عند اعتماد النتيجة سوف يعود التاريخ إلى الهجري ويعتمده كـ 01/01/1423 . وهنا أنت تأكدت من صحة التاريخ حتى ولو أن خارجه لا يشبه تقويم أم القرى ولكنه في الحقيقة يحمل نفس قيمة أم القرى ونفس قيمة الميلادي .
هنا فأن النتيجة ضمنت لك على الأقل قيمة سليمة للتاريخ عند تحويلها لأم القرى أو الميلادي فسوف تحصل على النتيجة الموافقة تماما ، ولكن بدون النتيجة قد يكون أحيانا أن أم القرى يوافق 30/12/1416 وبالهجري يوافق 29/12/1416 ولكن عند الإدخال سوف يحوله إلى تاريخ خاطئ بفرق يومين ليصبح 01/01/1417 .
تحياتي .
السلام عليكم
تعديل على التنسيق المشروط
و
استخدام نفس الفكرة في تلوين السجل الحالي على نموذج WEEK_F .
تحياتي .
السلام عليكم
لقد أزلت كل الوحدات النمطية الزائدة وهيأت جميع النماذج للعمل مع أي نقص من الوحدات النمطية أو النماذج المرتبطة الأخرى أو الإستعلامات .
كذلك هو الآن لمن لا يستخدمون أم القرى يظهر فقط وكأنه مصمم للهجري والميلادي فقط دون أي مزاحمة من تقويم أم القرى .
تحياتي .
شكرا اخي ابوهادي ولكن لم يعمل معي على اكسس 2000 فهل لديك اصدار من البرنامج على اكسس 2000 مع العلم اني حولت الملف الذي ارفقت على اكسس 97 ولكن لم يمشي الحال ارجوا وضعه في اسرع وقت لاني اريده فعلا
السلام عليكم
الأخ moody1616 ، لم أستطيع فتح نموذج النتيجة فاضطررت إلى عمل نموذج جديد ونسخت كل المحتوايات إليها .
عملية النسخ عادة لا تنسخ كل الخصائص ، فقد يكون هناك أخطاء جراء النسخ ، حاول التأكد بعد المقارنة مع النمذج القديم حيث تركته موجودا لهذا الغرض .
أنصحك بترك أكسس 2000 فهو متعب جدا جدا .
تحياتي .
السلام عليكم
كلما قلت أنه التعديل الأخير تظهر أفكار جديدة . لقد أضفت التعديل في حقل الميلادي عند فتح النتيجة من حقل هجري أو أم القرى به معادلة أو مقفل . بمعنى أنك تطلبها من حقل وتعدل في حقل آخر وكأنك عدلت في الحقل الأساس .
مرفق نسخة أكسس 2000 وغدا إن شاء الله أضع لكم نسخة 2002 .
تحياتي .
السلام عليكم
تعديل كود زر موافق حدث Click للنتيجة :
Private Sub CmdOK_Click() Dim OutFeild As Boolean Dim FieldName As String On Error GoTo SubErr If Me.GrpCal <> InCal Then Beep Me.GrpCal = InCal Call GrpCal_AfterUpdate Exit Sub End If 'CurrCal = calendar Select Case InCal Case vbCalGreg Calendar = vbCalGreg CalInCntrl = CDate(DateSerial(Me.TxtYear, Me.cboMonth, ValidDay)) Case vbcalhijri, CalUmAlQura Select Case InPos Case 0 Calendar = vbcalhijri CalInCntrl = DateSerial(Me.TxtYear, Me.cboMonth, ValidDay) Case 3 CalInCntrl = Format(ValidDay, "00") & "/" & _ Format(Me.cboMonth, "00") & "/" & _ Format(Me.TxtYear, "0000") Case 4, 5 CalInCntrl = Format(Me.TxtYear, "0000") & "/" & _ Format(Me.cboMonth, "00") & "/" & _ Format(ValidDay, "00") End Select End Select Calendar = CurrCal DoCmd.Close acForm, Me.Name, acSaveNo ExitSub: Exit Sub SubErr: If Err.Number = 91 Then Calendar = CurrCal DoCmd.Close acForm, Me.Name, acSaveNo Exit Sub End If '--------------------------------------------- FieldName = CalInCntrl.Name If Err.Number = 3327 Or Err.Number = 2448 Then If IsDate(CalOutCntrl) Then OutFeild = True Err.Clear Resume SubErr2 SubErr2: On Error Resume Next CalOutCntrl = GregDate If Err.Number = 0 Then Calendar = CurrCal DoCmd.Close acForm, Me.Name, acSaveNo Exit Sub End If FieldName = CalOutCntrl.Name End If End If '--------------------------------------------- If Lang = LngEnglish Then MsgBox Err.Description, , "Pardon" Else Select Case Err.Number Case 3327 MsgBox "حقل معادلة لا يقبل التعديل " & FieldName & " حقل", , "عفوا" Case 2448 MsgBox FieldName & " لا يمكن تعيين قيمة إلى حقل", , "عفوا" Case Else MsgBox Err.Description, , "عفوا" End Select End If Resume ExitSub End Sub
تحياتي .
هذا الموضوع مغلق.
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…