If then yapısı ile oluşturduğum bir programda bir problemim var. Aşağıda koyu harfler ile belirtilen satırı uygulamdan bir sonraki if yapısına geçiyor. Acaba nerede hata yapıyorum
![Icon_rolleyes Icon_rolleyes](https://accesstr.net/images/smilies/icon_rolleyes.gif)
![Sadd Sadd](https://accesstr.net/images/smilies/sadd.gif)
Yardımlarınız için şimdiden teşekkür ederim
![Img-grin Img-grin](https://accesstr.net/images/smilies/img-grin.gif)
Private Sub Bitiş_Zamanı_AfterUpdate()
Dim SURE As Date
If Bitiş_Zamanı <= #9:00:00 AM# Then
Me.Aktif_Süre = Me.Bitiş_Zamanı - Me.Başlangıç_Zamanı
ElseIf Bitiş_Zamanı >= #9:10:00 AM# And Bitiş_Zamanı <= #12:00:00_ AM# And Başlangıç_Zamanı <= #9:00:00 AM# Then
SURE = DateAdd("n", -10, Bitiş_Zamanı)
Me.Aktif_Süre = SURE - Me.Başlangıç_Zamanı
Else
Me.Aktif_Süre = #9:20:00 PM#
End If
End Sub