Merhaba

Komut31'in tıklandığında olayına

Dim rs As DAO.Recordset

SQL = Me.RecordSource

Set rs = CurrentDb.OpenRecordset("SELECT * FROM T_EKDERS;")



    rs.MoveFirst

    Do Until rs.EOF = True



        rs.Edit

        

        rs!UCRET = rs!BRUCRET * rs!ETOP

       

        rs.Update

        rs.MoveNext

    Loop

Me.Requery

Kodu eklerseniz tablodaki kayıtlara göre hesaplama yaparak formu yeniler,

sizin kod sürekli formda çalışmaz. Sürekli formda seçili satıra göre işlem yapar.