If then yapısı ile ilgili bir soru

1 2
08/09/2009, 09:20

yasinunal

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
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
08/09/2009, 09:41

Nurullah_Serdar

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.
08/09/2009, 09:44

yasinunal

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.
08/09/2009, 09:54

Nurullah_Serdar

örneğini ekleyebilir misin?
08/09/2009, 10:02

yasinunal

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

http://rapidshare.com/files/277125728/AKM.mdb.html
08/09/2009, 12:00

naimelik

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.
1 2