Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
17/12/2010 11:26
Konu Sahibi
volkan1
Yorumlar
2
Okunma
1280
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....
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.
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
681
30/10/2008
451
-
Ofis 2003
05/12/2017,16:58
Çö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....
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.




Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
Çözüldü Metin Kutularına Veri Almak m_demir 6 133 29/05/2018, 21:45 m_demir
Çözüldü Açılan Kutudan Alt Formla İlişkili Form Açma hey 10 368 27/05/2018, 00:06 ozanakkaya
Çözüldü Sürekli Form Çıktı Almak. m_demir 3 118 26/05/2018, 00:50 m_demir
Çözüldü Listeden Metin Kutusuna Veri Almak. m_demir 5 130 23/05/2018, 00:29 m_demir
Çözüldü açılan forumda düzenleme yapıldığında , listede güncelleme yapmıyor sidd 2 95 17/05/2018, 14:51 sidd

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