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 (لاحظ الخيار الثاني في القائمة) إلا بنسبة قليلة ، وإلا فالشكل الدائري سيظهر كشكل بيضاوي (وهذا غير صحيح وعمل غير احترافي) ، ولاحظت هذا على احد صورك في النموذج : . جعفر

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

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

بسبب الكلمات العربية ، تم قلب نهاية سطر الامر !! جرب التالي: Between nz([forms]![frm_Search]![Area_From];0) And nz([forms]![frm_Search]![Area_To];100000) Or isnull([Area_Size]) جعفر

وعليكم السلام 🙂 تستطيع ان تفتح ملف الـ pdf عن طريق برنامج قارئ الـ pdf ، ثم تحفظ الملف بصيغة نص txt ، ولكن شركة ادوبي حذفت اوامر التحكم من قارئهم المجاني ، فلا يمكنك استعماله !! تستطيع استعمال برنامج وسيط مثل البرنامج المجاني pdftotext والذي يمكنك انزال الحزمة الكاملة (مع برامج اخرى لإستخراج الصور ووو من ملف الـ pdf) بواجهة ، من هنا : http://www.xpdfreader.com/download.html اما الحزمة التي نريدها فهي التي يمكن ان نتحكم بها عن طريق ارسال الاوامر من الاكسس عن طريقة CommandLine : https://dl.xpdfreader.com/xpdf-tools-win-4.02.zip طريقة استعماله : http://www.xpdfreader.com/pdftotext-man.html تستطيع استعماله عن طريق الامر Shell من الاكسس 🙂 جعفر

حيا الله اخوي يوسف 🙂 الحقول باللون البرتقالي مخفية ، وهي تسلسل لكل مجموعة ، بينما الحقول باللون الاصفر تأخذ قيمة الحقل البرتقالي . والنتيجة . والسبب انك ما تقدر تحسب عدد السجلات ، لأنه في الواقع التقرير فيه مجاميع عدد السجلات (انظر الاستعلام مصدر بيانات التقرير لرؤية العدد الصحيح) 🙂 جعفر 1238.APE.accdb.zip

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

يحدث هذا عند استخدام الكلمات العربية في الكود ، لهذا السبب فيُنصح بإستخدام الكلمات الانجليزية في تسمية جميع كائنات الاكسس🙂 خليني اكتب المصطلحات بالانجليزي علشان الكود يكون واضح ، وبعدها تقدر تغيره : frm_Search : نموذج بحث بالسعر تجربة1 ، وان هذا النموذج هو نموذج رئيسي ، وبقية حقول البحث موجودة عليه ، Area_From : المساحة من Area_To : المساحة الى Area_Size : اسم حقل المساحة الذي نضع المعيار فيه واذا لم تكتب اي قيمة في حقل "المساحة من" فنفترض ان اقل مساحة = 0 ، بينما اذا لم تكتب اي قيمة في حقل "المساحة الى" فنفترض ان اكبر مساحة = 100000 عليه ، تصبح المعادلة: Area_Size : حقل المساحة لا يحتوي على حقول فارغة Between nz([forms]![frm_Search]![Area_From];0) And nz([forms]![frm_Search]![Area_To];100000) او Between (IIf(Len([[forms]![frm_Search]![Area_From] & '')=0,0,[forms]![frm_Search]![Area_From])) And (IIf(Len([forms]![frm_Search]![Area_To] & '')=0,100000,[forms]![frm_Search]![Area_To])) Area_Size : حقل المساحة يحتوي على حقول فارغة Between nz([forms]![frm_Search]![Area_From];0) And nz([forms]![frm_Search]![Area_To];100000) Or [Area_Size] Is Null او Between (IIf(Len([[forms]![frm_Search]![Area_From] & '')=0,0,[forms]![frm_Search]![Area_From])) And (IIf(Len([forms]![frm_Search]![Area_To] & '')=0,100000,[forms]![frm_Search]![Area_To])) Or [Area_Size] Is Null جعفر

وطبعا عدم ربط الكمبيوتر بالشبكة عن طريق WiFi

واهم مشاكل بطئ قاعدة البيانات في الشبكة: جعفر

عفوا ، قمت بتعديل الشرح الى: 2. وسرعة الـ Switch او Router يجب ان تكون 1 جيجا كذلك ، ما اعرف بالضبط ، ولكن مادام يوجد اتصال بين الجهاز والسيرفر عن طريق كتابة المسار ، فلا يوجد مشكلة 🙂 جعفر

لا يُنصح بإستعمال حقول Lookup ، ولا حقول المرفقات في الجدول ، ولا عمل الكومبوبوكس في الجدول.