aşağıdaki fonksiyonu bir modül oluşturup oraya ekleyeceksiniz

Function sonuc(Trh As String) As String

On Error Resume Next

X = CStr(Trh)

ZamanX = Right(X, 4)



y = TimeValue(CStr(Left(ZamanX, 2) & ":" & Right(ZamanX, 2) & ":00"))

If y >= TimeValue("16:00:00") Then sonuc = "16-24" Else sonuc = "8-16"

If y <= TimeValue("08:00:00") Then sonuc = "24-8"

If Err.Number <> 0 Then sonuc = "vardiya girilmemis"

End Function

sonrada fonksiyonu ihtiyaç duyduğunuz yerden çağıracaksınız ister form ister sorgu
ben forma eklediğim metin kutusundan çağırdım ama siz isterseniz formda kullandığın kayıt kaynağına da ekleyebilirsiniz
iyi çalışmalar