Skip to main content

AccessTr.neT


iki açılan kutudan sonuç almak

iki açılan kutudan sonuç almak

Çözüldü #1
Aşağıdaki linkte Hayri16 Hocamla çözdüğümüz saat toplamları çalışması var.
https://accesstr.net/konu-saat-farkini-o...nmasi.html

ancak bunu bir adım ileri götürüp form içindeki iki açılan kutu yardımıyla sonuca saat olarak toplatma konusunda yardma ihiyaç duyuyorum. Sadeleştirilmiş dosyam ektedir.

kod olarak

Visual Basic Code
Private Sub aykut_Click()
Dim ilktop As Integer
Dim sontop As Integer
ilktop = Nz(DSum("LEFT(TOPLAM_SEYIR_SURESI,2)", "[TBL_SEYIR_SURESI]", "[GOREV]= '" & [aykut] & "'"), 0)
sontop = Nz(DSum("mid(TOPLAM_SEYIR_SURESI,4,2)", "[TBL_SEYIR_SURESI]", "[GOREV]= '" & [aykut] & "'"), 0)
sefto = ilktop & ":" & sontop

End Sub


kullanmıştık ancak bu sefer toplam referans olan iki açılan kutu var?

.rar ZAMAN_TOPLAMI.rar (Dosya Boyutu: 51,64 KB | İndirme Sayısı: 5)
Son Düzenleme: 17/12/2010, 11:27, Düzenleyen: volkan1.
Cevapla
Çözüldü #2

Visual Basic Code
Dim ilktop As Integer
Dim sontop As Integer
ilktop = Nz(DSum("LEFT(sefer_suresı,2)", "[TBL_SEYIR_SURESI]", "[aıt_oldugu_ay]= '" & [Açılan Kutu32] & "' AND [GOREV]='" & [Açılan Kutu34] & "'"), 0)
sontop = Nz(DSum("mid(sefer_suresı,4,2)", "[TBL_SEYIR_SURESI]", "[aıt_oldugu_ay]= '" & [Açılan Kutu32] & "' AND [GOREV]='" & [Açılan Kutu34] & "'"), 0)
Sonuc = ilktop & ":" & sontop

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
(17/12/2010 11:50)ayhan2122 Adlı Kullanıcıdan Alıntı:

Visual Basic Code
Dim ilktop As Integer
Dim sontop As Integer
ilktop = Nz(DSum("LEFT(sefer_suresı,2)", "[TBL_SEYIR_SURESI]", "[aıt_oldugu_ay]= '" & [Açılan Kutu32] & "' AND [GOREV]='" & [Açılan Kutu34] & "'"), 0)
sontop = Nz(DSum("mid(sefer_suresı,4,2)", "[TBL_SEYIR_SURESI]", "[aıt_oldugu_ay]= '" & [Açılan Kutu32] & "' AND [GOREV]='" & [Açılan Kutu34] & "'"), 0)
Sonuc = ilktop & ":" & sontop



Hocam çalışıyor İlginize çok teşekkürler. Saygılar.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da