[SORGU] 2 Koşullu En Küçük Değeri çekme

ccollezium · **Kayıt Tarihi:** 17.08.2010

değerli arkadaşlar merhaba
ekte ki dosyada bir sorunum var bütün gün aradım bulamadım
bir sorgu yazmak istiyorum
MTT tablosunda Birim ve Skor u alıp Hesap tablosunda ona karşılık gelen en düşük değeri getirmek
örn: Mtt tablosundan
Depo %93,800 Karşılığı hesap tablosunda 0,70

Dmax denedim olmadı Excel deki gibi küçük en yakın değeri getirmek sanırım ama bulamadım
yardımınızı rica ederim

dsezgin · 17-06-2026, 23:02

DMin("GetirAlan";"TabloVeyaSorguAdı";"Kosul!Adi_1='" & ürün & "' And Kosul!Adi_2=1") En küçük değeri getirir.

DMax("GetirAlan";"TabloVeyaSorguAdı";"Kosul!Adi_1='" & ürün & "' And Kosul!Adi_2=1") En büyük değeri getirir.

Örnek Dosyanızı da göremedik!

ccollezium · 18-06-2026, 13:58

sezgin hocam merhaba
dosyayı koydum ama Rar olmadığı için sistem silmiş galiba ilk mesaja dosyayı ekledim
bu dosyada sorguyu yazabilir miyiz
saygılarımla

ccollezium · 18-06-2026, 21:14

sezgin hocam dediğiniz kodu yazdım ama olmadı sürekli hata veriyor

dsezgin · 19-06-2026, 03:38

0.70 Hesap tablosunda, Skorun bir büyük değeri bul gibi mi?

SQL
UPDATE MTT SET MTT.Karsilik = Format(Getir([Birim],INT([Skor]*100)),"Fixed")

Güncelleme sorgusu ile sonuç alınabilir.

Visual Basic
Public Function Getir(Dep As String, Skr As Long)
Dim Kyt As Recordset, SQLa As String, Sonuc As Double
SQLa = "SELECT Int(Deger*100) As Dgr,Karsilik FROM Hesap WHERE Birim='" & Dep & "' ORDER BY Birim, Deger, Karsilik"
Set Kyt = CurrentDb.OpenRecordset(SQLa)
If Kyt.RecordCount = 0 Then Exit Function
Do Until Kyt.EOF
If Kyt!Dgr > Skr Then Sonuc = Kyt!Karsilik: Exit Do
Kyt.MoveNext
Loop
Kyt.Close: Set Kyt = Nothing
Getir = Sonuc
End Function

ccollezium · 19-06-2026, 09:45

yok hocam bu yazdığınız kodları denedim olmadı aslında isteğim Exceldeki düşeyara gibi
MTT tablosunda Depo nun Skoru 93,80 miş
gidip bunu Hesap tablosunda Depoyu ve bu skoru ara dediğimde 93,80 e en yakın 94,449 var onunda karşılığı
0,70 sonuç bu olmalı

Benzer Konular...
Konu:		Yazar	Cevaplar:	Gösterim:	Son Mesaj
	Siteden Accese Vb Veri çekme Hakkında	sertac75	2	583	26-05-2025, 11:08 Son Mesaj: sertac75
	Parametre Değeri Gir Uyarısı	hegu	3	525	23-05-2025, 14:55 Son Mesaj: hegu
	Altın Sitesinde Veri çekme Hakkında	sertac75	2	585	13-05-2025, 09:37 Son Mesaj: sertac75
	Kullanıcıya Göre Tablodan Veri çekme	semyross	1	428	20-12-2024, 00:30 Son Mesaj: halily
	[SORGU] Veri çekme	toros333	1	380	23-11-2024, 22:32 Son Mesaj: halily
	[SORGU] çarpraz Sorguda Sütun Değeri Olarak Birden çok Alan Seçebilir Miyiz?	abkbek	2	521	13-08-2024, 21:18 Son Mesaj: abkbek
	[FORM] Metin Kutusundaki Değeri Başka Bir Metin Kutusuna Aktarmak	TheREDROSE	2	533	02-08-2024, 11:56 Son Mesaj: TheREDROSE
	Veri çekme	toros333	1	418	25-11-2023, 01:26 Son Mesaj: dsezgin

Oturum Aç




Beni Hatırla Şifremi Unuttum?

Access SQL