Skip to main content

AccessTr.neT


Tablodaki enküçük tarihli kayda ait stok miktarını bulmak..

Tablodaki enküçük tarihli kayda ait stok miktarını bulmak..

Çözüldü #13
Emek ve katkı için teşekkürler sayın estepan ve sledgeab...
Cevapla
Çözüldü #14
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
+repCahiller bilginin kölesi, Alimler ise efendisi olur.
Cevapla
Çözüldü #15
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;
komşuda dülger mi var geliyor keser sesi,
ustalar konuşunca çıraklar keser sesi.
Cevapla
Çözüldü #16
hocam çok teşekkürler.
+repCahiller bilginin kölesi, Alimler ise efendisi olur.
Cevapla
Çözüldü #17
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
komşuda dülger mi var geliyor keser sesi,
ustalar konuşunca çıraklar keser sesi.
Cevapla
Çözüldü #18
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.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task