jjafferr

وعليكم السلام ورحمة الله وبركاته 🙂 معظم الاعضاء يقرأون السؤال، وعلى اثره يرون مقدرتهم على الاجابة على السؤال، اما اذا يتطلب الموضوع ان انزل المرفق لأعرف السؤال، فـ 99.9% من الوقت ، انا لا انزل المرفق، وانتقل للموضوع التالي والآن نرجع الى سؤالك: بما انه لا يمكننا التأكد من نتائج برنامجك ، لأنه مربوط بميزان ، لذلك من الصعب الاجابة على السؤال !! لذلك، فالنجعل البرنامج يخبرنا بما يراه، وعليه نرى الطريقة الاصح لضبط الجواب 🙂 استعمل هذا الكود بدل الكود الذي ارفقته (هو نفس كودك، ولكن بتنسيق، وبه اوامر طباعة النتائج الى ملف MSComm_Listening.txt في نفس مجلد برنامجك) : Private Sub MSComm1_OnComm() On Error Resume Next Dim c As Variant Dim n As Integer Dim File_Path As String File_Path = Application.CurrentProject.Path & "\MSComm_Listening.txt" Open File_Path For Output As #1 If MSComm1.CommEvent = comEvReceive Then If comEvEOF Then MSComm1.InputLen = 1 Do While MSComm1.Input = "0" MSComm1.InputLen = 8 c = MSComm1.Input c1 = "" Print #1, "Do c=" & c & vbTab & "len(c)=" & Len(c) Print #1, For i = 1 To Len(c) cut = Mid(c, i, 1) Print #1, "For cut=" & cut If (IsNumeric(cut)) Or (cut = ".") Then Print #1, "Old c1=" & c1 c1 = c1 & cut Print #1, "New c1=" & c1 End If Next i Print #1, Label5.Caption = Val(c1) Print #1, "Val(c1) =" & Val(c1) Loop End If 'comEvEOF End If 'MSComm1 MSComm1.InBufferCount = 0 Close #1 End Sub . ثم قم بعمل الوزن بالطريقة الطبيعية ، ثم ارفق لنا ملف MSComm_Listening.txt ، واخبرنا كم يجب ان تكون النتيجة الصحيحة 🙂 جعفر

هل ملاحظتك بعد عمل التجربة في محيط العمل؟

البرنامج يعطيك اسم المستخد واسم الكمبيوتر. ويمكنك عمل جدول فيه ارقام الكمبيوترات واسم كل مستخدم ، ثم عند استعمال البرنامج ، استعمل الاسماء من الجدول بواسطة Dlookup مثلا. جعفر

تم عمل تعديل طفيف على البرنامج اعلاه ، ويعمل لجميع اصدارات الاكسس 🙂 وهناك برنامج جاهز (غير مجاني) يعمل اللي تريده واكثر: https://www.fmsinc.com/microsoftaccess/monitor.asp جعفر

تفضل 🙂 جعفر 993.تاريخ.mdb.zip

تفضل 🙂 جعفر 996.حوسبة العمل الاداري 1.0.mdb.zip

حيالله السيد جمال 🙂 تفضل اخي سمير ، اعددت لك هذا البرنامج ، لكل اصدارات الاكسس 🙂 اختار البرنامج الذي تريد تعرف من يعمل عليه ، ثم اضغط على الزر who is logged جعفر Who is logged in.zip

رجاء ترفق تجربتك علشان نصلح عليها 🙂 جعفر

انت تريد التصفية بالاشهر الهجرية ، فرجاء متابعة مشاركة اخونا العود ابوخليل: جعفر

هذه صورة من كمبيوتري ، بالخطوات اعلاه: والصورة فيها اسم الكمبيوتر الذي اعمل عليه ، وصلاحيات المستخدم 🙂 جرب ان يكون اسم الكمبيوتر بالانجليزي. جعفر

وعليكم السلام قد يفيدك هذا الموضوع جعفر

وعليكم السلام 🙂 هذا مثال لأحد الحقول: جعفر

وعليكم السلام 🙂 عندما يستخدم المستخدم البرنامج ويتم ربط الواجهة مع ملف البيانات ، حينها يقوم الاكسس بقفل ملف البيانات/الجداول ، وسترى ملف جديد باسم ملف البيانات ، ولكن بامتداد laccdb . يمكنك قراءة هذا الملف بواسطة NotePad ، وبه طلبك 🙂 جعفر

وعليكم السلام 🙂 رجاء توضيح طلبك بمثال لوسمحت. والقي نظرة على هذا الموضوع جعفر

وعليكم السلام 🙂 الظاهر انك تشير الى موضوع 🙂 . طريقة عمل اللي تريده هو: الطريقة 1: 1. افتح برنامج مسقط التقارير ، ثم اختار الاستعلام/الجدول المطلوب ، واختار الحقول المطلوبة ، مع حقل التاريخ ، 2. انقر بالزر اليمين على حقل التاريخ ، ومن الفرز والتصفيه ، اختر بين تاريخين ، والدخل التاريخين ، وبتحصل على البيانات المطلوية 🙂 الطريقة 2: 1. اعمل نموذج غير مضمن (مثلا frm_Dates) ، واعمل فيه حقلين ، للتاريخ من (Date_From) ، والتاريخ الى (Date_To) ، 2. اعمل استعلام يشمل الجداول المطلوبة ، والحقول المطلوبة ، ولحقل التاريخ اعمل معيار بين تاريخي النموذج: Between forms!frm_Dates!Date_From and forms!frm_Dates!Date_To 3. افتح النموذج frm_Dates ، وادخل التواريخ ، 4. الآن افتح نموذج برنامج مسقط التصفح ، واختار استعلام ، ثم اختار الاستعلام #2 اعلاه ، فستجد ان البيانات كما تريد 🙂 جعفر

وعليكم السلام 🙂 تفضل جعفر

اخي الفاضل 🙂 1. الصورة المرفقة في مشاركتك تقول: .... Missing: Microsoft Outlook لذا يجب ان تحذف علامة الصح من عليها ، وعليه ستختفي من القائمة ، 2. وكما اشار عليك ابومحمد في مشاركته اعلاه ، يجب ان تختار من القائمة: Microsoft Outlook Object Library xxx وبدلا عن xxx سيكون هناك رقم بدلا عنه ، فهذا يعتمد على نسخة الاوفيس التي قمت بتنصيبها على جهازك. وبعدها المفروض انك ما تحصل على هذا الخطأ. جعفر

السلام عليكم 🙂 ولنفس الغرض ، ولكن بوضع Sum في الحقل مباشرة (انظر الرقم 1 ) : . جعفر

وعليكم السلام 🙂 . 1. غائب<> StatusTybe ، الظاهر اني قلبتها 🙂 5. مجموع دقائق التأخر ، من المشاركة السابقة ، 2. تحويل دقائق التأخر الى دقائق:ساعات:يوم 1. =Sum(IIf([StatusTybe]<>3,1,0)) 2. =Minutes2DHM([SumTimeDelay],DateDiff("h",[Forms]![EmployeeMovement_F]![OutTimE],[Forms]![EmployeeMovement_F]![InTimE])) اي ننادي الوحدة النمطية Minutes2DHM ونرسل لها مجموع الدقائق SumTimeDelay والتي نريد تحويلها الى دقائق:ساعات:يوم وكذلك نرسل عدد ساعات الدوام كل يوم وللتوضيح، مناداة الوحدة النمطية، حسب الارقام الحمراء لكل حقل في الصورة =Minutes2DHM(5,DateDiff("h",4,3)) . والوحدة النمطية: Public Function Minutes2DHM(minutes As Long, Working_hrs As Long) As String Dim dd As Long, hh As Integer, mm As Integer, Working_Mints As Long minutes = Abs(minutes) Working_hrs = Abs(Working_hrs) Working_Mints = Working_hrs * 60 dd = minutes \ Working_Mints minutes = minutes - dd * Working_Mints hh = minutes \ 60 mm = minutes Mod 60 Minutes2DHM = Format(dd, "000") & ":" & Format(hh, "00") & ":" & Format(mm, "00") End Function . وطبعا ممكن تطبيق هذا على بقية الحقول 🙂 جعفر 990.Employee 04 .accdb.zip

وعليكم السلام 🙂 لا يمكن التحكم بالاستعلام بهذه الطريقة ، وانما يمكن عمل هذا عن طريق اعادة عمله عن طريق الكود !! ولكن ، اين ستعرض بيانات الاستعلام ، سواء رقم الكود = 5 او لا ، في نموذج ؟ اذن يمكن ان نجعل هذا الحقل مخفي في النموذج ، في حال ان الكود = 5 كان معيار الاستعلام 🙂 جعفر

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

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

شكرا على كلماتك الرقيقة والدعاء 🙂 انا قلت: لهذا السبب اعطيك الرابط لتقرأه 🙂 جعفر

سيدي الفاضل 🙂 رجاء مراجعة الرابط التالي ، واللي نحسب فيه الوقت (فهو مهم لك للخطوة التالية) : . يجب ان يكون عندنك معيار/مصطلح تستخدمه في حساب الدقائق/الساعات/الايام ... ، والاسهل هنا هو مصطلح الدقائق ، لأنه وبسهوله يمكن تحويله الى ساعات وايام ، لذا ، وجب ان تكون حسابات الفوارق من الوقت ، بالدقائق. وعليه ، اضفت لك في الاستعلام ، هذا الحقل لجميع عمليات فارق الوقت ، ولكي اجعل الموضوع سهل لك ، فقد استعملت نفس مسمياتك ، ولكن بإضافة m قبل اسم الحقل : . والنتيجة: . وتم تعديل الجمع في النموذج الفرعي ، حتى يجمع هذه الارقام : . والنتيجة : . الآن وقد اصبح لديك مجموع الوقت بالدقائق ، فتستطيع عمل الخطوة التالية 🙂 وان شاء الله اصبح الطريق اسهل من ذي قبل 🙂 جعفر 990.Employee 04 .accdb.zip

وعليكم السلام 🙂 . تقدر تعمل استعلام بهذه الطريقة ، وهو يعمل المطلوب: . ولكن ، كبف تريد البحث في النموذج الرئيسي والفرعي في نفس الوقت!! ما قصدي انه ما يصير ، وانما ياريت تعمل لنا مثال عن اللي تريده ، من واقع بياناتك (وزيد في البيانات شوي) ، جعفر