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ü #7
Malesef sorunum devam ediyor.Basit halde Çalışmamı ekte sunuyorum.
.rar ZAMAN_TOPLAMI.rar (Dosya Boyutu: 14,27 KB | İndirme Sayısı: 6)
Son Düzenleme: 16/12/2010, 13:15, Düzenleyen: volkan1.
Cevapla
Çözüldü #8
Sayın Volkan1;
Tablonuzda her satırda süre var, yanında da toplam süre. Bu toplam süre ne ile neyin toplamı olacak.?
Hayri16, 12-11-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
Çözüldü #9
Volkan Bey;
15 dakika önce size , sorununuzla ilgili elimden geldiğince yardımcı olabilmek amacıyla açıklama talep eden bir soru sordum. Siz 15 dakikadır forumda olduğunuz halde cevap verme nezaketini göstermediniz. Bu durumda benim size bundan sonra yapacağım herhangi bir şey yok. Size iyi çalışmalar.
Hayri16, 12-11-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
Çözüldü #10
(16/12/2010, 12:48)Hayri16 yazdı: Volkan Bey;
15 dakika önce size , sorununuzla ilgili elimden geldiğince yardımcı olabilmek amacıyla açıklama talep eden bir soru sordum. Siz 15 dakikadır forumda olduğunuz halde cevap verme nezaketini göstermediniz. Bu durumda benim size bundan sonra yapacağım herhangi bir şey yok. Size iyi çalışmalar.

çok özür dilerim çalışma ile ilgileniyordum.expolorer inikti cevabınızı görmedim.

tablodaki toplam sürenin önemi yok önemli olan form daki toplam sürede tablodakı süre değerlerinin toplanması Tekrar kusura bakmayın
Son Düzenleme: 16/12/2010, 12:58, Düzenleyen: volkan1.
Cevapla
Çözüldü #11
Volkan Bey;
Önce Tablo1 deki "SÜRE" olan alan adını "sure" yapınız. Türkçe karakter olduğu için ek işlemler gerektiriyor.
Sonra formunuzdaki metin6 nın denetim kaynağını boş bırakın. Siz toplam süre ye bağlamışsınız kaldırın.
Formunuza bir komut tuşu ekleyin(bende adı Komut8) ve click olayının yordamına aşağıdaki kodu yazın.
Private Sub Komut8_Click()
Dim dk As Integer
Dim sn As Integer
Dim aratop As String
aratop = Dsum ("Left(sure, 2)", "Tablo1") & ":" & Dsum ("mid(sure,4, 2)", "Tablo1")
sn = (DSum("mid(sure,4, 2)", "Tablo1")) / 60
dk = Dsum ("Left(sure, 2)", "Tablo1") + sn
Metin6 = dk & ":" & Dsum ("mid(sure,4, 2)", "Tablo1") - (sn * 60)
End Sub
..ve lütfen sonucu en kısa zamanda bildirin. Saygılar.
Dim aratop as string
aratop=....
olan satırları silebilirsiniz. Benim denemelerimden kalmış.
Hayri16, 12-11-2009 tarihinden beri AccessTr.neT üyesidir.
Son Düzenleme: 16/12/2010, 14:15, Düzenleyen: Hayri16.
Cevapla
Çözüldü #12
Hocam Ellerinize sağlık Gayet güzel çalışıyor. Tekrar Tekrar teşekkürler.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da