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