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

عدم اظهار


m.r
إذهب إلى أفضل إجابة Solved by د.كاف يار,

الردود الموصى بها

وعليكم السلام

انشىء جدول به حقل نوع تاريخ واجعل تنسيقه General Date

وعند الضغط على الزر يقوم بتحديث الحقل الى الوقت والتاريخ الحالي

now()

وعند فتح النموذج يتم عمل مقارنة بين الوقت الحالي والوقت الموجود بالجدول

تحياتي

  • Like 1
رابط هذا التعليق
شارك

  • أفضل إجابة

تفضل هذا الكود اخي الكريم

مع مراعا و ضع اسم عنصر التحكم ( الأزرار ) في المكان المخصص

 

فكرة هذا الكود :-

- الصق هذا الكود في اي مكان في شاشة الأكواد VBA

Function control is not visible()
On Error GoTo errorhandle
DoCmd.SetWarnings False

If DateDiff("h", DLookup("[EndTime]", "[StingTime]", "[TimeNo]=1"), Now()) > 24 Then

DoCmd.RunSQL "Update StingTime SET EndTime = Now() WHERE [TimeNo]=1;"
[ضع اسم عنصر التحكم هنا].Visible = True

Else

[ضع اسم عنصر التحكم هنا].Visible = False

End If

errorhandleexit:
        Exit Sub
errorhandle:
       If Err.Number = 3078 Then
       DoCmd.RunSQL "CREATE TABLE StingTime (TimeNo int , EndTime DATE );"
       DoCmd.RunSQL "INSERT INTO StingTime VALUES (1, Now());"
       End If
        
        Resume errorhandleexit
DoCmd.SetWarnings True
End Function

 

- يجب وضع هذا الكود في حدث عند الفتح و كذلك في الازرار المستهدف 

Call control is not visible()

- سيتم انشاء جدول كما ذكر من قبل اخي الكريم @ محمد أبو عبدالله محمد أبوعبدالله 

- سيتم تحديث هذا الجدول كل 24 ساعة أو اكثر

- يمكنك التعديل على الجدول باضافة عمود لاسم المستخدم 

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

3 ساعات مضت, محمد أبوعبدالله said:

وعليكم السلام

انشىء جدول به حقل نوع تاريخ واجعل تنسيقه General Date

وعند الضغط على الزر يقوم بتحديث الحقل الى الوقت والتاريخ الحالي


now()

وعند فتح النموذج يتم عمل مقارنة بين الوقت الحالي والوقت الموجود بالجدول

تحياتي

 

  • Like 3
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information