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
yasinunal, 19-08-2009 tarihinden beri AccessTr.neT üyesidir.