Sn, okumus sizin ki daha güzel ve verimli olmuş. Ekrana gelen mesaj bölümü ise ayrı bir güzel.
Emeklerinize sağlık.
aşağıdaki kodu dener misiniz?
If IsDate(Me.islemtarihi) Then
Me.Vardiyası = IIf(Me.islemtarihi >= TimeValue("08:00:00") And Me.islemtarihi < TimeValue("16:00:00"), "V1", _
IIf(Me.islemtarihi >= TimeValue("16:00:00") And Me.islemtarihi <= TimeValue("23:59:59"), "V2", "V3"))
Else
Me.Vardiyası = ""
End If