ابو جودي

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

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

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

ههههههههههههههه انا اصلا نسيت احذف هذا الحقل لا فائدة منه اصلا انت عندك تاريخ الدفع وهو اللى من خلاله بيتم الفرز مثل ما سويت لك انا فى الاستعلام qry1 ولاحظ عند فتح التقرير يختفى السجل / السجلات الذى تم التأشير عليه فى النموذج

كل الشكر والتقدير والامتنان لاستاذى الجليل ومعلمى القدير و والدى الحبيب الاستاذ @ابوخليل وجزاكم الله خيرا ورزقكم مثل ما دعوتم لنا اضعافا مضاعفة انت وكل امة محمد صل الله عليه وسلم وبعد اذن استاذى الجليل ومعلمى القدير هذا تعديل ان اردنا الحصول فقط على 10 طلاب بدمج الفكرتين بآخر مرفقين Top10.accdb

اتفضل ان شاء الله تلاقى طلبك reglemen1 (2) .accdb

اتقضل Me.[السعر] = Switch(IsNull(Me.[الخدمة]), 0, Me.[الخدمة] = "ايواء", Me.[مبلغ الشراء], Me.[الخدمة] = "يومي", Me.[الايجار] * Me.[عدد الايام])

اى حل تريد من الحلول السابقة ؟ لاقوم بالتعديل

جرب التعديل الاتى النتيجة النهائية فى الاستعلام باسم qrytop10 باقى لى مشكلة بس بصراحة تعبت بس مش راح احكى لك ايه هى المشكلة Data_Base4(2).accdb

اتفضل Function GetPhysicalSerial() As Variant Dim obj As Object Dim wmi As Object Dim SNList() As String, i As Long, count As Long Set wmi = GetObject("WinMgmts:") For Each obj In wmi.InstancesOf("Win32_PhysicalMedia") If obj.SerialNumber <> "" Then count = count + 1 Next 'ReDim SNList(1 To Count, 1 To 1) ReDim SNList(1 To count) i = 1 For Each obj In wmi.InstancesOf("Win32_PhysicalMedia") 'SNList(i, 1) = obj.SerialNumber SNList(i) = Trim(obj.SerialNumber & "") Debug.Print Trim(obj.SerialNumber & "") i = i + 1 If i > count Then Exit For Next GetPhysicalSerial = SNList(1) End Function لم يتم الاختبار بعد الفورمات ولا ادرى هل تغيير رقم الهاردديسك يؤثر على النتيجة ام لا

فعلا لو اعتبرنا ان 9 طلاب مجموع درجاتهم 850 و5 طلاب مجموع درجاتهم 849 على اى اساس يتم اختيار الطالب رقم 10 من الـ 5 طلاب فكلهم متساون فى مجموع الدرجات فاهتيار احدهم دون الـ 4 الباقون ظلم لهؤلاء الـ 4 واللا ايـــــــــــه

اسف جدا انا نسيتك 🧐 والله افتكرت دلوقتى بس للعلم فى مشكلة بقاعدتك القديمة ولا ادرى عنها شئ سوف اقوم بانشاء القاعدة مع اضافة التعديلات اللازمة فى اقرب وقت ان شاء الله

ممكن المرفق للاطلاع

طيب وكمان غير مشاكل اللغة اللى ممكن تحصل عندما يتم استخدام الحروف العربية داخل المحرر قولى يا almosafer almasry هل قدرت تفهم قاعدة iif مع العربى 🤭 كما تفضل اساتذتى الكرام بوضع الحل طبقا للاحرف العربية مع قاعدة iif انا عن نفسي لا بافهما ولا باعرف اكتبها مع العربى ههههههه علشان كدع استخدمت Select Case عن نفسى بافضلها فى كل الاحوال مرنه اكثر والان صار معاك الحلين ,وحل ثالث ايضا اثراء للموضوع استخدام الدالة switch Me.[السعر] = Switch(Me.[الخدمة] = "ايواء", Me.[مبلغ الشراء], Me.[الخدمة] = "يومي", Me.[الايجار] * Me.[عدد الايام])

اتفضل ونصيحة بلاش تسمى الحقول بالعربى Sub Calc() Select Case Nz([الخدمة], "") Case "": Me.[السعر] = "" Case Is = "ايواء": Me.[السعر] = Me.[مبلغ الشراء] Case Is = "يومي": Me.[السعر] = Me.[الايجار] * Me.[عدد الايام] End Select End Sub Private Sub الخدمة_AfterUpdate() Call Calc End Sub Private Sub الايجار_AfterUpdate() Call Calc End Sub Private Sub عدد_الايام_AfterUpdate() Call Calc End Sub

ضع الكود الاتى فى موديول Public Function DoMouseWheel(frm As Form, lngCount As Long) As Integer On Error GoTo Err_Handler Dim strMsg As String If (Val(SysCmd(acSysCmdAccessVer)) >= 12#) And (frm.CurrentView = 1) And (lngCount <> 0&) Then RunCommand acCmdSaveRecord RunCommand IIf(lngCount < 0&, acCmdRecordsGoToPrevious, acCmdRecordsGoToNext) DoMouseWheel = Sgn(lngCount) End If Exit_Handler: Exit Function Err_Handler: Select Case Err.Number Case 2046& Resume Next Case 3314&, 2101&, 2115& strMsg = "Cannot scroll to another record, as this one can't be saved." MsgBox strMsg, vbInformation, "Cannot scroll" Case Else strMsg = "Error " & Err.Number & ": " & Err.Description MsgBox strMsg, vbInformation, "Cannot scroll" End Select Resume Exit_Handler End Function ثم فى النموذج فى حدث On Mouse Wheel ضع السطر التالى Call DoMouseWheel(Me, Count)

رقم العارد بيتغير بعد الفورمات

لقياس الوقت للوقوف على اداء التطبيق عند تنفيذ الاستعلام Public Function OpenQryPerformanceTest(ByRef QueryName As String) Dim StartTime As Date: StartTime = Now() Dim ExecutionTimeBySeconds As Long DoCmd.OpenQuery QueryName DoCmd.GoToRecord acDataQuery, QueryName, acLast ExecutionTimeBySeconds = DateDiff("s", StartTime, Now()) MsgBox "Execution Time: " & ExecutionTimeBySeconds & " Seconds" End Function

عند الضغط على صورة ممكن فتحها منفردة فى نموذج لعرضها بالحجم الطبيعى

UUID هو اختصار للمعرف الفريد العالمي Universal Unique Identifier هو معرف فريد يتم إنشاؤه آليًا بواسطة خوارزمية معينة من أجل ضمان تفرد UUID تحدد المواصفات العناصر بما في ذلك عنوان MAC لبطاقة الشبكة والطابع الزمني ومساحة الاسم (Namespace) والرقم العشوائي أو العشوائي الزائف والتوقيت والعناصر الأخرى وخوارزمية إنشاء UUID من هذه العناصر. تعني الخصائص المعقدة لـ UUID أنه لا يمكن إنشاؤها إلا عن طريق الكمبيوتر مع ضمان تفردها.

طيب نصيحة سيبك من رقم الماذر بورد لانه احيانا الاكواد ما تحصل اى نتائج ومنها اللوحة تبعى ان كنت تريد رقم فريد اتفضل - التجربة قبل وبعد فصل الشبكة ظهر نفس الرقم - التجربة بعد أعادة تشغيل .. قبل وبعد فصل الشبكة ظهر نفس الرقم - التجربة بعد الفرمات .. قبل وبعد فصل الشبكة ظهر نفس الرقم - النظام قبل الفرمات ويندوز 10 - 64Bit أوفس 2021 64Bit - النظام بعد الفرمات ويندوز 7 - 32Bit أوفس 2016 32Bit والرقم الناتج من تلك الطريقة ثابت لا يتغير مطلقا Get UUID.mdb

الجزء الاول حالة العامل نشط بعد كده المفروض ايه اللى يحصل ؟ حضور وانصراف موظفين.accdb

الملف شغال تمام وما فى اى مشاكل وع العموم انا قمت بتعديل ليتماشى مع النواتان 32 , 64 menu.zip

ممكن مرفق

يا 100 مليون اهلا يا دكتور يبدو اننى خسرت كثيرا فى فترات انقطاعى جزاكم الله خيرا يا دكتور