شرط في زر امر لايعمل الي في وقت محدد

[حسين العربى]

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

كل عام وانتم بخير  / طلبي هو كالاتي :

عندي نموذج خاص بالحضور ولانصراف به زر امر خروج وزر امر دخول اريد كود في زر الدخول والخروج  في الوقت من الساعة 12 صباحا الي الساعة 3 صباحا الزر لا ينفذ امر ويظهر رسالة مثلا لايمكن عمل خروج او دخول في الوقت الحالي

وجزاكم الله خيرا

test2.accdb

[Barna]

جرب هذا الكود وعدله كما تشاء

If (Time() >= #5:39:00 AM#) Then
MsgBox "System Maintenance On-going. Please check back after 3 minutes.", vbOKOnly
DoCmd.Quit acQuitSaveAll
End If

ملاحظة : يمكن للمستخدم ان يتلاعب في وقت الجهاز

تم تعديل أغسطس 4, 2020 بواسطه Barna

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

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

تفضل اخي الكريم

 

Private Sub sv_Click()
    
    If Format(Time, "Long Time") >= #12:00:00 AM# And Format(Time, "Long Time") <= #3:00:00 AM# Then
        DoCmd.OpenForm "frm1"
    Else
        MsgBox "لا يمكن عمل دخول او خروج في الوقت الحالي"
        Exit Sub
    End If
    
End Sub

Private Sub أمر30_Click()

    If Format(Time, "Long Time") >= #12:00:00 AM# And Format(Time, "Long Time") <= #3:00:00 AM# Then
        DoCmd.OpenForm "frm2"
    Else
        MsgBox "لا يمكن عمل دخول او خروج في الوقت الحالي"
        Exit Sub
    End If

End Sub

test2.rar

تحياتي

[د.كاف يار]

19 دقائق مضت, محمد أبوعبدالله said:

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

تفضل اخي الكريم

 

Private Sub sv_Click()
    
    If Format(Time, "Long Time") >= #12:00:00 AM# And Format(Time, "Long Time") <= #3:00:00 AM# Then
        DoCmd.OpenForm "frm1"
    Else
        MsgBox "لا يمكن عمل دخول او خروج في الوقت الحالي"
        Exit Sub
    End If
    
End Sub

Private Sub أمر30_Click()

    If Format(Time, "Long Time") >= #12:00:00 AM# And Format(Time, "Long Time") <= #3:00:00 AM# Then
        DoCmd.OpenForm "frm2"
    Else
        MsgBox "لا يمكن عمل دخول او خروج في الوقت الحالي"
        Exit Sub
    End If

End Sub

test2.rar 85.99 kB · 0 تنزيلات

تحياتي

 

بالاضافة الى الحل المقدم من اخي @محمد ابوعبدالله

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

الفكرة بحيث انك ما تحتاج تدخل على الكود في كل مرة

 

شكرا لكم

[حسين العربى]

الف شكر استاذي الفاضل محمد ابو عبدالله واستاذي الفاضل  د.كاف يار واستاذي الفاضل Barna 

هذا هو المطلوب

تم تعديل أغسطس 4, 2020 بواسطه حسين العربى