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