+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Saat farkını otomatik hesaplanması (/konu-saat-farkini-otomatik-hesaplanmasi.html)
Cvp: Saat farkını otomatik hesaplanması - volkan1 - 17/12/2010
Hocam galiba ölçütte bir eksiklik var sonucu alıyor ama xx:xx şeklinde saat olarak vermersi gerekirken 1,00694444444444 şeklinde veriyor. Öneriniz?
Cvp: Saat farkını otomatik hesaplanması - Hayri16 - 17/12/2010
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 & ":" & sontopCvp: Saat farkını otomatik hesaplanması - volkan1 - 17/12/2010
Bu sefer tabloda görünen saatlerin toplamını aldı ancak ay ayıracı yapmadı tüm seçili aylarda aynı toplamı veriyor.
Cvp: Saat farkını otomatik hesaplanması - Hayri16 - 17/12/2010
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] & "'")Cvp: Saat farkını otomatik hesaplanması - volkan1 - 17/12/2010
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.
Cvp: Saat farkını otomatik hesaplanması - Hayri16 - 17/12/2010
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)