Vba sayfasını aç,
Resimde, üst menüdeki "Tools"u tıklayıp açılan menüde "References"i tıkla. Referans penceresi açılacaktır. Daha sonra alttaki resimdeki referansı ekle.
Alt Tablolarda İşlemler
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 & "')"
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 & "')"
Son Düzenleme: 17/10/2020, 18:00, Düzenleyen: fenerli6774.
Kod içerisinde [/font] var mı?
Formda Me.Ödeme1, Me.Ödeme2 isminde denetim var mı?
Formda Me.Ödeme1, Me.Ödeme2 isminde denetim var mı?
Hayır onu cevap yazarken hata yerindeki yazıyı renkendirmek için yapmıştım. O da yazıyı renklendireceğine [/font] şekinde ekleme yapmış. Bu ekleme sadece mesajımdaki yazıda.
(17/10/2020, 13:09)berduş yazdı: yeni bir VT oluşturup import ile eskisinden yenisine aktarmayı deneyebilirsiniz, tabi referasları da yeniden eklemeniz gerekiyor ama bu durumda da kod sayfanızda formda olmayan alanlara atıf olduğu için hata verecektir: mesela insert sorgunuzda Me.Ödeme1, Ödeme2, Ödeme3.... alanlarına atıf var ama formunuzda o adda metin kutuları yokbelirttiğim gibi o nesneler yok o nedenle ya sorgunuz değişmeli yada ilgili nesneler eklenmeli.
Konuyu Okuyanlar: 3 Ziyaretçi