Private Sub Komut56_Click()

Dim rs As DAO.Recordset

Dim db As Database

Dim strSQL As String

Dim DK1, DK2, DK3 As Long

Dim SA1, SA2, SA3 As Long

Dim H1 As String

Set db = CurrentDb()

strSQL = "SELECT  * FROM TBL_SEYIR_SURESI"

Set rs = db.OpenRecordset(strSQL)

DK1 = 0: DK2 = 0: DK3 = 0

SA1 = 0: SA2 = 0: SA3 = 0

    If rs.EOF = True Then GoTo 90

    rs.MoveFirst

    Do Until rs.EOF

    SA1 = SA1 + Nz(Left(rs!TOPLAM_SEYIR_SURESI, 2), 0): DK1 = DK1 + Nz(Mid(rs!TOPLAM_SEYIR_SURESI, 4, 2), 0)

100

    rs.MoveNext

    Loop

90

H1 = (SA1 + Int(DK1 / 60)) & ":" & (DK1 - (Int(DK1 / 60) * 60))

Me.V1 = H1

End Sub

Yukardaki kodu daha önce yardım aldığım bır konudan aldım ve uyarladım. Bu kodu bir butonun tıklanma sonrasına yazınca V1 isimli metin kutusunda saat toplamını doğru bir şekilde veriyor. Ben form sayfası açılınca otomatik metin kutusunda saat toplanmasını arzu etmiştim ancak buton bağlantılı yapabildim ve sorunum %50 si kısmen çözüldü.