Visual Basic For Application
Microsfot
Access 15.0 Object Library
OLE Automation
Microsoft Office 15.0
Access database engine Object Lİbrary
Microsfot ActiveX Data Objects 2,8 Library
Microsfot ActiveX Data Objects Recordset 2,8 Library
VBA yı açtım tool menüsünden referenceyi seçtim. Pencere başlığı "Reference-dlookup". İçinde tikli olanları yukarıya yazdım.
Ama 1. Sayfada 41. Satırda yazdığınız kodda Me.Ödeme,Me.Yuvarlama gibi “Me.”li yerleri hata veriyor. “Metod yada data member not found uyarısı veriyor.
DoCmd.RunSQL "INSERT INTO tblHarçlıklar (SıraID,YılID, Ay, Ekgösterge, Katsayı, Yuvarlama, Ödenen, 1Ödeme, 2Ödeme, 3Ödeme, 4Ödeme, 1Borç, 2Borç, 3Borç, 4Borç) VALUES (" & rsSQL1.Fields("SıraID") & ", '" & YilDegeri & "','"Me.akAy & "','" & Me.akEk & "', '" & Me.akKat & "', '" & Me.Yuvarlama & "', '" & Me.Ödenen [/font]& "', '" & Me.Ödeme1 & "', '" & Me.Ödeme2 & "', '" & Me.Ödeme3 & "', '" & Me.Ödeme4 & "','" & Me.Borc1 & "','" & Me.Borc2 & "','" & Me.Borc3 & "','" & Me.Borc4 & "')"