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

Malesef sorunum devam ediyor.Basit halde Çalışmamı ekte sunuyorum.

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.?

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.

(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

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ış.

Hocam Ellerinize sağlık Gayet güzel çalışıyor. Tekrar Tekrar teşekkürler.