Accessna

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

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

دالة لإرجاع تاريخ الميلاد بالسنة والشهر واليوم والساعة والدقيقة والثانية : Function getBirthdate(yy As Integer, _ Optional mm As Integer = 0, _ Optional dd As Integer = 0, _ Optional hh As Integer = 0, _ Optional nn As Integer = 0, _ Optional ss As Integer = 0) As Date getBirthdate = DateSerial(Year(Now) - yy, _ Month(Now) - mm, _ Day(Now) - dd) + _ TimeSerial(Hour(Now) - hh, _ Minute(Now) - nn, _ Second(Now) - ss) End Function وهذه طريقة استخدامها : Sub Test() MsgBox getBirthdate(5, 3, 2, 1, 30, 15) End Sub

دالة لـ أبو هادي : دالة RoundUp, بديلة لدالة Round كود Function RoundUp(ByVal Expression, _ Optional ByVal NumDecimalPlaces = 0) As Double Dim Rnd On Error Resume Next If NumDecimalPlaces < 0 Then NumDecimalPlaces = 0 If NumDecimalPlaces > 22 Then NumDecimalPlaces = 22 Rnd = 0 If Expression <> 0 Then Rnd = Val("0." & String(NumDecimalPlaces + 1, "0") & "1") End If RoundUp = Round(Expression + IIf(Expression > 0, Rnd, -Rnd), _ NumDecimalPlaces) End Function وهذا اختبار للدالة ومقارنتها مع ثلاث دوال أخرى : كود Sub RoundingTest() Dim Num As Double Num = 0.5 MsgBox CInt(Num) & vbNewLine & _ CLng(Num) & vbNewLine & _ Round(Num) & vbNewLine & _ RoundUp(Num) End Sub

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

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

تم تعديل المثال بإضافة كود الفاصلة من تصميم أبو هادي نفسه والموجود على الرابط التالي : http://www.officena.net/ib/index.php?s=&am...ost&p=65619 حاولت إضافة رد في موضوع المثال ولم أستطع لعدم وجود صلاحية الإضافة لي هناك . Search_Sort_20071109.rar

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

أردت التعديل على المشاركة السابقة ولم أجد زر التعديل ! تصحيح إملائي : النموذج غير منظم .. والصحيح النموذج غير منضم . الـ DAO هو مرجع (مكتبة) يجب إضافته للمراجع عند استخدام الكود التابع له كما أوضحت في المشاركة السابقة . وإضافته عن طريق محرر الفجوال - أدوات - مراجع ووصفه Microsoft DAO 3.6 Object Library وعند أضافته أعطه الأولوية على باقي المراجع المختارة أي قدمه بتحريكه للأعلى . إذا فشل في الإضافة فهناك محاولة أخرى وهو تغيير الـ Recordset Type بالكود أو إقفال النموذج ثم فتحه بعد الإضافة . بانتظار النتيجة .

الحقيقة لا بد أن ترجع للعون الـ Help أو تبحث عن طريق الإنترنت فربما تجد نفس المشكلة وحلها . على كل حال أنا جعلت النموذج غير منظم وعملت لك طريقتين واحدة بالـ DAO وأخرى بدونها . إذا أردت أن لا تستخدم الـ DAO فنشط الأسطر أي أزل علامة ' من بداية الأسطر على أن تعطل النشطة منها . جرب واخبرنا ودع عنك الإحباط . Test_2000_13A2.rar

جرب مرة أخرى من نموذج Fixed_Note تغير قيمة خاصية Recordset Type جرب واخبرنا بالنتيجة .

مرحبا بعد إنزال الملف وقبل فتحه ادخل على الخصائص أزل علامة الصح من خاصية Read-only . بالتوفيق .

وعليكم السلام ورحمة الله وبركاته . أنا لم أطلع على أكسس 2007 ولا أعرف أي شيء عنه ، وليس هناك أي شيء يذكر في كود فتح النموذج للأكسس 2000 . مجرد اقتراح حاول عمل استعلام للجدول ثم اجعله مصدر السجلات للنموذج Insert فربما تحل المشكلة . إن حلت إدعو لي وإن لم فلا تدعو علي

مشكورين لدعاوتكم الصادقة . يبدو أن إسم البرنامج غير ثابت فهو يتبدل مع كل تحديث والأفضل إنزاله عن طريق الصفحة التي تحتويه : http://abbashmd.googlepages.com

وجدت لكم محول تقاويم يحتوي على 8 تقاويم بس مداها صغير جدا فقط يصل إلى 12 مليون سنة من تصميم أبو هادي http://abbashmd.googlepages.com/Calendar3_20070828.rar أدعوا لي

كذلك يمكن عملها كالتالي : If Me.txtNUMBER / 100 Like "[135]" Then

اختيار التقويم الهجري من داخل قاعدة البيانات : - خيارات - دولية - استخدام التقويم الهجري "ضع علامة صح" مرفق مثال . PeriodPoints.rar

كما أجابك أخي منذر عساج مع تعديل بسيط جدا : Expr1: DateDiff("d",[Time1]-1,[Time2]) ولكن لا تنس أن يكون التقويم في قاعدة البيانات هجريا . ولتحويل أيام السنة إلى 360 يوم قم بالتالي : أيام السنوات على أساس السنة 360 يوم = الأيام الناتجة من المعادلة أعلاه / 10631 * 10800

الملف بعد التعديل المطلوب . MonthNameExam.rar

مشاركة أخرى علها تساهم في الحل : دالة الحصول على إسم الشهر للتقويمين : Function GetMonthName(inDate As Variant) As String Dim CurrentCal As VbCalendar If Not IsDate(CDate(inDate)) Then Exit Function CurrentCal = Calendar Calendar = Abs(Application.GetOption("Use Hijri Calendar")) GetMonthName = MonthName(Month(inDate)) Calendar = CurrentCal End Function

ومساهمة أخرى قيمة لأبو هادي وجدتها على الرابط : http://www.officena.net/ib/index.php?s=&am...ost&p=18127

كذا يا امبراطور !! أول موضوع أشارك به وتخرجني متفشل مع الشباب والشياب أرجوك خبرنا عن النتيجة وأتمنى ما زعلت مني لأني كثرت عيار المزح معك

أيه يا عمنا ، كدا حطلع موش مشاغب أنا شايف اللي عملته أنا كويس ومع ذلك عملت لك تعديل يمكن يكون صح أو يكون صح شوف أقصد بص ، أيام الجمعة ستحسب كما تحسب الفوائد المركبة بمعنى : المثال سيخرج 17 يوم جمعة .. صح ؟ لو أضفناها سيظهر بها يومين جمعة أي ال 17 يوم بها جمعتين كذلك حنضيفها على المدة برضه .. صح كذا مجموع الجمع حيكون 19 يوم .. صح والا شايف انها صح ؟ يارب تطلع صح NetVacation2.rar

هذه أول مشاغبة لي : استفدت من دالتين لأبو هادي لحساب العطل وعملت لك هذا المثال : NetVacation.rar