önce çalışmanıza bir modul ekleyip aşağıdaki fonksiyonu ekleyin

Function Sny2Sure(LngSny As Long) As String

Dim LngSaat, LngDk, LngSaniye, TmpKln As Long

TmpKln = LngSny

LngSaniye = Format(TmpKln Mod 60, "00")



TmpKln = TmpKln \ 60

LngDk = Format(TmpKln Mod 60, "00") & ":"



TmpKln = TmpKln \ 60

LngSaat = Format(TmpKln Mod 60, "00") & ":"



Sny2Sure = LngSaat & LngDk & LngSaniye

End Function

aşağıdaki koda ait bir sorgu oluşturup dener misiniz?

SELECT TblVaka.vaka_id, TblVaka.vaka_no, TblVaka.olay_tarihi, TblVaka.vardiya_id, TblVaka.olay_turu_id, TblVaka.olay_cins_id, TblVaka.cagri_yonlendirici, First(TblGurup.grup_adi) AS İlkgrup_adi, First(TblArac.arac_plaka) AS İlkarac_plaka, First(TblCikisYapanArac.arac_cikis) AS İlkarac_cikis, First(TblCikisYapanArac.arac_varis) AS İlkarac_varis, First(TblCikisYapanArac.arac_ayrilis) AS İlkarac_ayrilis, First(TblCikisYapanArac.arac_donus) AS İlkarac_donus, DateDiff("s",[cagri_yonlendirici],[İlkarac_cikis]) AS CikisSure, DateDiff("s",[İlkarac_cikis],[İlkarac_varis]) AS VarisSure, Sny2Sure([CikisSure]) AS İfade1, Sny2Sure([VarisSure]) AS İfade2

FROM (((TblVaka INNER JOIN TblCikisYapanGurup ON TblVaka.[vaka_id] = TblCikisYapanGurup.[vaka_id]) INNER JOIN TblCikisYapanArac ON TblCikisYapanGurup.[TblCikisYapanGurup_id] = TblCikisYapanArac.[TblCikisYapanGurup_id]) INNER JOIN TblGurup ON TblCikisYapanGurup.gurup_id = TblGurup.gurup_id) INNER JOIN TblArac ON TblCikisYapanArac.plaka_id = TblArac.arac_id

GROUP BY TblVaka.vaka_id, TblVaka.vaka_no, TblVaka.olay_tarihi, TblVaka.vardiya_id, TblVaka.olay_turu_id, TblVaka.olay_cins_id, TblVaka.cagri_yonlendirici;

bu sadece deneme amaçlı ifade1 ve ifade2 sonucu istediğiniz formatta göstermek için sanradan eklenen ve isminde Sure yazan alanalar ise hesaplama işlemlerinde kullanmak için