Skip to main content

#EvdeKal


EXCEL e Access Tablosundaki İstediğimiz alanları ve veriyi atma

EXCEL e Access Tablosundaki İstediğimiz alanları ve veriyi atma

Çözüldü #1
Accesde Bir tablom var Tablo Alanları şöyle

Adı Baklagil Meyve Hububat sebze
Ahmet 10 20 10 15
mehmet 5 15 12 13
veli 5 3 10 20


Yukardaki veriyi excele istediğim alana aşağıdaki gibi form üzerinden bir tuşla nasıl atarım

excel görünümü

Adı Baklagil Meyve sebze
Ahmet 10 20 15
mehmet 5 15 13

DİKKAT hububat alanı yok sadece istedikleim olacak
Cevapla
Çözüldü #2
Merhaba blacksir
Bir form açıp aşağıdaki kodları bir butonun olay yordamına atayın. Açıklamayı okuyarak istediğinizi yapacaksınız


Dim Klasor As String
Klasor = CurrentProject.Path & "\excel dosyasının adı.xls"
DoCmd.TransferSpreadsheet acImport, 8, "access'te oluşacak tablonun adi", Klasor, True, "a2:c33"

Excel dosyasının Access dosyasıyla aynı klasörde olduğu varsayılmıştı. Farklı yerdeyse

Klasor = CurrentProject.Path & "\excel dosyasının adı.xls"

satırını düzenleyin. Mesela
Klasör = "c:\belgeler.excel dosyasının adı.xls" olabilir

Exceldeki veri aralığınız neresiyse onu da

DoCmd.TransferSpreadsheet acImport, 8, "access'te oluşacak tablonun adi", Klasor, True, "a2:c33"

satırındaki "a2:c33" ifadeleri yerine yazın. Buradaki mantık şu:

a2= Veri almaya başlanacak Excel adresi
c33= Veri almanın yapılacağı son hücre (c33 dahil)

Not: Access'deki tablo bu kodlarla kendi oluşur. Siz ayrıca açmayın. Excel'deki veri yapıları aynen access'te oluşacaktır.


Kolay gelsin.
İnadına, ille de Accesstr.net...
Cevapla
#3
merhaba, bu işlemin tam tersini nasıl yaparız. Excel tabomdan belli verileri Access aktarmak istiyorum
Cevapla
#4
access sorular bölümüne yeni konu açarak sorarsanız daha hızlı cevap alabilirsiniz.
ayrıca bir defaya mahsus bir olay mı olacak yoksa ara sıra tekrarlanacak bir olay mı onu da belirtmenizde fayda var.
iyi çalışmalar.
Cevapla
#5
(01/04/2019 22:48)next Adlı Kullanıcıdan Alıntı: merhaba, bu işlemin tam tersini nasıl yaparız. Excel tabomdan belli verileri Access aktarmak istiyorum
aşağıdaki komut ile yaptım
Private Sub Komut426_Click()


CurrentDb.Execute "Delete From tablo_ismi"
CurrentDb.Execute "ALTER TABLE Tablo_İsmi ALTER Column ID COUNTER(1,1)"
CurrentDb.Execute "INSERT INTO Tablo_İsmi ( [sutun ısmi],[sutunismi2]) SELECT bağlıtabloİsmi.[1.sutunun karşılığı],bağlıtabloİsmi.[2.sutun ismi] FROM [bağlıtabloİsmi]"


End Sub
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da