Emek ve katkı için teşekkürler sayın estepan ve sledgeab...

sn sledgeap,

eklediğniz son örnekler düzgün çalışıyor. İlk giren miktar.- İlk Brim Fiyat- İlk Tutar alanları.
Ben Son giren Miktar- Son Brim fiyat ve Son tutar için sizin yaptığınız örnekleri kopyalayarak bu alanlara uygulamaya çalıştım. ama son kaydı bulan kodu bilmediğim için sorun var. Örneği inceleyip gerekli düzeltmeyi yaparsanız çok makbule geçer.

Private Sub Form_Current()
Dim ilkalis, ilksatis, Sonalis, Sonsatis As String
ilksatis = "SELECT [Fatura alt tablo].StokNO, [Fatura alt tablo].Çıkan,[Fatura alt tablo].STutar, [Fatura alt tablo].BrimFiatı, [Fatura alt tablo].Faturatarihi, [Fatura alt tablo].Kayıt FROM [Fatura alt tablo] WHERE [StokNO]=" & Me.StokNO.Value & " and [Fatura alt tablo].İşlemTürü='Satış Faturası' ORDER BY [Fatura alt tablo].Faturatarihi,[Fatura alt tablo].Kayıt;"
ilkalis = "SELECT [Fatura alt tablo].StokNO, [Fatura alt tablo].Giren,[Fatura alt tablo].ATutar, [Fatura alt tablo].BrimFiatı, [Fatura alt tablo].Faturatarihi, [Fatura alt tablo].Kayıt FROM [Fatura alt tablo] WHERE [StokNO]=" & Me.StokNO.Value & " and [Fatura alt tablo].İşlemTürü='Alış Faturası' ORDER BY [Fatura alt tablo].Faturatarihi,[Fatura alt tablo].Kayıt;"
Sonsatis = "SELECT [Fatura alt tablo].StokNO, [Fatura alt tablo].Çıkan,[Fatura alt tablo].STutar, [Fatura alt tablo].BrimFiatı, [Fatura alt tablo].Faturatarihi, [Fatura alt tablo].Kayıt FROM [Fatura alt tablo] WHERE [StokNO]=" & Me.StokNO.Value & " and [Fatura alt tablo].İşlemTürü='Satış Faturası' ORDER BY [Fatura alt tablo].Faturatarihi,[Fatura alt tablo].Kayıt;"
Sonalis = "SELECT [Fatura alt tablo].StokNO, [Fatura alt tablo].Giren,[Fatura alt tablo].ATutar, [Fatura alt tablo].BrimFiatı, [Fatura alt tablo].Faturatarihi, [Fatura alt tablo].Kayıt FROM [Fatura alt tablo] WHERE [StokNO]=" & Me.StokNO.Value & " and [Fatura alt tablo].İşlemTürü='Alış Faturası' ORDER BY [Fatura alt tablo].Faturatarihi,[Fatura alt tablo].Kayıt;"


Set ilksatiskayit = New ADODB.Recordset
Set ilkaliskayit = New ADODB.Recordset
Set Sonsatiskayit = New ADODB.Recordset
Set Sonaliskayit = New ADODB.Recordset


ilksatiskayit.Open ilksatis, CurrentProject.Connection, adOpenStatic, adLockReadOnly
ilkaliskayit.Open ilkalis, CurrentProject.Connection, adOpenStatic, adLockReadOnly
Sonsatiskayit.Open Sonsatis, CurrentProject.Connection, adOpenStatic, adLockReadOnly
Sonaliskayit.Open Sonalis, CurrentProject.Connection, adOpenStatic, adLockReadOnly

Metin136 = ilkaliskayit(1)
Metin138 = ilkaliskayit(2)
Metin140 = ilkaliskayit(3)

Metin152 = ilksatiskayit(1)
Metin154 = ilksatiskayit(2)
Metin156 = ilksatiskayit(3)

' Son satış kayıtları için...
Metin144 = Sonaliskayit(1)
Metin146 = Sonaliskayit(2)
Metin148 = Sonaliskayit(3)

Metin160 = Sonsatiskayit(1)
Metin162 = Sonsatiskayit(2)
Metin164 = Sonsatiskayit(3)


End Sub

Sayın estapan;
Biz ilk kayıt için sıralamayı A-Z ye yapmıştık, Son kayıtlar için sıralama Z-A ya doğru yapılması gerek aşağıda düzelttim...
Ayrıca order by kullanımını anlatan bir not bulup ekledim.
Kolay Gelsin.
Bu şekilde düzeltin.....

Sonsatis = "SELECT [Fatura alt tablo].StokNO, [Fatura alt tablo].Çıkan,[Fatura alt tablo].STutar, [Fatura alt tablo].BrimFiatı, [Fatura alt tablo].Faturatarihi, [Fatura alt tablo].Kayıt FROM [Fatura alt tablo] WHERE [StokNO]=" & Me.StokNO.Value & " and [Fatura alt tablo].İşlemTürü='Satış Faturası' ORDER BY [Fatura alt tablo].Faturatarihi,[Fatura alt tablo].Kayıt DESC;"

Sonalis = "SELECT [Fatura alt tablo].StokNO, [Fatura alt tablo].Giren,[Fatura alt tablo].ATutar, [Fatura alt tablo].BrimFiatı, [Fatura alt tablo].Faturatarihi, [Fatura alt tablo].Kayıt FROM [Fatura alt tablo] WHERE [StokNO]=" & Me.StokNO.Value & " and [Fatura alt tablo].İşlemTürü='Alış Faturası' ORDER BY [Fatura alt tablo].Faturatarihi,[Fatura alt tablo].Kayıt DESC;"

Order By Komutu
Order By, veritabanı uygulamalarında listeleyeceğimiz verilerin belirli bir düzen dahilinde görünmesini sağlayan komuttur. Örneğin alfabetik olarak listelemek. (A-Z, Z-A)

Order By kullanmadığımızda verilerimiz ilk eklenen veriden son veriye doğru listelenir. Ama biz belirli bir alanın dikkate alınarak A-Z'ye listelemek için "asc" etiketi kullanılır.

select * from TABLO where ALAN order by ALAN asc;


Aynı verilerimizi bu sefer tersten yani Z-A'ya listelemek için "desc" etiketini kullanırız.

select * from TABLO where ALAN order by ALAN desc;

hocam çok teşekkürler.

Sayın Estapan;
Form current kodunu aşağıdaki ile tamamen değiştir... Bütün değerler düzgün olarak gelecektir.
Kolay Gelsin....

Private Sub Form_Current()

On Error Resume Next

Dim a_ilkfiyat, a_Sonfiyat, a_ilktutar, a_Sontutar, s_ilkfiyat, s_Sonfiyat, s_ilktutar, s_Sontutar As String

Dim ilkalis, ilksatis, Sonalis, Sonsatis As String

ilksatis = "SELECT [Fatura alt tablo].StokNO, [Fatura alt tablo].Çıkan,[Fatura alt tablo].STutar, [Fatura alt tablo].BrimFiatı, [Fatura alt tablo].Faturatarihi, [Fatura alt tablo].Kayıt FROM [Fatura alt tablo] WHERE [StokNO]=" & Me.StokNO.Value & " and [Fatura alt tablo].İşlemTürü='Satış Faturası' ORDER BY [Fatura alt tablo].Faturatarihi,[Fatura alt tablo].Kayıt;"

Sonsatis = "SELECT [Fatura alt tablo].StokNO, [Fatura alt tablo].Çıkan,[Fatura alt tablo].STutar, [Fatura alt tablo].BrimFiatı, [Fatura alt tablo].Faturatarihi, [Fatura alt tablo].Kayıt FROM [Fatura alt tablo] WHERE [StokNO]=" & Me.StokNO.Value & " and [Fatura alt tablo].İşlemTürü='Satış Faturası' ORDER BY [Fatura alt tablo].Faturatarihi,[Fatura alt tablo].Kayıt desc;"



ilkalis = "SELECT [Fatura alt tablo].StokNO, [Fatura alt tablo].Giren,[Fatura alt tablo].ATutar, [Fatura alt tablo].BrimFiatı, [Fatura alt tablo].Faturatarihi, [Fatura alt tablo].Kayıt FROM [Fatura alt tablo] WHERE [StokNO]=" & Me.StokNO.Value & " and [Fatura alt tablo].İşlemTürü='Alış Faturası' ORDER BY [Fatura alt tablo].Faturatarihi,[Fatura alt tablo].Kayıt;"

Sonalis = "SELECT [Fatura alt tablo].StokNO, [Fatura alt tablo].Giren,[Fatura alt tablo].ATutar, [Fatura alt tablo].BrimFiatı, [Fatura alt tablo].Faturatarihi, [Fatura alt tablo].Kayıt FROM [Fatura alt tablo] WHERE [StokNO]=" & Me.StokNO.Value & " and [Fatura alt tablo].İşlemTürü='Alış Faturası' ORDER BY [Fatura alt tablo].Faturatarihi,[Fatura alt tablo].Kayıt desc;"



a_ilkfiyat = "SELECT [Fatura alt tablo].StokNO, [Fatura alt tablo].BrimFiatı,[Fatura alt tablo].ATutar,  [Fatura alt tablo].Faturatarihi, [Fatura alt tablo].Kayıt FROM [Fatura alt tablo] WHERE [StokNO]=" & Me.StokNO.Value & " and [Fatura alt tablo].İşlemTürü='Alış Faturası' ORDER BY [Fatura alt tablo].Faturatarihi,[Fatura alt tablo].Kayıt;"

a_Sonfiyat = "SELECT [Fatura alt tablo].StokNO, [Fatura alt tablo].BrimFiatı,[Fatura alt tablo].ATutar,  [Fatura alt tablo].Faturatarihi, [Fatura alt tablo].Kayıt FROM [Fatura alt tablo] WHERE [StokNO]=" & Me.StokNO.Value & " and [Fatura alt tablo].İşlemTürü='Alış Faturası' ORDER BY [Fatura alt tablo].Faturatarihi,[Fatura alt tablo].Kayıt desc;"

a_ilktutar = "SELECT [Fatura alt tablo].StokNO, [Fatura alt tablo].ATutar, [Fatura alt tablo].BrimFiatı, [Fatura alt tablo].Faturatarihi, [Fatura alt tablo].Kayıt FROM [Fatura alt tablo] WHERE [StokNO]=" & Me.StokNO.Value & " and [Fatura alt tablo].İşlemTürü='Alış Faturası' ORDER BY [Fatura alt tablo].Faturatarihi,[Fatura alt tablo].Kayıt;"

a_Sontutar = "SELECT [Fatura alt tablo].StokNO, [Fatura alt tablo].ATutar, [Fatura alt tablo].BrimFiatı, [Fatura alt tablo].Faturatarihi, [Fatura alt tablo].Kayıt FROM [Fatura alt tablo] WHERE [StokNO]=" & Me.StokNO.Value & " and [Fatura alt tablo].İşlemTürü='Alış Faturası' ORDER BY [Fatura alt tablo].Faturatarihi,[Fatura alt tablo].Kayıt desc;"



s_ilkfiyat = "SELECT [Fatura alt tablo].StokNO, [Fatura alt tablo].BrimFiatı,[Fatura alt tablo].ATutar,  [Fatura alt tablo].Faturatarihi, [Fatura alt tablo].Kayıt FROM [Fatura alt tablo] WHERE [StokNO]=" & Me.StokNO.Value & " and [Fatura alt tablo].İşlemTürü='Satış Faturası' ORDER BY [Fatura alt tablo].Faturatarihi,[Fatura alt tablo].Kayıt;"

s_Sonfiyat = "SELECT [Fatura alt tablo].StokNO, [Fatura alt tablo].BrimFiatı,[Fatura alt tablo].ATutar,  [Fatura alt tablo].Faturatarihi, [Fatura alt tablo].Kayıt FROM [Fatura alt tablo] WHERE [StokNO]=" & Me.StokNO.Value & " and [Fatura alt tablo].İşlemTürü='Satış Faturası' ORDER BY [Fatura alt tablo].Faturatarihi,[Fatura alt tablo].Kayıt desc;"

s_ilktutar = "SELECT [Fatura alt tablo].StokNO, [Fatura alt tablo].STutar, [Fatura alt tablo].BrimFiatı, [Fatura alt tablo].Faturatarihi, [Fatura alt tablo].Kayıt FROM [Fatura alt tablo] WHERE [StokNO]=" & Me.StokNO.Value & " and [Fatura alt tablo].İşlemTürü='Satış Faturası' ORDER BY [Fatura alt tablo].Faturatarihi,[Fatura alt tablo].Kayıt;"

s_Sontutar = "SELECT [Fatura alt tablo].StokNO, [Fatura alt tablo].STutar, [Fatura alt tablo].BrimFiatı, [Fatura alt tablo].Faturatarihi, [Fatura alt tablo].Kayıt FROM [Fatura alt tablo] WHERE [StokNO]=" & Me.StokNO.Value & " and [Fatura alt tablo].İşlemTürü='Satış Faturası' ORDER BY [Fatura alt tablo].Faturatarihi,[Fatura alt tablo].Kayıt desc;"







Set istedigim = New ADODB.Recordset

 '-----------------------------------

 ' Alış Rakamları Hesaplanıyor......

 '-----------------------------------

istedigim.Open a_ilkfiyat, CurrentProject.Connection, adOpenStatic, adLockReadOnly

Me.Metin138 = Nz(istedigim(1), 0)

istedigim.Close



istedigim.Open a_Sonfiyat, CurrentProject.Connection, adOpenStatic, adLockReadOnly

Me.Metin146 = Nz(istedigim(1), 0)

istedigim.Close



istedigim.Open a_ilktutar, CurrentProject.Connection, adOpenStatic, adLockReadOnly

Me.Metin140 = Nz(istedigim(1), 0)

istedigim.Close



istedigim.Open a_Sontutar, CurrentProject.Connection, adOpenStatic, adLockReadOnly

Me.Metin148 = Nz(istedigim(1), 0)

istedigim.Close

istedigim.Open ilksatis, CurrentProject.Connection, adOpenStatic, adLockReadOnly

Metin152 = Nz(istedigim(1), 0)

istedigim.Close

istedigim.Open ilkalis, CurrentProject.Connection, adOpenStatic, adLockReadOnly

Metin136 = Nz(istedigim(1), 0)

istedigim.Close

'-----------------------------------

'-----------------------------------

 ' Satış Rakamları Hesaplanıyor......

 '-----------------------------------

istedigim.Open s_ilkfiyat, CurrentProject.Connection, adOpenStatic, adLockReadOnly

Me.Metin154 = Nz(istedigim(1), 0)

istedigim.Close



istedigim.Open s_Sonfiyat, CurrentProject.Connection, adOpenStatic, adLockReadOnly

Me.Metin162 = Nz(istedigim(1), 0)

istedigim.Close



istedigim.Open s_ilktutar, CurrentProject.Connection, adOpenStatic, adLockReadOnly

Me.Metin156 = Nz(istedigim(1), 0)

istedigim.Close



istedigim.Open s_Sontutar, CurrentProject.Connection, adOpenStatic, adLockReadOnly

Me.Metin164 = Nz(istedigim(1), 0)

istedigim.Close

istedigim.Open Sonsatis, CurrentProject.Connection, adOpenStatic, adLockReadOnly

Me.Metin160 = Nz(istedigim(1), 0)

istedigim.Close

istedigim.Open Sonalis, CurrentProject.Connection, adOpenStatic, adLockReadOnly

Me.Metin144 = Nz(istedigim(1), 0)

istedigim.Close

'-----------------------------------







End Sub

Kodun En üst kısmınınıda aşağıdaki gibi düzelt...

Public istedigim As ADODB.Recordset

Sayın estepan ve değerli öğretenlerim;

Merhabalar.. Çok güzel bir çalışma..Size ve kKatkı veren dostlara içten teşekkürler. Her şey gönüllerinizce olsun..

Dosyanın en son halini yükleyebilir misiniz?

Sevgiler.