Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
16/12/2010 20:50
Konu Sahibi
volkan1
Yorumlar
15
Okunma
7365
Konuyu Oyla:
  • Derecelendirme: 2/5 - 1 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 2/5 - 1 oy
Kullanici Avatari

volkan1

Aktif Üye
Aktif Üye
VO....
135
27/11/2010
0
Bursa
Ofis 2003
11/02/2014,22:56
Çözüldü 
Hayri16 Hocamın yardımıyla çözmüş olduğum tablolardan saat toplamı konusundan sonra iki ayrı saat girişinden sonra aradaki zaman farkının otomatik olarak gün atmasıda dikkate alınarak elde edilmesinde yardıma ihtiyacım var Şimdiden teşekkürler.
Sadeleştirilmiş Çalışmam ektedir. Saygılarımla


.rar   ZAMAN_TOPLAM.rar(Dosya Boyutu: 46,79 KB / İndirme Sayısı: 165)



Kullanici Avatari

Hayri16

Aktif Üye
Aktif Üye
1.010
12/11/2009
294
Bursa
Ofis 2007
10/04/2018,10:30
Çözüldü 
Sayın Volkan1;
Şu anda kullandığım 2010 olduğu için buraya eklemek yerine size kodları yazdırayım. İşimiz dateDiff fonksiyonuyla. Bu fonksiyon hakkında forumda ayrıntılı bilgi bulabilirsin.
1- Formundaki sefer_suresı metin kutusunun özelliklerinde denetim kaynağı ve giriş maskesini sıfırla
2- varıs_saatı isimli metin kutusunun güncelleştirme sonrası olay yordamına aşağıdaki kodları yaz.
3- Programı çalıştırdığında varıs saatini yazdığında sefer_suresı 'ne saat ve dakika olarak sonucu verir. Günü hesaplar ama gün olarak vermez. Yani 1 gün 3 saat 20 dakikayı 27:30 olarak verir. İstersen güne de çevirebilirsin.

Visual Basic Code
1
2
3
4
5
6
7
8
Private Sub varıs_saat_AfterUpdate()
Dim ilktar As Date
Dim sontar As Date
sontar = varıs_tarıh & " " & varıs_saat
ilktar = kalkıs_tarıh & " " & kalkıs_saat

sefer_suresı = Int(DateDiff("n", ilktar, sontar) / 60) & ":" & DateDiff("n", ilktar, sontar) - (Int(DateDiff("n", ilktar, sontar) / 60) * 60)
End Sub

Olup olmadığı konusunda lütfen geri bildirim yapın. Saygılar. iyi çalışmalar.


Hayri16, 12-11-2009 tarihinden beri AccessTr.neT üyesidir.

Kullanici Avatari

volkan1

Aktif Üye
Aktif Üye
VO....
135
27/11/2010
0
Bursa
Ofis 2003
11/02/2014,22:56
Çözüldü 
Hocam Elinize sağlık gayet güzel çalışıyor. Ancak sizden bir yardım daha rica edicem. Örnek dosyamnda basitçe hazırladım, aylara göre sefer sürelerinin toplamlarını almamız mümkün olabilirmi.( Açılan menüden ay seçip o ay içindeki sefer sürelerinin toplamını almaktan bahsediyorum )

Teşekkürler.



Kullanici Avatari

Hayri16

Aktif Üye
Aktif Üye
1.010
12/11/2009
294
Bursa
Ofis 2007
10/04/2018,10:30
Çözüldü 
Volkan bunu da sen yap. Sana lazım olan Dsum fonksiyonu. Eminim yapacaksın. Ben gene buradayım. Takıldığında camı kır zile bas Img-grin


Hayri16, 12-11-2009 tarihinden beri AccessTr.neT üyesidir.

Kullanici Avatari

volkan1

Aktif Üye
Aktif Üye
VO....
135
27/11/2010
0
Bursa
Ofis 2003
11/02/2014,22:56
Çözüldü 
Tamam Hocam denicem. benim için konu tamamlanmıştır. Yardımlarınız için çok teşekkürler.



Kullanici Avatari

Hayri16

Aktif Üye
Aktif Üye
1.010
12/11/2009
294
Bursa
Ofis 2007
10/04/2018,10:30
Çözüldü 
İstenen nedir. Tablomuzda kayıtlı bir alandaki verileri istenilen aya göre toplamak.
Bu konuda bize uygun Dsum fonksiyonu var.
Bu fonksiyon nasıl kullanılır?
Ayrıntılı olarak burada mevcut. Biz kısaca bakalım.
Dsum(ifade, etkialanı, [ölçütler]) şeklinde yazılıyor.
ifademiz tablomuzdaki sefer_suresı adlı alan.
Etki alanı ise TBL_SEYIR_SURESI adlı tablomuz.
Şimdi baştan kriter vermeden bir yazıp görelim.
Formunda senin liste22 adını verdiğin ama aslında metin kutusu olması gereken alana yazacağız. Liste22 yi sil. Metin kutusu koy ve adını seftop yaz.
Sonra Açılan Kutu20 ' nin tıklanma yordamına
seftop = Dsum ("sefer_suresı", "[TBL_SEYIR_SURESI]") kodunu yazalım ve çalıştıralım bakalım ne çıkacak?


Hayri16, 12-11-2009 tarihinden beri AccessTr.neT üyesidir.


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
Çözüldü Buton dan Text Box'a İsim Yazıldığında Bir Sonraki Text Box'a Otomatik Gitmesi firtina 9 178 21/05/2018, 04:02 ozguryasin
Çözüldü Onay Kutusuna Otomatik Veri Çekme Allback 10 202 10/04/2018, 16:15 Allback
Çözüldü Formda Bir Ad Seçtiğimde Diğer Veri Otomatik Gelsin seckingbs 4 222 03/04/2018, 08:04 seckingbs
Çözüldü Otomatik Hesaplama mehmetb84 2 168 12/03/2018, 13:47 mehmetb84
Çözüldü İki Tarih Arası Saat Farkını Hesaplama kagan64 7 9.240 26/02/2018, 19:15 C*e*l*o*y*c*e

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