Excelden Accesse Veri Kaydı

[onurlu]

Selamün Aleyküm.
Excelde
A1=Adı
B1=Soyad
C1=Arcanan Nakit
D1=Ele Geçen Toplam Nakit
Başlıkları altındaki
A2,B2,C2,D2
Hücrelerine girdiğimiz verileri sayfaya eklediğim (Kayıt) butonunla.
Access'de oluşturduğumuz veri tabanına nasıl kaydederiz?
Veri tabanı yolu.
D:\Nakit.mdb
Teşekkürler.
Allah Razı Olsun.

[Bülent Öztürk]

Aleyküm selam Onur bey,
Allah cümlemizden razı olsun.

Aşağıdaki kodlarla belirttiğiniz işlemi yapmanız mümkündür:

Kod: [Seç]

Sub ExcelceMdbKaydet()
On Error GoTo hata
yol = "D:\Nakit.mdb"
Set conExcelce = CreateObject("ADODB.CONNECTION")
conExcelce.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & yol
ExcelceKaydet = "insert into Tablo1 " & _
    "(ADI, SOYADI, HARCANAN, GELEN) values " & _
        "('" & Range("A2").Value & "','" & Range("B2").Value & "'," & Range("C2").Value & "," & Range("D2").Value & ")"
conExcelce.Execute (ExcelceKaydet)
conExcelce.Close
Set conExcelce = Nothing
MsgBox "Kaydedildi.", vbInformation, "İşlem Tamam."
Exit Sub
hata:
MsgBox Err.Description, vbCritical, "Hata: " & Err.Number
On Error Resume Next
conExcelce.Close
Set conExcelce = Nothing
End Sub

Halihazırda Ufuk bey için, üzerinde çalıştığım bir konu idi, isabet ettirdiniz. 

[onurlu]

Selamün Aleyküm.
Allah Razı olsun Bülent Bey.
Sayfa2 deki (A1=ADI) bölümüm var.
A2 girmiş olduğum adı.
Veri tabanında nekadar bu isimli veri varsa hepsinin bilgilerini,
Sayfa3 te bulunan.
A1=ADI,B1=SOYADI,C1=HARCANAN,D1=GELEN başlıkları altındaki hücrelere getirsin istiyorum.
Yardımcı olabilirmisiniz.
Teşekkürler.

[Bülent Öztürk]

Örnek dosya ekler misiniz?