vb penceresini aç,
Option Explicit
kodunun hemen altınaPublic 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