On Error Resume Next
kodunun altına
Dim rsa As New ADODB.Recordset
rsa.Open "FaturaDetay", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
rsa.AddNew
rsa!FaturaID = DMax("FaturaID", "FaturaBilgisi")
rsa!SatisTarihi = Me.SatisTarihi
rsa!SatisUrunAdi = Me.SatisUrunAdi
rsa!SatisAdedi = Me.SatisAdedi
rsa!StokAdedi = Me.StokAdedi
rsa!SatisFiyati = Me.SatisFiyati
rsa!ToplamFiyati = Me.ToplamFiyati
rsa.Update
rsa.Close
kodu ekle.