خطا در بررسي شرط زمان ( ساعت ) [بایگانی]

emami.sie

سه شنبه 30 مهر 1387, 10:20 صبح

سلام
ببخشید که مزاحمتون می شم...
من یه سئوال خیلی مبتدیانه دارم:
من دو تا فیلد تاریخ دارم و دو تا هم فیلد ساعت، ساعت اولی مربوط به تاریخ اول و ساعت دومی مربوط به تاریخ دوم...
می خوام اگه تاریخ دومم با تاریخ اولم مساوی بود اونوقت ساعت دومم از ساعت اولم بزرگتر باشه...

Private Sub Saat2_BeforeUpdate(Cancel As Integer)
If TarikhT1 = TarikhT2 Then
begin:
If Saat1 < Saat2 Then
Saat2.Value = True
Else
"ساعت اشتباه وارد شده است" MsgBox
End If
End
Else
Saat2.Value = True
End If
End Sub

ولی Saat2.Value = True خطا میده، چه دستوری باید اینجا بنویسم؟؟؟؟
خیلی ممنون...

amirzazadeh

سه شنبه 30 مهر 1387, 10:30 صبح

اين كد رو امتحان كن

Private Sub Saat2_BeforeUpdate(Cancel As Integer)
If TarikhT1 = TarikhT2 Then
If Saat1 > Saat2 Then
Cancel=True
"ساعت اشتباه وارد شده است" MsgBox
End If
End If
End Sub