Skip to main content

AccessTr.neT

Kayıt Ol

 | Facebook ile Bağlan  | Twitter İle Bağlan | Google+ İle Bağlan

İki kodun birleştirimesi

volkan1
volkan1
Access Cevaplanmış Soruları
16
5408

İki kodun birleştirimesi

Çözüldü #1
volkan1
Aktif Üye
volkan1
Bul
Aktif Üye
Adı Soyadı: Vo....
Yaşı: 50
Konum: Bursa
Ofis Versiyonu: Ofis 2003
Son Oturumu: 11/02/2014,22:56
Yorumları: 135
Konuları: 28
Kayıt Tarihi: 27/11/2010
Teşekkür Puanı: 0 
Private Sub a_Click()

Dim rs As DAO.Recordset

Dim db As Database

Dim strSQL As String

Dim DK As Long

Dim SA As Long

    Set db = CurrentDb()

    strSQL = "SELECT  * TBL_SEYIR_SURESI"

    Set rs = db.OpenRecordset(strSQL)

    Me.b = 0

    DK = 0

    SA = 0

    If rs.EOF = True Then GoTo 90

    rs.MoveFirst

    Do Until rs.EOF        

        SA = SA + Nz(Left(rs!TOPLAM_SEYIR_SURESI, 2), 0): DK = DK + Nz(Mid(rs!TOPLAM_SEYIR_SURESI, 4, 2), 0)      

100

    rs.MoveNext

    Loop

90

Me.b = (SA + Int(DK / 60)) & ":" & (DK - (Int(DK / 60) * 60))

End Sub



 Between [Forms]![SEYIR_SURE_SORGU]![araa1] And [Forms]![SEYIR_SURE_SORGU]![araa2]

Bu iki koddan ilki hatasız saat toplamını veriyor. İkincisi ise seçilmiş tarih aralığını. Bu kodu düzenleyerek sonuçta seçilmiş tarih arallığında saat toplamı aldırabilirmiyim.Tşk.
Volkan1 27 Kasım 2010 dan beri AccessTr üyesidir.Halay
Son Düzenleme: 29/04/2011, 18:33, Düzenleyen: volkan1.
Cevapla
Çözüldü #2
ayhan2122
accesstr.net , gayet net ;)
ayhan2122
Bul
Onursal Üye
Adı Soyadı:
Yaşı: 47
Konum: -
Ofis Versiyonu: Ofis 2003
Son Oturumu: 10/02/2021,19:44
Yorumları: 681
Konuları: 26
Kayıt Tarihi: 30/10/2008
Teşekkür Puanı: 451
Lütfen örnek ekleyiniz ...
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ü #3
volkan1
Aktif Üye
volkan1
Bul
Aktif Üye
Adı Soyadı: Vo....
Yaşı: 50
Konum: Bursa
Ofis Versiyonu: Ofis 2003
Son Oturumu: 11/02/2014,22:56
Yorumları: 135
Konuları: 28
Kayıt Tarihi: 27/11/2010
Teşekkür Puanı: 0
Örneğim aşağdaki linkte 1.mesaldadır.

https://accesstr.net/konu-4-referansli-s...irmak.html

Konu çözülmemiş olup kod düzenlemesi ile çözebilirmiyim diye 2. bir konu açtım ve kodlarımı ekledim sıkıntım konuda anlattığım gibidir.
Volkan1 27 Kasım 2010 dan beri AccessTr üyesidir.Halay
Son Düzenleme: 29/04/2011, 18:57, Düzenleyen: volkan1.
Cevapla
Çözüldü #4
ayhan2122
accesstr.net , gayet net ;)
ayhan2122
Bul
Onursal Üye
Adı Soyadı:
Yaşı: 47
Konum: -
Ofis Versiyonu: Ofis 2003
Son Oturumu: 10/02/2021,19:44
Yorumları: 681
Konuları: 26
Kayıt Tarihi: 30/10/2008
Teşekkür Puanı: 451
Aşağıdaki kodu uygulayınız.

Kod:
Private Sub hesap_Click()
'ayhan2122
Dim rs As DAO.Recordset
Dim db As Database
Dim strSQL As String
Dim DK As Long
Dim SA As Long
    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) And _
   (tarıhsec = 1 Or (rs!KALKIS_TARIHI >= CDate(araa1)) And rs!KALKIS_TARIHI <= CDate(araa2)) _
Then
        SA = SA + Nz(Left(rs!GOREV_1_SURE, 2), 0): DK = DK + Nz(Mid(rs!GOREV_1_SURE, 4, 2), 0)
        SA = SA + Nz(Left(rs!GOREV_2_SURE, 2), 0): DK = DK + Nz(Mid(rs!GOREV_2_SURE, 4, 2), 0)
        SA = SA + Nz(Left(rs!GOREV_3_SURE, 2), 0): DK = DK + Nz(Mid(rs!GOREV_3_SURE, 4, 2), 0)
End If
100
    rs.MoveNext
    Loop
90
Me.sonuc = (SA + Int(DK / 60)) & ":" & (DK - (Int(DK / 60) * 60))
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ü #5
volkan1
Aktif Üye
volkan1
Bul
Aktif Üye
Adı Soyadı: Vo....
Yaşı: 50
Konum: Bursa
Ofis Versiyonu: Ofis 2003
Son Oturumu: 11/02/2014,22:56
Yorumları: 135
Konuları: 28
Kayıt Tarihi: 27/11/2010
Teşekkür Puanı: 0
Sayın Ayhan2122;

Kod çok güzel çalışıyor. Bu kod ile 8 tane alternatif yazma olayınıda çözmüşsünüz. Teşekkürederim.

Ancak tarih seç kısmını boş geçmiyor. Null hata veriyor. Aslında büyük bir sorun değil. Sadece alternatifi 1e 2 ye 3e düşürüp tarih aralığını kullanmazsak sıkıntı oluyor. Yani her daim tarih sec aralığını araa1 ve araa2 yi dolu tutmam gerekiyor.

Bunun bir çözümü varmıdır. Yok ise böylede kalabilir. Tekrar Teşekkürler.
Volkan1 27 Kasım 2010 dan beri AccessTr üyesidir.Halay
Son Düzenleme: 30/04/2011, 08:46, Düzenleyen: volkan1.
Cevapla
Çözüldü #6
ayhan2122
accesstr.net , gayet net ;)
ayhan2122
Bul
Onursal Üye
Adı Soyadı:
Yaşı: 47
Konum: -
Ofis Versiyonu: Ofis 2003
Son Oturumu: 10/02/2021,19:44
Yorumları: 681
Konuları: 26
Kayıt Tarihi: 30/10/2008
Teşekkür Puanı: 451
Null durumunda hata vermemesi için aşağıdaki kodu kullanın.

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
    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) And _
   (tarıhsec = 1 Or (rs!KALKIS_TARIHI >= CDate(araa1)) And rs!KALKIS_TARIHI <= CDate(araa2)) _
Then
        SA = SA + Nz(Left(rs!GOREV_1_SURE, 2), 0): DK = DK + Nz(Mid(rs!GOREV_1_SURE, 4, 2), 0)
        SA = SA + Nz(Left(rs!GOREV_2_SURE, 2), 0): DK = DK + Nz(Mid(rs!GOREV_2_SURE, 4, 2), 0)
        SA = SA + Nz(Left(rs!GOREV_3_SURE, 2), 0): DK = DK + Nz(Mid(rs!GOREV_3_SURE, 4, 2), 0)
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 "Tarih aralıklarını belirtiniz"
                           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

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task