أبو هادي

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

'دالة بسيطة لحساب الأعمار بصورة تقريبية 'باعتماد جميع الأشهر مدتها 30 يوم Function Age(df, mf As Byte, yf As Integer, _ dt, mt As Byte, yt As Integer) As String Dim dd, mm As Byte Dim yy As Integer If dt < df Then dt = dt + 30 mt = mt - 1 End If If mt < mf The…

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

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

الأخ حارث بعد التحية : لقد اطلعت على مثالك وهو تماما ما قصدته .. وأنصح باستخدامك هذا الإجراء بدلا من الموجود حيث أراه أكثر تحكم . تحياتي Sub Test3() stDocName = "bbq10" If Not IsDateUm(dda, mma, yya) Then MsgBox "تاريخ البداية خاطئ .. أعد المحاولة" DoCmd.GoToC…

الأخوة الكرام بعد التحية : أولا : من جهتي أنا أويد أن تخزن التواريخ بالميلادي ويمكن عرضها بأي تقويم آخر كأم القرى أو الهجري القياسي وكما أود أن أنوه أن التقاويم الفلكية كتقويم أم القرى بالسعودية والعجيري بالكويت والقطري توجد بينها اختلافات حتى التقاويم الهجرية…

الأخوة الكرام بعد التحية : أرجع وأكرر لماذا لا تسخدموا الدالة التي اقترحتها هل هي صعبة لتلك الدرجة بحيث يصعب استخدامها ؟ أو هل هي عدم ثقة ؟!! عموما أنصح مرة أخرى باستخدام الدالة مع مثال أبوحمود الذي يقترح عمل 6 مربعات لتحديد النطاق على أن يتم علم حقل جديد بالإ…

السادة الكرام بعد التحية : آسف كثيرا لعدم تمكني من الإشتراك معكم بانتظام وذلك عائدا لانشغالي ولكني مع هذا فأنا أتابع ماتكتبون كلما حانت لي الفرصة ، كما أنه معي الكثير وخصوصا بشأن التواريخ سوف أبعث بها مستقبلا تباعا مع وجود الوقت إن شاء الله . هذه دالة للتأكد م…

الأخ حارث بعد التحية : لقد أرسلت لك الملف على ايميلك آمل منك وضعه بالمنتدى حتى تعم الفائدة تحياتي

الأخ حارث بعد التحية : يوجد لدي تقويم أم القرى على أكسس للفترة من 1300هـ إلى 1429هـ لا مانع لدي من استعماله لمن يرغب بس آمل منكم مساعدتي بتعليمي كيفية إرساله فالحقيقة أنا مستجد على الإنترنت ولا أفهم في هذه الأمور وشكرا سلفا للجميع

الأخ Saeed بعد التحية : الحل هو استخدام الدالة التي كتبتها في رد سابق ولك تحياتي .

الأخ سعيد بعد التحية : كما أجبنا على الأخ Ashraf لكن مع بعض التعديلات : بافتراض أن العمود المطلوب جمعه هو [الرصيد] وهو ناتج طرح عمودين (منه - له) Debit,Credit ------------------------------ أولا : في Detail إعمل عمود آخر بإسم [الرصيد] ثم من Properties من Data …

الأخ الهيثم بعد التحية : أيضا يمكنك إخفاء الفورم بكتابة Me.Visible = False وفقك الله

السادة الكرام بعد التحية : هذه الدالة لتحويل تايخ هجري إلى ميلادي "تقريبي" إن شاء الله تحوز على رضاكم Function Hijri2Greg(Hijri As String) As Date Dim YYYY, MM, dd As Integer Dim Y30, YD2, MD As Integer, YD1 As Long, Hz As Double Dim Days As Long If IsNull(Hij…

الأخ Ashraf السلام عليكم ورحمة الله وبركاته .. وبعد : الأخ ابوحمود ماقصر قد أجاب على سؤالك ولكن بما أني قد كتبت الرد مسبقا أحببت أن أضيفه للردود بدلا من رميه .. وهو كالتالي : بافتراض أن العمود المطلوب جمعه هو [الصافي] ------------------------------ أولا : في D…

السادة الأفاضل السلام عليكم ورحمة الله وبركاته .. وبعد: حسب معلوماتي المتواضعة فأن الـ Format الخاصة بالتاريخ هي فقط للميلادي ولا تصلح للهجري وقد تكون بنسبة كبيرة تتعدى الأخطاء ولكن بالنهاية فهي غير معدة للتاريخ الهجري ويمكن عمل Edit Text لإدخال التاريخ الهجري…

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

الأخ Saeed السلام عليكم ورحمة الله وبركاته .. وبعد : من القائمة الرئيسية اذهب ألى قسم الـ Modules ثم أخلق Module جديد باختيار New أو اضافته على module سابق باختيار Design ثم قم بكتابة الدالة مع ملاحظة أنه يوجد سطران في بداية كل module لا تقم بمسحهما واكتب الدا…

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

الأخ / Saeed السلام عليكم ورحمة الله وبركاته .. وبعد : هذا حل بسيط آمل أن تجربه عسى أن يكون فيه الجواب الشافي : عمل دالة كالآتي : Function Hijri(dd,mm as byte, yy as integer) as String Hijri = Format(yy,"0000") & Format(mm,"00") & Format(dd,"00") End Function …