Önce çalışmanıza 1 modül ekleyin
sonra Aşağıdaki Fonksiyonları Module Ekleyin

Function ToplamYar(xMetin As String) As Double

Dim Metin() As String

Dim xZaman() As String

Metin = Split(xMetin, ",")

For x = LBound(Metin) To UBound(Metin)

txtmetin = Metin(x)

'__________kontrol

xVarmi = InStr(1, txtmetin, ":", 1)

sayisalmi = IsNumeric(Replace(txtmetin, ":", ""))

'__________________________



If xVarmi < 1 Or sayisalmi = False Then GoTo 10

'_________________________________________

xZaman = Split(txtmetin, ":")

If IsNumeric(xZaman(0)) Then ZmnSaatdk = 60 * CLng(xZaman(0)) Else ZmnSaatdk = 0

If IsNumeric(xZaman(1)) Then ZmnDakika = CLng(xZaman(1)) Else ZmnDakika = 0

SaatDkCevir = Nz(ZmnSaatdk, 0) + Nz(ZmnDakika, 0)

ToplamYar = ToplamYar + SaatDkCevir

10

Next



End Function

aşağıdaki kod formda değişecek"top_yard_mak_cal_sa_Click" olayını aşağıdaki gibi yapın[/color]

Private Sub top_yard_mak_cal_sa_Click()

Dim xMetin As String

xMetin = Nz(Me.yard1_cal_sa, "") & "," & Nz(Me.yard2_cal_sa, "") & "," & Nz(Me.yard3_cal_sa, "")

xMetin = CStr(xMetin)

'Metin = Split(xMetin, ",")



ZmnTop = ToplamYar(xMetin)

ZmnSaat = ZmnTop \ 60 '":" & ToplamYar(metin)mod 60

Zmndk = ZmnTop Mod 60

Me.top_yard_mak_cal_sa = ZmnSaat & ":" & Zmndk



End Sub

__________________________________________________________
Son olarak da bir sorgu oluşturup sorgunun Sql koduna aşağıdakileri yazın

SELECT sey_bil.s_nu, ToplamYar(CStr(Nz([sey_bil]![yard1_cal_sa],"") & "," & Nz([sey_bil]![yard2_cal_sa],"") & "," & Nz([sey_bil]![yard3_cal_sa],""))) AS Toplam, [Toplam]\60 & ":" & [Toplam] Mod 60 AS [Saat Dk]

FROM sey_bil;

önceki çalışmanızı kullanıp "top_yard_mak_cal_sa" hesabını sorgu üzerinden yaptırmaya çalıştım ama hata kontrolü yaptırmadım dolayısıyla saat alanlar "15:21" gibi  bir formatta olmalı dilerim çalışır)