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

Derecelendirme: 0/5 - 0 oy
Kullanici Avatari

volkan1

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?



Kullanici Avatari

ayhan2122

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
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ü Açılan Kutuda Sadece Seçenekleri Seçebilsin, silme Değiştirme Yapamasın alimadam 3 70 14/12/2018, 13:07
Son Yorum: alimadam
Çözüldü Formumu Almak İstediğim Sonuca Göre Nasıl Tasarlamalıyım. Oğuz Türkyılmaz 4 168 25/11/2018, 21:21
Son Yorum: Oğuz Türkyılmaz
Çözüldü Toplamları Almak ORHAN ALKAN 5 102 23/11/2018, 23:52
Son Yorum: ORHAN ALKAN
Çözüldü Vba Kodu Yazarken Ctrl+aratuşu İle Açılan Açılan Kutu Menüsünde Hata. Oğuz Türkyılmaz 5 84 15/11/2018, 17:08
Son Yorum: Oğuz Türkyılmaz
Çözüldü Alt Forumda Açılan Kutu Girilen Harf Ve Kelimeye Göre Arama 001hacker 3 153 02/11/2018, 13:04
Son Yorum: 001hacker

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