Skip to main content

AccessTr.neT


Saat toplamını aldırmak (Filitre ile)

Saat toplamını aldırmak (Filitre ile)

Çözüldü #13
doğrudur hocam uygulamada toplam seyir süresini saat olarak toplatmak daha doğru.
Volkan1 27 Kasım 2010 dan beri AccessTr üyesidir.Halay
Cevapla
Çözüldü #14
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.
Murat YANDEMİR ( PyramiD YAZILIM Uluslar Arası Nakliye Programları )
Bilgisayar Programcısı (1989'dan beri)

+rep Yollar biter Access bitmez. +rep
Cevapla
Çözüldü #15
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?
İnadına, ille de Accesstr.net...
Cevapla
Çözüldü #16
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ü.
Volkan1 27 Kasım 2010 dan beri AccessTr üyesidir.Halay
Son Düzenleme: 16/04/2011, 12:03, Düzenleyen: volkan1.
Cevapla
Çözüldü #17
Kod:
SA1 = SA1 + Nz(Left(rs!TOPLAM_SEYIR_SURESI, 2), 0): DK1 = DK1 + Nz(Mid(rs!TOPLAM_SEYIR_SURESI, 4, 2), 0)

İşte bahsettiğim olay buydu.. Yapılmış işte daha önce..
Projenizin bu halini yüklerseniz buton olayını otomatikleştirmeye çalışırız.
İnadına, ille de Accesstr.net...
Cevapla
Çözüldü #18
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 Img-grin))
.rar Deneme_son_DEMİRAL.rar (Dosya Boyutu: 29,55 KB | İndirme Sayısı: 28)
İnadına, ille de Accesstr.net...
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task