Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
17/12/2010 11:26
Konu Sahibi
volkan1
Yorumlar
2
Okunma
1338
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy
Kullanici Avatari

volkan1

Aktif Üye
Aktif Üye
VO....
 43
 135
 28
 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.
https://www.accesstr.net/konu-saat-farki...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)



Kullanici Avatari

ayhan2122

accesstr.net , gayet net ;)
Uzman
 41
 681
 26
 30/10/2008
451
 -
 
 Ofis 2003
 26/07/2018,20:20
Çö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.

Kullanici Avatari

volkan1

Aktif Üye
Aktif Üye
VO....
 43
 135
 28
 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.




Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Liste Kutusundaki Tutarların Toplamını Almak Allback 1 67 04/09/2018, 15:47
Son Yorum: Allback
Çözüldü Açılan Kutu Hakkında notrino 2 101 19/08/2018, 18:15
Son Yorum: notrino
Çözüldü Şartlı Rapor Almak m_demir 27 596 03/08/2018, 18:59
Son Yorum: m_demir
Çözüldü Açılan Kutuda Çoklu Sütun Arama Kodu ielmacilar 2 132 24/07/2018, 17:39
Son Yorum: ielmacilar
Çözüldü İki Tarih Arası Rapor Almak m_demir 6 280 22/07/2018, 21:00
Son Yorum: m_demir

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2018 MyBB Group.