مطلوب اظهار الساعة تعمل داخل النموذج (الساعة والدقائق والثواني ) من غير استخدام عداد (تايمر) النموذج

[ابوخليل]

السلام عليكم

المطلوب كما في العنوان

Database1.accdb

[ابو جودي]

وعليكم السلام ورحمة الله تعالى وبركاته
استاذى الجليل و معلمى القدير و والدى الحبيب

الكود التالى فى وحده نمطية عامة
 

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

[ابوخليل]

13 دقائق مضت, ابو جودي said:

وعليكم السلام ورحمة الله تعالى وبركاته

استاذى الجليل و معلمى القدير و والدى الحبيب

الكود التالى فى وحده نمطية عامة

انت الأستاذ وانت المعلم وانت الأبن الحبيب

ينتهي المقال عند عرض المثال

الف شكر باشمهند وفيت وكفيت

 هذا الكود او بالاصح قريبا منه كان عندي وحاولت التعامل معه داخل النموذج ولم افلح

[ابو جودي]

8 دقائق مضت, ابوخليل said:

 هذا الكود او بالاصح قريبا منه كان عندي وحاولت التعامل معه داخل النموذج ولم افلح

استاذى الجليل و معلمى القدير و والدى الحبيب

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

[ابو جودي]

استاذى الجليل و معلمى القدير و والدى الحبيب الاستاذ @ابوخليل 

أهديكم هذا المرفق 

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

AnalogClock Without Timer Event.zip

[ابوخليل]

عمل رائع وجميل

وحدات نمطية وأكواد  متعوب عليها

في اعمالي اقتصر غالبا قدر استطاعتي على الادوات التي يملكها اكسس .. 

فالساعة مثلا لا اخرج عن هذا السطر:

Private Sub Form_Timer()
Me.Label2.Caption = Format(Now, "hh:nn:ss AM/PM")
End Sub

ولكني وظفت العداد في عملية مهمة لضبط الإدخال في عملية الحضور

وقد جعلت الفورم يملأ الشاشة .. فكانت فكرة اظهار الساعة مستحسن ومناسب

الفكرة التي راودتني حين طرحت الموضوع هي .. هل يمكنني جلب ساعة  وندز الى الفورم بسطر واحد ؟

مثل سطر جلب مستخدم وندوز :

CreateObject("WScript.Network").UserName

او رقم المعالج :

Environ("NUMBER_OF_PROCESSORS")

واشياء اخرى يمكن جلبها او تشغيلها ومناداتها بسطر

[Moosak]

7 ساعات مضت, ابوخليل said:

وظفت العداد في عملية مهمة لضبط الإدخال في عملية الحضور

طيب كفكرة ممكن تعمل الساعة لحالها في نموذج فرعي وتعمل الحدث في النموذج الفرعي بدون ما يأثر على أحداث النموذج الرئيسي 🙂 

Clock In Sub Form.accdb

[ابوخليل]

2 ساعات مضت, Moosak said:

طيب كفكرة ممكن تعمل الساعة لحالها في نموذج فرعي وتعمل الحدث في النموذج الفرعي بدون ما يأثر على أحداث النموذج الرئيسي 🙂 

 

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

واعتقد انها الافضل حسب منهجي الذي اسير عليه .. بعيدا عن الدوال الخارجية

ويبقى .. الاختيار والافضلية متاح للمصمم

وحيث ان كود أخونا محمد ليس له تأثير على احداث عداد النموذج .. فــ الذي حصل اني بالأمس ارسلت التحديث الى العميل

[Foksh]

4 ساعات مضت, Moosak said:

طيب كفكرة ممكن تعمل الساعة لحالها في نموذج فرعي وتعمل الحدث في النموذج الفرعي بدون ما يأثر على أحداث النموذج الرئيسي 🙂 

نعم صحيح ، هي كفكرة حلوة وتتيح لك التوسع في طريقة وتنسيق عرض الساعة ، حتى أني استخدمتها في برنامج نظام الطابور لعرض الساعة باللغتين ( عربي و انجليزي ) من خلال النقر على الساعة نفسها 😅

[ابو جودي]

2 ساعات مضت, Moosak said:

طيب كفكرة ممكن تعمل الساعة لحالها في نموذج فرعي وتعمل الحدث في النموذج الفرعي بدون ما يأثر على أحداث النموذج الرئيسي 🙂 

 

هلا والله ... والله اشتقنا 

للأسف انا لم أكن اعرف المطلوب وضعت الإجابة بناء على السؤال

حلوه النماذج الجميله اللى بتغير الوانها دى👍

 

3 دقائق مضت, Foksh said:

نعم صحيح ، هي كفكرة حلوة

بس فكرتى احلى 🤪

هو كده غلاسه 😆🫣

[jjafferr]

السلام عليكم

 

اما انا فما احب استعمال Timer في نماذجي ، لأنها تؤذيني لما اشتغل في الكود !!

واعتقدت ان كود اخوي ابو جودي سيحل المشكلة ، ولكن للأسف ، حصلت على نفس المشكلة في الكود !!

[ابو جودي]

السلام عليكم ورحمة الله تعالى وبركاته

استاذى الجليل ومعلمى القدير و والدى الحبيب الاستاذ @jjafferr 

19 دقائق مضت, jjafferr said:

ولكن للأسف ، حصلت على نفس المشكلة في الكود !!

ممكن أعرف إيه هى المشكله اللى حضرتك حصلت عليها

[Moosak]

13 دقائق مضت, ابو جودي said:

ممكن أعرف إيه هى المشكله اللى حضرتك حصلت عليها

هذي مشكلة شائعة ..

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

[ابو جودي]

24 دقائق مضت, Moosak said:

هذي مشكلة شائعة ..

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

المفروض ان الكود يحتوى على StopSystemClock
عند الاغلاق يتوقف تحديث التيمر

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

[Moosak]

15 دقائق مضت, ابو جودي said:

المفروض ان الكود يحتوى على StopSystemClock
عند الاغلاق يتوقف تحديث التيمر

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

حركة الإرباك هذه تحصل حتى عندما يكون لديك نموذج آخر وهو مفتوح وعليه تايمر  .. وأنت تشتغل على نموذج آخر مش عليه تايمر .. أو حتى وأنت تكتب أكوادك في موديول عام ..
هذا ما كان يقصده المعلم العود @jjafferr ...
ويظهر أن الكود اللي عملته حضرتك يتصرف بنفس الطريقة التي يتصرفها التايمر المضمن في نماذج الأكسس (حسب ما أفاد المعلم العود ) 🙂 

[ابو جودي]

19 دقائق مضت, Moosak said:

حركة الإرباك هذه تحصل حتى عندما يكون لديك نموذج آخر وهو مفتوح وعليه تايمر

بسيطه نعمل لها فكره يا سلام

19 دقائق مضت, Moosak said:

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

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

[ابوخليل]

في 29‏/6‏/2025 at 21:09, jjafferr said:

السلام عليكم

اما انا فما احب استعمال Timer في نماذجي ، لأنها تؤذيني لما اشتغل في الكود !!

واعتقدت ان كود اخوي ابو جودي سيحل المشكلة ، ولكن للأسف ، حصلت على نفس المشكلة في الكود !!

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

حاولت عدة مرات اعرف السبب ولكن بدون فائدة وبعد عشرين محاولة ابتعدت عن الجهاز ادير التفكير

تذكرت ان آخر تحديث هو اضافة كود التايمر ، فحذفته واستبدلته بفكرة اخونا موسى فمشي الحال واشتغل الفورم

تايمر الفورم وتايمر المصنوع يمكن يتعارضان عند اقلاع الفورم .. بالضبط كمن يجمع ضرتين في دار واحدة 

من اجل هذا ومن اجل من يمر هنا تكون الصورة واضحة ..

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

[ابو جودي]

في 1‏/7‏/2025 at 10:23, ابوخليل said:

ويسمح لي اخي وحبيبي ابو جودي

استاذى القدير و معلمى الجليل و والدى الحبيب الاستاذ @ابوخليل

حضرتك تتصرف كما يحلوا  لك حضرتك لك الأمر وعلي الطاعه