Saat farkını otomatik hesaplanması
Tarih
16/12/2010 20:50
Konu Sahibi
volkan1
Yorumlar
15
Okunma
4991
Konuyu Oyla:
  • Derecelendirme: 2/5 - 1 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 2/5 - 1 oy
volkan1
Aktif Üye
Kullanici Avatari
Aktif Üye
V....
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ı: 144)
Cevapla

Hayri16
Aktif Üye
Kullanici Avatari
Aktif Üye
1.010
12/11/2009
294
Bursa
Ofis 2007
22/12/2015,15:41
Çözüldü 
Sponsor Reklam
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.
Cevapla

volkan1
Aktif Üye
Kullanici Avatari
Aktif Üye
V....
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.
Cevapla

Hayri16
Aktif Üye
Kullanici Avatari
Aktif Üye
1.010
12/11/2009
294
Bursa
Ofis 2007
22/12/2015,15:41
Çözüldü 
Sponsor Reklam
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.
Cevapla

volkan1
Aktif Üye
Kullanici Avatari
Aktif Üye
V....
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.
Cevapla

Hayri16
Aktif Üye
Kullanici Avatari
Aktif Üye
1.010
12/11/2009
294
Bursa
Ofis 2007
22/12/2015,15:41
Çözüldü 
Sponsor Reklam
İ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.
Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  Silinen Otomatik Sayının Yerini Doldurma serkandiker 7 163 02/05/2017, 10:42 serkandiker
  Otomatik Mail Gönderimi temre 16 475 21/04/2017, 01:06 ozanakkaya
  Kasa Hareketleri İçin Yardım Tablodan Tabloya Otomatik Ekleme uMits 35 480 12/04/2017, 19:21 uMits
  Otomatik Tablo Bağlama Ve Güncelleme husem 7 232 02/04/2017, 14:20 atoz112
  Sütun Genişliklerinin Otomatik Ayarlanması cazcaz678 3 122 06/03/2017, 22:40 cazcaz678


Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
DMCA.com Protection Status