Merhaba;
saatim2 güncelleştirme sonrası (AfterUpdate) olay yordamındaki kodları aşağıdakiler ile değiştirip dener misiniz?
Module de yazılı olup sorguda kullanılan fonksiyonu çözemedim. Bende zaten sonuç olarak gelen saat değeri üzerinden saati 3600 dakikayı da 60 ile çarptırıp Metin37 ye toplamını aldırdım. 
Umarım doğrudur.
İyi çalışmalar.

Dim s1, d1

Me.Refresh

Me.topsurem = Dlookup ("[topsuresi]", "sureyaz", "[Kimlik]=" & Me.Kimlikim)

s1 = Left(Me.topsurem, 2) * 3600

d1 = Mid(Me.topsurem, InStr(1, Me.topsurem, ":") + 1, 2) * 60

Me.Metin37 = s1 + d1