قاعدة if مع الوقت

[jo_2010]

الخبراء الافاضل

كيف اكتب قاعدة if مع الوقت

اريد عمل الاتى

عند فتح النموذج وكان الساعة بعد الثالثة عصرا 

يختفى زر اسمة Alborg

كيف اكتب الدالة

[Foksh]

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

اتمنى أن لا يكون هناك أمور لم تأت على ذكرها 😅😅

 

جرب في حدث عند التحميل لأي نموذج يحتوي الزر المطلوب ، الكود التالي
 

Private Sub Form_Load()
    If Time() > #3:00:00 PM# Then
        Me.Alborg.Visible = False
    Else
        Me.Alborg.Visible = True
    End If
End Sub

 

[jo_2010]

21 ساعات مضت, Foksh said:

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

اتمنى أن لا يكون هناك أمور لم تأت على ذكرها 😅😅

 

جرب في حدث عند التحميل لأي نموذج يحتوي الزر المطلوب ، الكود التالي
 

Private Sub Form_Load()
    If Time() > #3:00:00 PM# Then
        Me.Alborg.Visible = False
    Else
        Me.Alborg.Visible = True
    End If
End Sub

 

خالص الشكر لحضرتك