Hocam aşağıdaki şekilde koda ekleme yaptım. Sizin eklediğiniz uygulamada çalıştı. Ayni kodları başka bir dosyama eklediğim zaman eklediğim resimdeki hatayı veriyor.

Private Sub Komut192_Click()



Dim qdf As QueryDef

Dim rs As Recordset



Set qdf = CurrentDb.QueryDefs("srg_liste")



qdf![Forms!Gelir!gecici] = Forms![Gelir]![gecici]

 

Set rs = qdf.OpenRecordset()



Do Until rs.EOF

    

    rs.Edit

    rs("GelirMatrah") = rs("GelirMatrah") + (rs("GelirMatrah") * Me.Guncelle) / 100

    rs("GelirKdv") = rs("KdvOrani") * (rs("GelirMatrah")) / 100

   rs("GelirToplam") = rs("GelirMatrah") + (rs("GelirKdv"))

    rs.Update



    rs.MoveNext

Loop



Me.Liste.Requery

rs.Close

Set rs = Nothing



qdf.Close

Set qdf = Nothing



End Sub