Saat farkını otomatik hesaplanması

1 2 3
17/12/2010, 00:14

volkan1

Hocam galiba ölçütte bir eksiklik var sonucu alıyor ama xx:xx şeklinde saat olarak vermersi gerekirken 1,00694444444444 şeklinde veriyor. Öneriniz?
17/12/2010, 00:18

Hayri16

Tamam Volkan sırayla gideceğiz. Öyle olacağını bilyordum. Amacım birlikte yapmak. Bu neden oluyor? Oradaki sayı formatı daha farklı. Şimdi şöyle yapalım.
Tıklama yordamında 2 değişken tanımlayalım ve verilerimizi oraya formatlayarak aktaralım.
Dim ilktop As Integer
Dim sontop As Integer

ilktop = Dsum ("LEFT(sefer_suresı,2)", "[TBL_SEYIR_SURESI]")
sontop = Dsum ("mid(sefer_suresı,4,2)", "[TBL_SEYIR_SURESI]")
seftop = ilktop & ":" & sontop
kodumuzu bu hale getirelim ve gene çalıştıralım. (daha devam edeceğiz-bitmedi)
17/12/2010, 00:23

volkan1

Bu sefer tabloda görünen saatlerin toplamını aldı ancak ay ayıracı yapmadı tüm seçili aylarda aynı toplamı veriyor.
17/12/2010, 00:46

Hayri16

Evet yapmadı. Çünkü daha kriter koymadık.
Şimdi onu da koyalım. Nasıl yapacağız? Kullanıcı senin formuna göre Acılan Kutu20 den seçecek, ona göre süzeceğiz.
Ama gel önce şu Açılan Kutu 'nun ismini değiştirelim. bunun adını aykutu yapalım.
Ondan sonra kodlarımızın Dsum bölümlerini şöyle dğiştirelim.
ilktop = Dsum ("LEFT(sefer_suresı,2)", "[TBL_SEYIR_SURESI]", "[aıt_oldugu_ay]= '" & [aykutu] & "'")
sontop = Dsum ("mid(sefer_suresı,4,2)", "[TBL_SEYIR_SURESI]", "[aıt_oldugu_ay]= '" & [aykutu] & "'")
17/12/2010, 00:57

volkan1

Hocam galiba bu sefer oldu. tabloda o ayiçin değer girildiyse toplamını verioyr. eğer o ay için değer yoksaki kullanımda olucak Invalid use of Null uyarısı veriyor.

Bu saatte benimle bir öğrenci gibi ilgilendiğiz için çok teşekkürler. Sizden ders almak çok keyifliydi.
17/12/2010, 01:00

Hayri16

O zaman şöyle yapacağız. NZ fonksiyonunu kullanacağız.
ilktop = Nz(DSum("LEFT(sefer_suresı,2)", "[TBL_SEYIR_SURESI]", "[aıt_oldugu_ay]= '" & [aykutu] & "'"), 0)
sontop = Nz(DSum("mid(sefer_suresı,4,2)", "[TBL_SEYIR_SURESI]", "[aıt_oldugu_ay]= '" & [aykutu] & "'"), 0)
Şimdi sonucu bildirebilir misin?
1 2 3