ابو جودي

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

المفروض ان الكود يحتوى على StopSystemClock عند الاغلاق يتوقف تحديث التيمر الا اذا انت بقه استخدمت ازرار لوحة المفاتيح لفتح المحرر اثناء عمل النموذج ؟؟

السلام عليكم ورحمة الله تعالى وبركاته استاذى الجليل ومعلمى القدير و والدى الحبيب الاستاذ @jjafferr ممكن أعرف إيه هى المشكله اللى حضرتك حصلت عليها

هلا والله ... والله اشتقنا للأسف انا لم أكن اعرف المطلوب وضعت الإجابة بناء على السؤال حلوه النماذج الجميله اللى بتغير الوانها دى👍 بس فكرتى احلى 🤪 هو كده غلاسه 😆🫣

استاذى الجليل و معلمى القدير و والدى الحبيب الاستاذ @ابوخليل أهديكم هذا المرفق يحتوى على الساعتين الرقمية والعقارب وبدون حدث الوقت وبه هديه لتغيير ثيم النموذج كذلك AnalogClock Without Timer Event.zip

استاذى الجليل و معلمى القدير و والدى الحبيب دوال api لا يتم الاعلان عنها داخل النماذج او بشكل ادق وأصح : AddressOf لابد ان يكون داخل وحده نمطيه عامة

وعليكم السلام ورحمة الله تعالى وبركاته استاذى الجليل و معلمى القدير و والدى الحبيب الكود التالى فى وحده نمطية عامة Option Compare Database Option Explicit #If VBA7 Then Private Declare PtrSafe Function SetTimer Lib "user32" _ (ByVal hWnd As LongPtr, ByVal nIDEvent As LongPtr, _ ByVal uElapse As Long, ByVal lpTimerFunc As LongPtr) As LongPtr Private Declare PtrSafe Function KillTimer Lib "user32" _ (ByVal hWnd As LongPtr, ByVal nIDEvent As LongPtr) As Long #Else Private Declare Function SetTimer Lib "user32" _ (ByVal hWnd As Long, ByVal nIDEvent As Long, _ ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long Private Declare Function KillTimer Lib "user32" _ (ByVal hWnd As Long, ByVal nIDEvent As Long) As Long #End If Private lngTimerID As LongPtr Private frmTargetClock As Form Public Sub StartSystemClock(frm As Form) Set frmTargetClock = frm lngTimerID = SetTimer(0, 0, 1000, AddressOf TimerProc) End Sub Public Sub StopSystemClock() If lngTimerID <> 0 Then KillTimer 0, lngTimerID lngTimerID = 0 End If End Sub Private Sub TimerProc(ByVal hWnd As LongPtr, ByVal uMsg As Long, ByVal idEvent As LongPtr, ByVal dwTime As Long) If Not frmTargetClock Is Nothing Then frmTargetClock!lblClock.Caption = Format(Now, "hh:nn:ss AM/PM") Else StopSystemClock End If End Sub الاحدات فى النموذج Option Compare Database Option Explicit Private Sub Form_Load() Call StartSystemClock(Me) End Sub Private Sub Form_Unload(Cancel As Integer) Call StopSystemClock End Sub المرفق Clock Without Timer Event.accdb

ما انت لو وضعت كود انشاء الجداول مكنش حصل كده

تم التحميل وجارى التجربة ان شاء الله

وانا ويندوز 11 برضو بس حضرتك قلت بيشتغل عند ناس وناس لا اتمنى ما يشتغل عندى علشان احاول اعرف ايه المشكله

السلام عليكم ورحمة الله وبركاته استاذى الجليل و معلمى القدير و والدى الحبيب الاستاذ @jjafferr ممكن مرفق بسيط من هذه القاعدة

E server or ActiveX A problem occurred while Microsoft Access was communicating with the OLE server or ActiveX Control التفسير المحتمل: هنا Access فشل في التواصل مع OLE Server (زي تحكم ActiveX) أو عنصر زي مستعرض ويب أو عنصر رسومي مدمج. يظهر غالبًا بعد: تحديثات النظام أو الأوفيس غير المتوافقة فقدان أو تلف في ActiveX Control المستخدم داخل النماذج تعريف خاطئ أو غير مُسجل (Unregistered ActiveX DLL/OCX) استخدام WebBrowser, TreeView, Calendar Control, أو غيره من العناصر القديمة مشكلة اعدادات اللغة لو تم تنصيب نسخة ويندوز جديدة ------------------- There isn't enough memory to complete the Automation object operation on the | object. التفسير المحتمل: المقصود هنا أن Access فشل في تنفيذ عملية Automation Object (زي التعامل مع Excel أو Word من خلال كائنات Automation). السبب الأساسي بيكون: نقص فعلي في الذاكرة أو تسريب في الموارد (Memory Leak) أو نتيجة تحديث للأوفيس أو ويندوز أفسد الـ References (زي مكتبة MS Excel xx.0 Object Library) أو وجود كائن غير مُهيأ Properly قبل الاستخدام

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

انت فاهم غلط الدعم مش هيكون مجانى هيكون مدفوع يعنى بدون دفع مفيش دعم

السلام عليكم ولكن نصيحة انصحكم بها ويندوز 10 سوف يتم ايقاف الدعم عنه فى اكتوبر القادم من اجل ذلك التحديث تم الى ويندوز 11 بشكل صارم وسوف يأتى عليه وقت وكما هو الحال مع ويندوز 7 الان لن تجد المتصفحات مدعومة ولا بعض البرامج فى المستقبل مع ويندوز 10 كما هو الحال الان مع ويندوز 7 و ويندوز XP