Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
16/12/2010 20:50
Konu Sahibi
volkan1
Yorumlar
15
Okunma
5814
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ı: 150)


Cevapla

Hayri16

Aktif Üye
Kullanici Avatari
Aktif Üye
1.010
12/11/2009
294
Bursa
Ofis 2007
08/09/2017,22:49
Çö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.
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
08/09/2017,22:49
Çö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.
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
08/09/2017,22:49
Çö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.
Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
Çözüldü Otomatik Hatırlatma SqL_MaN 13 8.061 Dün, 12:36 AgresorQ
Çözüldü Otomatik No Verme karaayhan 9 290 09/09/2017, 23:11 karaayhan
Çözüldü Alt Form Listesindeki İlk Seçeneğin Otomatik Seçilmesi katmer 2 164 05/08/2017, 21:47 katmer
Çözüldü Metin Dosyasından Otomatik Veri Çekme cazcaz678 8 505 01/08/2017, 16:10 pfilcik
Çözüldü Otomatik Yenileme serkan1985 6 291 27/07/2017, 00:49 serkan1985

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
Forum use Krzysztof "Supryk" Supryczynski addons.