jjafferr

يعني قصدك: بسبب ان النجار يستطيع استعمال مفك البراغي في كل اعماله: . فمافي داعي لبقية الادوات: . او لأننا ممكن نستعمل حقل النص لكل البيانات: نص و رقم و تاريخ ، فمافي داعي استعمال انواع الحقول الاخرى !! احد اهم الاسباب ان لكل نوع ومتغير عمله ، هو السرعة والدقة في العمل 🙂 جعفر

وعليكم السلام 🙂 اذا اعطيت القيمة في الكود mij= "jjafferr" u = mij اما اذا كانت القيمة في النموذج u = me.mij جعفر

لاحظ الصورة اعلاه من التقرير ، في مشروع: انيميا ، يوسف عنده 3 سجلات ، وفي جميع السجلات حالته: مصاب ، طيب ، واذا سجله الثاني اظهر: سليم ، شو بتعمل ، هل تجمعه يوسف في الاحصائية ، كمصاب او سليم؟ جعفر

السلام عليكم 🙂 علشان اعمل المقارنة ، البارحة حولت استعلامك الى كود (بعد يحتاج له شوية شغل) ، والمغرب ان شاء الله اتفرغ لموضوعك 🙂 جعفر

اخي احمد ياريت تشوف هذا الرابط ، والذي فيه نقاش عميق عن حساب العمر ، وانا استعملت الموقع الذي اشرت اليه انت : والافضل ان تقرأ الموضوع كاملا 🙂 جعفر

السلام عليكم 🙂 الفكرة اللي استعملتها ، هي معادلات الاكسس ، وبدون تحديد عدد ايام للشهر ، عندنا تاريخ المباشرة ، ومن تاريخ اليوم ، نضيف اليه الخدمة المضافة ، سنة ، ثم شهر ، ثم يوم ، بحيث نتوصل الى تاريخ جديد ، ومن التاريخ الجديد ، نستقطع ، سنة ، ثم شهر ، ثم يوم ، بحيث نتوصل الى تاريخ جديد ، ثم في النهاية ، نوجد الفرق بين تاريخ المباشرة وبين هذا التاريخ الجديد 🙂 : Private Sub cmd_Cal_Click() Dim Y As Integer: Dim M As Integer: Dim D As Integer Dim Y_Add As Date: Dim M_Add As Date: Dim D_Add As Date Dim Y_Ded As Date: Dim M_Ded As Date: Dim D_Ded As Date Dim Y_Fin As Date: Dim M_Fin As Date: Dim D_Fin As Date 'Now Me.dmy_Now = YMDDif(Me.ddd, Date, Y, M, D) Me.Y_Now = Y Me.M_Now = M Me.D_Now = D 'Add Y_Add = DateAdd("yyyy", Me.yerr, Date) M_Add = DateAdd("m", Me.mann, Y_Add) D_Add = DateAdd("d", Me.dyy, M_Add) Me.dmy_Add = D_Add 'Deduct Y_Ded = DateAdd("yyyy", -Me.yerrr, Me.dmy_Add) M_Ded = DateAdd("m", -Me.mannn, Y_Ded) D_Ded = DateAdd("d", -Me.dyyy, M_Ded) Me.dmy_Deduct = D_Ded 'Final Me.dmy_Final = YMDDif(Me.ddd, Me.dmy_Deduct, Y, M, D) ' Me.Y_Fin = Y ' Me.M_Fin = M ' Me.D_Fin = D End Sub Private Sub Form_Current() Call cmd_Cal_Click End Sub . والوحدة النمطية YMDDiff : Public Function YMDDif(ByVal sDate1 As Date, ByVal sDate2 As Date, _ ByRef Y As Integer, ByRef M As Integer, ByRef D As Integer) As String 'sdate1 earliest date sdate2 later Dim iYear As Integer Dim iMonth As Integer Dim iDay As Integer Dim dInterim1 As Date iMonth = DateDiff("m", sDate1, sDate2) If Day(sDate1) > Day(sDate2) Then iMonth = iMonth - 1 End If dInterim1 = DateAdd("m", iMonth, sDate1) iDay = DateDiff("d", dInterim1, sDate2) D = iDay M = iMonth Mod 12 Y = iMonth \ 12 'YMDDif = CStr(Y) & " Years " & CStr(M) & " months " & CStr(D) & " days" YMDDif = CStr(D) & " ي/" & CStr(M) & " ش/" & CStr(Y) & " س" End Function . والنتيجة: . ويمكننا عمل كل هذه المعادلات في الاستعلام ، بالاضافة الى مناداة الوحدة النمطية 🙂 رجاء التأكد من الارقام اولا. جعفر Database1.zip

حياك الله اخوي يوسف ، وكل عام وانت والاهل بخير 🙂 نضيف هذه المعادلة لنجمع عدد المصابين والاصحاء (السليمين!!) . والنتيجة : . جعفر 1238.1.APE.accdb.zip

نعم ، التاريخ مو مشكلة ، لأنك تعطي الحقل تاريخ اليوم بمعادلة واحدة ، ولمرة واحدة فقط 🙂 نعم ، هذا هو الكلام الجميل 🙂 جعفر

السلام عليكم 🙂 اخي احمد ، مثل ما قاله اخي حسام : اعطنا الارقام ، وخلينا نحللها و نشتغل على الهندسة العكسية ، ونصل للمعادلة الصحيحة 🙂 جعفر

نعم ، التاريخ مو مشكلة ، لأنك تعطي الحقل تاريخ اليوم بمعادلة واحدة ، ولمرة واحدة فقط 🙂 جعفر

يا رجال ، بعض المستخدمين عندهم لابتوبات بنظام XP او Vista عليه !! وعيدكم مبارك 🙂 جعفر

وعليكم السلام 🙂 وعيدكم مبارك 🙂 انا لم اعمل رسائل تنبيه ، وانما عملت شيء قد يكون مقبول 🙂 1. نعمل استعلام مجاميع ، ونجمع الحقول في حقل واحد (لاحظ الحقل All ) : . ثم نعمل استعلام عادي لنفس الجدول ، وننسخ حقل All اليه . نعمل نموذج لكل استعلام ، ثم نضع النموذجين في نموذج واحد ، ونربط النموذج الفرعي بالرئيسي عن طريق الحقل All : . والنتيجة ، لما تختار من النموذج الرئيسي ، تجد تفاصيل السجلات في النموذج الفرعي : . جعفر 1239.Count.mdb.zip

عدم وضع الساعة في النموذج ، والاهتمام بأبعاد الصورة 🙂 جعفر

السلام عليكم 🙂 انا ضد وضع الساعة في النموذج ، لأن حدث On Timer يحدث كل ثانية (ساعتك تشير الى انك تعرض الثواني ايضا) : 1. ومستحيل انه يستطيع ان يحدث كل ثانية ، لأن هذا الامر مرتبط بساعة الجهاز ، وعلشان اكسس يقدر يحصل على هذه المعلومة ، فإنه يطلبها من الوندوز ، والذي معناه ان المعالج CPU يجب ان ينفذ هذا الامر ، ومن المعروف ان المعالج يكون لديه طابور من الاوامر لتنفيذها ، والأولوية لتنفيذ أوامر الوندوز ثم اوامر البرامج ، ومستحيل ان المعالج يكون فاضي ومستعد 100% لتنفيذ امر الاكسس في تلك الجزئية من الثانية. لهذا السبب ترى ان معظم الوقت الثواني تعمل بطريقة صحيحة ، وبعض الاوقات تتوقف الثواني (لما المعالج يكون مشغول بتنفيذ أوامر اخرى) ، ولا حقا نرى ان الساعة تعمل بطريقة صحيحة!! طبعا كلامي ليس معناه ان بعد التوقف يكون الوقت خطأ ، وانما كلامي انه يكون فيه تأخير في عرض الثواني بعض الاوقات ، 2. وبما ان الساعة موجودة في زاوية الكمبيوتر (ولاحظ انه لا يوجد بها ثواني ايضا) ، فمافي داعي ان نضع ساعة في النموذج ، إلا اذا كان عندنا نموذج منبثق يملئ الشاشة ، واللي من الخطأ استعمال النموذج المنبثق إلا في حالات نادرة ، وهذه احد مشاكله !! 3. حدث الساعة سيكون يعمل طوال وقت استعمال البرنامج ، ولما تفتح احد النماذج وتريد تنفيذ احد الاوامر ، قد تجد فيه بطئ في التنفيذ ، 4. بما ان حدث الساعة يعمل طوال وقت استعمال البرنامج ، واذا اردت ان تعمل تغيير في كود احد النماذج الاخرى في البرنامج ، فسترى انك لا تستطيع كتابة الكود بحرية ، لأنه كل ثانية سترى ان مؤشر الكتابة يرجع الى اول السطر ويترك السطر بلون احمر لأنك لم تكمل كتابة الكود ، الى ان تغلق النموذج الرئيسي او تضعه في وضع تصميم فيتوقف حدث الساعة 🙂 عند استعمال الصور يجب المحافظة على نسبة الطول الى نسبة العرض ، حتى تظهر الصورة بمقاسات صحيحة ، لذلك لا تستعمل Stretch (لاحظ الخيار الثاني في القائمة) إلا بنسبة قليلة ، وإلا فالشكل الدائري سيظهر كشكل بيضاوي (وهذا غير صحيح وعمل غير احترافي) ، ولاحظت هذا على احد صورك في النموذج : . جعفر

وعليكم السلام 🙂 عيدكم مبارك وايامكم سعيدة ان شاء الله 🙂 جعفر