iki açılan kutudan sonuç almak
Tarih
17/12/2010 11:26
Konu Sahibi
volkan1
Yorumlar
2
Okunma
996
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



volkan1
Aktif Üye
Kullanici Avatari
Aktif Üye
V....
135
27/11/2010
0
Bursa
Ofis 2003
11/02/2014,22:56
Çözüldü 
Aşağıdaki linkte Hayri16 Hocamla çözdüğümüz saat toplamları çalışması var.
http://www.accesstr.net/konu-saat-farkin...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
1
2
3
4
5
6
7
8
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)

Cevapla


ayhan2122
accesstr.net , gayet net ;)
Kullanici Avatari
Uzman
681
30/10/2008
451
-
Ofis 2003
24/10/2016,00:04
Çözüldü 

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


volkan1
Aktif Üye
Kullanici Avatari
Aktif Üye
V....
135
27/11/2010
0
Bursa
Ofis 2003
11/02/2014,22:56
Çözüldü 
(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







Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  açılan kutu değerine göre aktif/pasif buton ferhatozge 10 320 30/11/2016, 12:01 donepezil
  Açılan kutuda girilen ürün kodu yoksa, form açma ferhatozge 9 201 23/11/2016, 23:45 ozanakkaya
  Seçime Bağlı Form Açma-Açılan Formda Seçilenleri Raporda Gösterme Nasıl Yapılır? mehami 8 199 14/11/2016, 18:43 mehami
Thumbs Down Sürekli Formda Birden Fazla Açılan Kutuda Süzme TAUS 2 186 22/10/2016, 13:25 TAUS
  Rapor Alt toplamları almak m_demir 2 71 17/10/2016, 13:52 m_demir


Türkçe Çeviri: MCTR, Forum Yazılımı: MyBB, © 2002-2016 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya