ابو جودي

ضع الكود الاتى فى موديول 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 مليون اهلا يا دكتور يبدو اننى خسرت كثيرا فى فترات انقطاعى جزاكم الله خيرا يا دكتور

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

جرب المرفق الاتى test (2).mdb

dim stLinkCriteria As String:stLinkCriteria = "[Fildename]=" & Me.txtObjectName If DCount("*", "tblName", stLinkCriteria) > 0 Then MsgBox$("type You Want") End If مع الاخذ فى الاعتبار نستخدم ذلك مع الارقام' stLinkCriteria = "[Fildename]=" & Me.txtObjectName نستخدم ذلك مع النصوص' stLinkCriteria = "[Fildename] ='" & Me.txtObjectName & "'" نستخدم ذلك مع التواريخ' stLinkCriteria ="[Fildename] =#" & Me.txtObjectName & "#" وفى هذا الموضوع تم استخدام الكود السابق

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

ممكن توضيح المقصد من هذه الكلمات رجاء

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

هو انا اكتب سؤال وانا اللى راح اجاوب عليه يلا شد حيلك ورينى افكارك الزين يا زين الشباب ايون عربى بس انا بدى اكسس مو عربي 🤭

طيب تعالى يا استاذ @kanory تعالى انت وقعت ولا حد سمى عليك وغايب ليك كتير 🥵 وبتكتب الحل معايا فى نفس اللحظة تعالى حل المشكلة دى ورينى افكارك الحلوة 🤭

العفو منكم استاذى يا هلا وميت مليون هلا وتعدوت منكم على ذلك دائما تحدث معكم هههههه اسال الله ان يجمعنا على الخير دائما

لقد سبقتك يا رجل 🤭

اتفضل test.accdb

نعم هات المرفق

ممكن مرفق

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

فعلا مش واصلة الفكرة وللعلم انا مش ناوى اضيف روابط اصلا لكن اعتبر ان الروابط موجودة وانا هاتصرف فيها بعدين بس انفذ اللى انت قلته ازاى انت بتقول ايه يا عم انت اتكلم عربى من فضلك