Skip to main content

AccessTr.neT


Tablodaki saat toplamını formda görüntülemek

Tablodaki saat toplamını formda görüntülemek

Çözüldü #1
Herkeze kolay gelsin aslında basit bir konuda yardım talebim olacak;
bir tablo içindeki saat değerlerini(18:30 + 20:45 vb.) ana formdan bir textbox içinde toplam olarak görüntülemek istiyorum(39:15vb.).
nasıl yapabileceğim hakkında bilgiye ihtiyacım var. Teşekkür ederim.
Son Düzenleme: 13/12/2010, 13:04, Düzenleyen: volkan1.
Cevapla
Çözüldü #2
Sayın Volkan1;
Dakika bölümlerinin toplamı saat kısmına eklenecek mi?
Yani 20:35 + 10:30 = 30:65 mi yoksa 31:05 mi ıolacak?
İkincisi tablo içindeki alanda kaydın 00:00 formatında mı yoksa 00:00:00 saniyeli formatta mı?
Hayri16, 12-11-2009 tarihinden beri AccessTr.neT üyesidir.
Son Düzenleme: 13/12/2010, 01:08, Düzenleyen: Hayri16.
Cevapla
Çözüldü #3
Formda Bulunan metin20 kutusu için;


'Tablo1 tablosunda
'Tarih/Saat biçimli 00:00 formatında Alan12 alanı
'SrNO OtomatikSayı alanı
'Tablodaki saatler: 12:05, 22:32, 01:40 diyelim
'Bulmamız gereken değer -> 36:77
'Metin20 kutusuna toplanacak
Dim TopDakika, ArtanSaat, ArtanDakika, TopSaat
TopDakika = Dsum ("minute([Alan12])", "[Tablo1]", "[SrNO]<=3") '77
ArtanSaat = CLng(TopDakika / 60) '1
ArtanDakika = TopDakika - (ArtanSaat * 60) '17
TopSaat = Dsum ("hour([Alan12])", "[Tablo1]", "[SrNO]<=3") '35
Metin20 = TopSaat + ArtanSaat & ":" & ArtanDakika '36:77


Şöyle de olabilir;
Aşağıdaki fonksiyonu kullanarak

Function KacSaat(AlanAd As String, TabloAd As String, Kriter As String)
Dim TopDakika, ArtanSaat, ArtanDakika, TopSaat
TopDakika = Dsum ("minute([" & AlanAd & "])", "[" & TabloAd & "]", Kriter) '77
ArtanSaat = CLng(TopDakika / 60) '1
ArtanDakika = TopDakika - (ArtanSaat * 60) '17
TopSaat = Dsum ("hour([" & AlanAd & "])", "[" & TabloAd & "]", Kriter) '35
KacSaat = TopSaat + ArtanSaat & ":" & ArtanDakika '36:77
End Function
ve Metin20 nin Denetim kaynağına ;

=KacSaat("Alan12";"Tablo1";"[SrNO]<=3")
yazarak.
Saygılar, iyi çalışmalar.
*********
Kod, formül vs bilmek önemlidir ama mantığını yürütebilmek, nerede ve nasıl kullanılacağını bilmek daha önemlidir.
Cevapla
Çözüldü #4
(13/12/2010, 01:06)Hayri16 yazdı: Sayın Volkan1;
Dakika bölümlerinin toplamı saat kısmına eklenecek mi?
Yani 20:35 + 10:30 = 30:65 mi yoksa 31:05 mi ıolacak?
İkincisi tablo içindeki alanda kaydın 00:00 formatında mı yoksa 00:00:00 saniyeli formatta mı?
ilginize teşekkürler; 31:05 olmalı saniyeye iftiyaç yok teşekkürler

Cevapla
Çözüldü #5
Sayın Volkan1;
Öncelikle Ayhan Hocamızın kodunu deneyiniz. Eğer istediğiniz gibi değilse aşağıdaki kodu da deneyiniz.
sonuc = Val(Left([Alan1], 2)) + Val(Left([Alan2], 2)) + (Int((Right((Val(Mid([Alan1], 4, 2)) + Val(Mid([Alan2], 4, 2))), 2))/ 60)) & ":" & (Right((Val(Mid([Alan1], 4, 2)) + Val(Mid([Alan2], 4, 2))), 2)) - (Int((Val(Mid([Alan1], 4, 2)) + Val(Mid([Alan2], 4, 2))) / 60)) * 60
Kolay gelsin.
Hayri16, 12-11-2009 tarihinden beri AccessTr.neT üyesidir.
Son Düzenleme: 13/12/2010, 16:44, Düzenleyen: Hayri16.
Cevapla
Çözüldü #6
Sayın volkan1;
Sorununuzla ilgili son durum hakkında lütfen geri bildirimde bulunun. Konu taşınmıştır.
Hayri16, 12-11-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task