البحث في الموقع
Showing results for tags 'نطاق الوقت'.
تم العثور علي 1 نتيجه
-
السلام عليكم كل الشكر لهذا المنتدى الرائع و القائمين عليه و رمضان كريم عندي هذا الفورم لدي 2 TextBox Text2 , Text3 من نوع Date عندما تكون Text2 >=8.30 AM And Text2 <= 8.30 AM أي أن النطاق نصف ساعة , من الساعة الثامنة إلى الساعة الثامنة و النصف حينئذ Text3 = 8.30 AM غير ذلك Text3=Text2 انا حاولت على الشكل التالي : Private Sub Text2_Exit(Cancel As Integer) On Error Resume Next Dim t1 As Date For t1 = #8:00:00 AM# To #8:30:00 AM# If Text2 = t1 Then Text3 = #8:03:00 AM# Else Text3 = Text2 End If Next t1 End Sub و دون جدوى و حاولت أيضا Private Sub Text2_Exit(Cancel As Integer) On Error Resume Next If Text2 >= 8.00.00 AM And Text2 <= 8.30.00 AM Then Text3 = #8:03:00 AM# Else Text3 = Text2 End If End Sub و أيضا بلا فائدة و لكم جزيل الشكر Database1.rar
