Skip to main content

AccessTr.neT


Sorgulamada Fazla Km Yazdırma

zaferdemir37
zaferdemir37
4
1871

Sorgulamada Fazla Km Yazdırma

Çözüldü #1
Arkadaşlar merhaba, araçlarımızın yaptıkları km ve aldıkları yakıtları takip edebileceğimiz ufak bir çalışma yaptım fakat sorguda takıldım. bir sorgu oluşturmak istiyorum ve bu sorgu başlangıç km - Bitiş km çıkartıp aradaki km yazacak diğer bir sütuna da 50 km nin üzerinde ise fazla km değil ise normal km yazmasını istiyorum fakat yapamadım yardımlarınız için şimdiden teşekkürler.
.rar Araç Takip.rar (Dosya Boyutu: 40,1 KB | İndirme Sayısı: 9)
Cevapla
Çözüldü #2
Sayın zaferdemir37;
Aşağıdaki kodu bitişkm güncelleme sonrası koduna yazınız. Olay tamamdır.
Kolay Gelsin.

Private Sub Bitişkm_AfterUpdate()
If Me.Bitişkm < Me.Başlangıçkm Then
Me.Bitişkm.SetFocus
MsgBox "Bitiş Km Başlangıçtan Küçük Olamaz."
Exit Sub
End If
If Me.Bitişkm - Me.Başlangıçkm > 50 Then
Me.Yapilankm = (Me.Bitişkm - Me.Başlangıçkm) - 50
Else
Me.Yapilankm = (Me.Bitişkm - Me.Başlangıçkm)
End If
End Sub
Cevapla
Çözüldü #3
20:43'de konu açıp 20:43'de çıkış yapmayınız

Aşağıdaki kodu sorgunun Sql kısmına yaz. Sorguyu kaydet.

SELECT Hareketler.[Sıra No], Hareketler.PlakaNo, Hareketler.Personel, Hareketler.Tarih, Hareketler.AlınanYakit, Hareketler.Başlangıçkm, Hareketler.Bitişkm, [Bitişkm]-[Başlangıçkm] AS Yapilankm, IIf([Yapilankm]>50,"Fazla Km","Normal Km") AS durum
FROM Hareketler;
Cevapla
Çözüldü #4
Sevgili Üstadlarım Bilginize ve emeğinize sağlık çok teşekkür ederim. Çok Makbule geçti. Saygılarımla.
Cevapla
Çözüldü #5
Dönüş yaptığınız için biz teşekkür ederiz. Sorununuz 6 dakikada çözüldü ama siz tekrar sayfayı incelemediğiniz için şimdi görebildiniz.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task