Metin152 ( İlk Satış Miktarı) ketin kutusunu ilişkisiz yap,

vb penceresini aç,

Option Explicit

kodunun hemen altına

Public rstkayit As ADODB.Recordset

kodunu ekle,

formun açıldığında olayına ise

Dim strSQL As String

strSQL = "SELECT [Fatura alt tablo].StokNO, [Fatura alt tablo].Çıkan, [Fatura alt tablo].Faturatarihi FROM [Fatura alt tablo] WHERE [StokNO]=[StokNO] ORDER BY [Fatura alt tablo].Faturatarihi;"

Set rstkayit = New ADODB.Recordset

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

Metin152 = rstkayit(1)

yaz