AccessTr.neT

doğrudur hocam uygulamada toplam seyir süresini saat olarak toplatmak daha doğru.

tutarken gün olarak tautabiliriz ama toplamda saate çevrilebilir. örnekte biraz oynamak gerekli. gün iptal edilecek saat üzerinde gidilecek. yada her 1 gün saate 24 olarak eklenecek.

Sonuçta mantıken doğru ama bunu var olan, oluşturulan mevcut yapı üzerinde yapmak gerekiyor. Toplamları aldığımız sorguda değerleri val kullanarak stringe çevirmeden ya da mid ile filtrelemeden toplayamadım. Tablodaki verilerin metin olarak girilmesinden mi kaynaklanıyor acaba?

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ü.

İşte bahsettiğim olay buydu.. Yapılmış işte daha önce..
Projenizin bu halini yüklerseniz buton olayını otomatikleştirmeye çalışırız.

Sanırım bu yayınlayacağım örnek bu konuya son noktayı koyacaktır. Çok uğraşarak bu sonucu elde ettiğimi söylemek isterim. Bu nedenle repler gelsin bakalım ))