Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
02/05/2019 00:34
Konu Sahibi
yücel üzülmez
Yorumlar
9
Okunma
419
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
yücel üzülmez

yücel üzülmez

Üye
103326
yü.... üz....
 40
 3
 15
 24/03/2019
0
 Zonguldak
 
 Ofis 2019 32 Bit
 26/05/2019,10:11
Çözüldü 
Arkadaşlar bir teknede toplam sefer süresini, makine çalışma saatlerini, toplam yakıt miktarını ve yardımcı makine çalışma saatlerini takip edebileceğim bir çalışma yapmaya çalışıyorum aynı zamanda bunu yapmaya çalışırken Access öğrenmeyi amaçlıyorum. Haliliyas hocamın sayesinde belli bir seviyeye getirmeyi başardım. Visual Basic olayına tamamen yabancıyım. Şuan sadece nereden nereye ne ekleyebilirim onu keşfetme seviyesindeyim. 
Problememi gelince sefer ile ilgili bilgileri girebileceğim bir form oluşturdum ama bir sorgu yaptığımda metin şeklinde toplanmış saat bilgilerinin toplamını alamıyorum, ihtiyacım olan sorgu ile toplam sefer süresini güncel olarak görmek, bunun yanında yakılan yakıtı da takip etmek, aylık kaç saat sefer yapmışım, ne kadar yakıt yakmışım, yılllık kaç saat sefer yapmışım ne kadar yakıt yakmışım ve ilerleyen dönem de saatte ne kadar ortalama yakıt yakıyorum gibi bilgileri takip etmek istiyorum. Becerebilirsem örnek dosyada ekleyeceğim...




halily

halily

Uzman
65596
ha....
 26
 1.170
 30/07/2014
209
 -
 
 Ofis 2019 64 Bit
 Bugün,00:29
Önce çalışmanıza 1 modül ekleyin
sonra Aşağıdaki Fonksiyonları Module Ekleyin

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Function ToplamYar(xMetin As String) As Double
Dim Metin() As String
Dim xZaman() As String
Metin = Split(xMetin, ",")
For x = LBound(Metin) To UBound(Metin)
txtmetin = Metin(x)
'__________kontrol
xVarmi = InStr(1, txtmetin, ":", 1)
sayisalmi = IsNumeric(Replace(txtmetin, ":", ""))
'__________________________

If xVarmi < 1 Or sayisalmi = False Then GoTo 10
'_________________________________________
xZaman = Split(txtmetin, ":")
If IsNumeric(xZaman(0)) Then ZmnSaatdk = 60 * CLng(xZaman(0)) Else ZmnSaatdk = 0
If IsNumeric(xZaman(1)) Then ZmnDakika = CLng(xZaman(1)) Else ZmnDakika = 0
SaatDkCevir = Nz(ZmnSaatdk, 0) + Nz(ZmnDakika, 0)
ToplamYar = ToplamYar + SaatDkCevir
10
Next

End Function

aşağıdaki kod formda değişecek"top_yard_mak_cal_sa_Click" olayını aşağıdaki gibi yapın[/color]

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
Private Sub top_yard_mak_cal_sa_Click()
Dim xMetin As String
xMetin = Nz(Me.yard1_cal_sa, "") & "," & Nz(Me.yard2_cal_sa, "") & "," & Nz(Me.yard3_cal_sa, "")
xMetin = CStr(xMetin)
'Metin = Split(xMetin, ",")

ZmnTop = ToplamYar(xMetin)
ZmnSaat = ZmnTop \ 60 '":" & ToplamYar(metin)mod 60
Zmndk = ZmnTop Mod 60
Me.top_yard_mak_cal_sa = ZmnSaat & ":" & Zmndk

End Sub

__________________________________________________________
Son olarak da bir sorgu oluşturup sorgunun Sql koduna aşağıdakileri yazın

SQL Code
SELECT sey_bil.s_nu, ToplamYar(CStr(Nz([sey_bil]![yard1_cal_sa],"") & "," & Nz([sey_bil]![yard2_cal_sa],"") & "," & Nz([sey_bil]![yard3_cal_sa],""))) AS Toplam, [Toplam]\60 & ":" & [Toplam] Mod 60 AS [Saat Dk]
FROM sey_bil;

önceki çalışmanızı kullanıp "top_yard_mak_cal_sa" hesabını sorgu üzerinden yaptırmaya çalıştım ama hata kontrolü yaptırmadım dolayısıyla saat alanlar "15:21" gibi  bir formatta olmalı dilerim çalışır)



...........
yücel üzülmez

yücel üzülmez

Üye
103326
yü.... üz....
 40
 3
 15
 24/03/2019
0
 Zonguldak
 
 Ofis 2019 32 Bit
 26/05/2019,10:11
Hocam sağol göstermiş olduğun yol ile bir seviye daha ilerledim ama hala bazı aksaklıklar var sanırım, verdiğiniz kodu kullanarak top_sefer ve ana_mak_cal_sa bilgilerini de metin kutusu içinden alarak sorgu içinde toplanması gerekiyor. Uygulamamın örneğini eklemek istiyorum ama dosya ekleme olayını beceremedim.



halily

halily

Uzman
65596
ha....
 26
 1.170
 30/07/2014
209
 -
 
 Ofis 2019 64 Bit
 Bugün,00:29
"yeni cevap" butonuna bastığınızda yeni bir sayfaya yönlendiriliyorsunuz o sayfada dosya ekleme var
siz de çıkmıyor mu?
[Resim: do.php?imgf=0d2f24a0506f1.jpg]




...........
yücel üzülmez

yücel üzülmez

Üye
103326
yü.... üz....
 40
 3
 15
 24/03/2019
0
 Zonguldak
 
 Ofis 2019 32 Bit
 26/05/2019,10:11
Teşekkürler hocam ben hep hızlı cevap alanını kullanıyormuşum  Ozur Fur



yücel üzülmez

yücel üzülmez

Üye
103326
yü.... üz....
 40
 3
 15
 24/03/2019
0
 Zonguldak
 
 Ofis 2019 32 Bit
 26/05/2019,10:11
Hocam son halini ekledim, biraz daha ilerledim sayenizde.



...........

Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Metin Ve Rakamlardan Seri Numarası Üretme Yunus Bozkurt 11 301 16/06/2019, 17:06
Son Yorum: halily
Çözüldü Her Yeni Kayıta Bastığımızda Sayı Verme Sorunu. prestij06 7 210 15/06/2019, 21:24
Son Yorum: halily
Çözüldü Raporda Boş Alan Sorunu Yunus Bozkurt 7 239 03/06/2019, 04:22
Son Yorum: halily
Çözüldü Mükerrer Kayıt Sorunu Fatih34 5 348 13/05/2019, 16:08
Son Yorum: halily
Çözüldü Yazdırma Sorunu m_demir 8 200 10/05/2019, 16:31
Son Yorum: m_demir

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