عدم اظهار

[m.r]

سلام عليكم. 

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

[محمد أبوعبدالله]

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

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

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

now()

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

تحياتي

[د.كاف يار]

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

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

 

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

- الصق هذا الكود في اي مكان في شاشة الأكواد 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()

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

تحياتي

 

[m.r]

مشكورين ربي يحفظكم.