AccessTr.neT

Arkadaşlar Merhaba

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 Belki de Bitiş_Zamanı için büyük eşittir ve küçük eşittir ifadesini aynı anda kullanmam olmuş olabilir mi

Yardımlarınız için şimdiden teşekkür ederim

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

ElseIf Bitiş_Zamanı >= #9:10:00 AM# And Bitiş_Zamanı <= #12:00:00_ AM# And Başlangıç_Zamanı <= #9:00:00 AM# aradaki alt çizgi göze çarpıyor öncelikle. if then else nin kullanımında bir problem yok.

Cevabın için teşekkür ederim fakat alt çizgiyi satır çok uzun olduğu için alt satıra geçtiğimi belirtmek için ben koydum yoksa programda yok.

örneğini ekleyebilir misin?

Tabi ekte gönderiyorum. Ekteki üretim raporları giriş sayfası

http://rapidshare.com/files/277125728/AKM.mdb.html

Yazım biçimleri ile ilgili bir sorun sanırım
ElseIf Bitis_Zamani >= 0.38 And Bitis_Zamani <= 0.5 And Baslangic_Zamani <= 0.38 Then
Şeklinde yazdığında yani saat biçimlerinin sayısal karşılıklarını yazdığında sonuç doğru oluyor.