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
Cahiller bilginin kölesi, Alimler ise efendisi olur.