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
