+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Sorgulamada Fazla Km Yazdırma (/konu-sorgulamada-fazla-km-yazdirma.html)
Sorgulamada Fazla Km Yazdırma - zaferdemir37 - 14/06/2011
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.
Cvp: Sorgulamada Fazla Km Yazdırma - Kur@l - 14/06/2011
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
Cvp: Sorgulamada Fazla Km Yazdırma - ozanakkaya - 14/06/2011
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;
Cvp: Sorgulamada Fazla Km Yazdırma - zaferdemir37 - 15/06/2011
Sevgili Üstadlarım Bilginize ve emeğinize sağlık çok teşekkür ederim. Çok Makbule geçti. Saygılarımla.
Cvp: Sorgulamada Fazla Km Yazdırma - Kur@l - 15/06/2011
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.