Sayın Estapan;
Ozan Hocamın kodunda aşağıdaki düzeltmeleri yaptım...
Kodu aşağıdaki şekilde düzeltirseniz doğru sonucu alabilirsiniz.
Burada işlemin birçok yönü var.
İlk satış tarihinin bulunması,İlk Satış tarihinde birden çok satış yapılmış olması. gibi...
Aşağıdaki kod Null değer getirdi hep...

= Dlookup ("[Çıkan]";"[Fatura alt tablo]";"[StokNO]=" & [StokNO] & " And " & " [İşlemTürü]='Satış Faturası'" & " and " & " [faturatarihi]=#" & DMin("[faturatarihi]";"[Fatura alt tablo]";"1=1") & "# and " & " [kayıt]=" & DMin("[kayıt]";"[Fatura alt tablo]";"[kayıt]>" & 1)) )

Ozan hocamın koduna ilaveler yaptım.[/align]

Private Sub Form_Current()

On Error Resume Next

Dim strSQL As String

strSQL = "SELECT [Fatura alt tablo].StokNO, [Fatura alt tablo].Çıkan, [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;"

Set rstkayit = New ADODB.Recordset

rstkayit.Open strSQL, CurrentProject.Connection, adOpenStatic, adLockReadOnly

Metin152 = rstkayit(1)



End Sub

sn sledgeab,
eklediğiniz örnek çalışıyor.
peki bu örneği diğer alanlar için ilk alış birim fiyat, tutar , ilk satış brim fiyat ve tutara nasıl uygulayabiliriz...
-----------------------------------------------------------
sn kural@ hocam. cevabınız için teşekkürler. daha örneğinizi inceleyemedim. bakınca cevap yazacağım.. teşekkürler

Düzeltme için teşekkürler Ercan hocam,

diğer alanlara göre düzenlenmiş hali aşağıda. Veriler Doğru yansıyor mu bilmiyorum.

sn sledgeab

incelediğim kadarıyla doğru gözüküyor. çok teşekkür ederim

Ozan hocam elinize sağlık...

Rica ederim sn. estapan,

ama mümkünse "Fatura alt tablo" gibi tablo adlarından, "Çıkan", "İşlemTürü" gibi alan adlarından kaçınalım.

Konu taşınmıştır.