ikikan
Altın Üye
- Katılım
- 3 Mart 2009
- Mesajlar
- 519
- Excel Vers. ve Dili
- excel 2003 tr
- Altın Üyelik Bitiş Tarihi
- 12.02.2026
Arkadaşlar Kırmızı ile işaretli olan kodun daha kısa bir yolu yokmudur,
bu şekilde 300 veri girmem gerekince sorun olacak !
bu şekilde 300 veri girmem gerekince sorun olacak !
Sub AccesseKaydet2()
Call baglanti1
Dim i As Integer
Set rs = CreateObject("adodb.recordset")
With Sheets("VVV")
rs.Open "select * from sil", con, 1, 3
rs.addnew
rs.fields(1).Value = Range("A1").Value
rs.fields(2).Value = Range("A2").Value
rs.fields(3).Value = Range("A3").Value
rs.fields(4).Value = Range("A4").Value
rs.fields(5).Value = Range("A5").Value
rs.Update
End With
MsgBox "Kayıtlar veritabanına aktarıldı", vbInformation
con.Close
End Sub