Public Function Guncelle()
Dim Kayit As Recordset, SQLa As String
SQLa = "SELECT * FROM HAMMADDE ORDER BY HID, HKODU"
Set Kayit = CurrentDb.OpenRecordset(SQLa)
If Kayit.RecordCount = 0 Then Exit Function
Do Until Kayit.EOF
MsgBox Kayit!HID
Kayit.Edit
Dim GelHm, GidHm, Sonuc As Double
GelHm = Round(Nz(DSum("HMIKTARI", "HAMMADDEL", "ISLEM='GELİR' AND HID=" & Kayit!HID), 0), 2)
GidHm = Round(Nz(DSum("HMIKTARI", "HAMMADDEL", "ISLEM='GİDER' AND HID=" & Kayit!HID), 0), 2)
Debug.Print Kayit!HID, Kayit!HKODU, GelHm, GidHm
Sonuc = GelHm - GidHm
Kayit!HMIKTARI = Replace(Sonuc, ",", ".")
Kayit.Update
Kayit.MoveNext
Loop
Kayit.Close: Set Kayit = Nothing
Liste24.Requery
End Function