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

yücel üzülmez

Üye
103326
yü.... üz....
 41
 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...




berduş

berduş

Uzman
65596
ha....
 29
 1.382
 30/07/2014
218
 -
 
 Ofis 2019 64 Bit
Ö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....
 41
 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.



berduş

berduş

Uzman
65596
ha....
 29
 1.382
 30/07/2014
218
 -
 
 Ofis 2019 64 Bit
"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....
 41
 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....
 41
 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ü Forma Bağlı Form Kayıt Sorunu dioxi 7 226 16/08/2019, 06:55
Son Yorum: dioxi
Çözüldü Seçeneğe Bağlı Concatrelated Uygulaması Sorunu dioxi 8 290 06/08/2019, 18:11
Son Yorum: berduş
Çözüldü Formda Metin Kutularında Veri Görünmemesi U.ALTUN 12 209 03/08/2019, 16:59
Son Yorum: berduş
Çözüldü Metin Olarak Belirtilen Formülün Çalıştırılması? damacanasu 1 225 14/07/2019, 12:43
Son Yorum: berduş
Çözüldü Formda Metin Kutusu İçerik Kontrolü hbal09 4 191 10/07/2019, 16:20
Son Yorum: berduş

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