AccessTr.neT

Tam Versiyon: Sorgulamada Fazla Km Yazdırma
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
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.
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
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;
Sevgili Üstadlarım Bilginize ve emeğinize sağlık çok teşekkür ederim. Çok Makbule geçti. Saygılarımla.
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.