Formda Bulunan metin20 kutusu için;

'Tablo1 tablosunda

'Tarih/Saat biçimli 00:00 formatında Alan12 alanı

'SrNO OtomatikSayı alanı

'Tablodaki saatler: 12:05, 22:32, 01:40 diyelim

'Bulmamız gereken değer ->  36:77

'Metin20 kutusuna toplanacak

Dim TopDakika, ArtanSaat, ArtanDakika, TopSaat

TopDakika = Dsum ("minute([Alan12])", "[Tablo1]", "[SrNO]<=3")    '77

ArtanSaat = CLng(TopDakika / 60)    '1

ArtanDakika = TopDakika - (ArtanSaat * 60)  '17

TopSaat = Dsum ("hour([Alan12])", "[Tablo1]", "[SrNO]<=3")    '35

Metin20 = TopSaat + ArtanSaat & ":" & ArtanDakika   '36:77

---

Şöyle de olabilir;
Aşağıdaki fonksiyonu kullanarak

Function KacSaat(AlanAd As String, TabloAd As String, Kriter As String)

Dim TopDakika, ArtanSaat, ArtanDakika, TopSaat

    TopDakika = Dsum ("minute([" & AlanAd & "])", "[" & TabloAd & "]", Kriter)    '77

    ArtanSaat = CLng(TopDakika / 60)    '1

    ArtanDakika = TopDakika - (ArtanSaat * 60)  '17

    TopSaat = Dsum ("hour([" & AlanAd & "])", "[" & TabloAd & "]", Kriter)     '35

    KacSaat = TopSaat + ArtanSaat & ":" & ArtanDakika  '36:77

End Function

ve Metin20 nin Denetim kaynağına ;

=KacSaat("Alan12";"Tablo1";"[SrNO]<=3")

yazarak.