عدم قلب تاريخ النظام بعد الساعة 12 صباحا وجعلة يقلب لليوم الجديد بعد الساعة 7 صباحا

[eissa_l]

If Now() >= #12:00:00 AM# Or Now() <= #7:00:00 AM# Then
Me.Sdate = Date - 1
Else 
Me.Sdate = Date

إستخدمت الكود هذا بس مارضي يتطبق إذا أحد يقدر يفيدنا أكون لكم من الشاكرين

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

جرب بهذا الشكل

    If Format(Now(), "hh:mm:ss AM/PM") >= #12:00:00 AM# Or Format(Now(), "hh:mm:ss AM/PM") <= #7:00:00 AM# Then
        Me.Sdate = Date - 1
    Else
        Me.Sdate = Date
    End If

تحياتي

[eissa_l]

أستاذ محمد جربت الكود بس نقص لي يوم في كل الحالات

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

8 ساعات مضت, eissa_l said:

أستاذ محمد جربت الكود بس نقص لي يوم في كل الحالات

وضعت فقط تنسيق / Format للوقت فقط لنفس الكود الخاص بك

تحياتي

[eissa_l]

هو الكود ما اشتغل بالطريقة المطلوبة يعني أستمر ينقص يوم في كل الأوقات إذا تقدر تفيدنا بشيء حتى غير الكود الي كتبتة أكون لك من الشاكرين 

[أبوبسمله]

مشاركه مع اخى واستاذى @محمد أبوعبدالله

جرب التعديل كالتالى بتغيير Or الى And

ووافنا بالنتيجه

If Format(Now(), "hh:mm:ss AM/PM") >= #12:00:00 AM# And Format(Now(), "hh:mm:ss AM/PM") <= #7:00:00 AM# Then
    Me.sDate = Date - 1
Else
    Me.sDate = Date
End If

بالتوفيق