Skip to main content

AccessTr.neT


İki kodun birleştirimesi

İki kodun birleştirimesi

Çözüldü #13
Haklısın... Değişiklik yaptım acil incelermisin. Çıkacağım...
.rar DENEME.rar (Dosya Boyutu: 51,66 KB | İndirme Sayısı: 10)
Please return your positive or negative ...
Cevapla
Çözüldü #14
Hocam Elinize sağlık bir problem görünmüyor. sizi meşkul etmeyim ben ayrıntılı test edicem neticede saat toplamları. Şimdilik bir problem yok tekrar teşekkürler.
Volkan1 27 Kasım 2010 dan beri AccessTr üyesidir.Halay
Cevapla
Çözüldü #15
Problem olursa geri dönüş yap tekrar inceleyelim...
Please return your positive or negative ...
Cevapla
Çözüldü #16
Tarih null ise de hesaplama yapsa ne güzel olurdu Img-grin
Kod:
Private Sub hesap_Click()
On Error GoTo hesap_Click_HATA

Dim rs As DAO.Recordset
Dim db As Database
Dim strSQL As String
Dim DK As Long
Dim SA As Long
Dim Tr1, Tr2
Tr1 = IIf(IsNull(araa1), DMin("KALKIS_TARIHI", "TBL_SEYIR_SURESI"), araa1)
Tr2 = IIf(IsNull(araa2), DMax("KALKIS_TARIHI", "TBL_SEYIR_SURESI"), araa2)
    Set db = CurrentDb()
    strSQL = "SELECT TBL_SEYIR_SURESI.* " & _
             "FROM TBL_SEYIR_SURESI " & _
             ";"

    Set rs = db.OpenRecordset(strSQL)
    Me.sonuc = 0
    DK = 0
    SA = 0
    If rs.EOF = True Then GoTo 90
    rs.MoveFirst
    Do Until rs.EOF
          
If (aysecim = 1 Or rs!AYLAR = aykutu) And _
   (unsursec = 1 Or rs!GOREV_UNSURU = unsurkutu) And _
   (gorevsec = 1 Or rs!GOREV_1 = gorevkutu Or rs!GOREV_2 = gorevkutu Or rs!GOREV_3 = gorevkutu) And _
   (tarıhsec = 1 Or (rs!KALKIS_TARIHI >= CDate(Tr1)) And rs!KALKIS_TARIHI <= CDate(Tr2)) _
Then
        SA = IIf(gorevsec = 1 Or rs!GOREV_1 = gorevkutu, SA + Nz(Left(rs!GOREV_1_SURE, 2), 0), SA)
        DK = IIf(gorevsec = 1 Or rs!GOREV_1 = gorevkutu, DK + Nz(Mid(rs!GOREV_1_SURE, 4, 2), 0), DK)
        SA = IIf(gorevsec = 1 Or rs!GOREV_2 = gorevkutu, SA + Nz(Left(rs!GOREV_2_SURE, 2), 0), SA)
        DK = IIf(gorevsec = 1 Or rs!GOREV_2 = gorevkutu, DK + Nz(Mid(rs!GOREV_2_SURE, 4, 2), 0), DK)
        SA = IIf(gorevsec = 1 Or rs!GOREV_3 = gorevkutu, SA + Nz(Left(rs!GOREV_3_SURE, 2), 0), SA)
        DK = IIf(gorevsec = 1 Or rs!GOREV_3 = gorevkutu, DK + Nz(Mid(rs!GOREV_3_SURE, 4, 2), 0), DK)
End If
100
    rs.MoveNext
    Loop
90
Me.sonuc = (SA + Int(DK / 60)) & ":" & (DK - (Int(DK / 60) * 60))
hesap_Click_CIKIS: Exit Sub
hesap_Click_HATA: MsgBox "Hatalı işlem yaptınız. ", vbCritical, "Hata#"
                           Resume hesap_Click_CIKIS
End Sub

Saygılar, iyi çalışmalar.
*********
Kod, formül vs bilmek önemlidir ama mantığını yürütebilmek, nerede ve nasıl kullanılacağını bilmek daha önemlidir.
Cevapla
Çözüldü #17
Hocam sayenizde programın birtek çamaşır, bulaşık yıkamadığı kaldı Rayof
Tekrar çok teşekkür ederim. Elinize sağlık.

10806Tesekkur10806
Volkan1 27 Kasım 2010 dan beri AccessTr üyesidir.Halay
Son Düzenleme: 15/05/2011, 08:32, Düzenleyen: volkan1.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task