accesden excele button koyarak veri aktarma

[serdarunlu55]

merhaba arkadaslar. bizim bir proje odevimiz var. excele bir button koyacagiz ve bu buttona bastigimizda accesse kadettigimiz verileri excele almis olacagiz. bunu kod yazarak yapacagimizi biliyorum ama excelile ilgili o kadar bilgim yok. yardimci olursaniz sevinirim

 

[pekanlar]

Access Baglantisi

Merhaba,

Asagidaki kod umarim isine yarar.

Sub ACCESS_BAGLANTISI()

Dim constring As String
Dim sqlstring As String

Set con = CreateObject("ADODB.Connection")

constring = "Provider=Microsoft.Jet.OLEDB.4.0.;"
constring = constring & "Data Source="
constring = constring & "c:\satislar.mdb"
con.Open constring

Set rs = CreateObject("ADODB.Recordset")
sqlstring = "Select * from contacts"
rs.Open sqlstring, con

Do While Not rs.EOF

MsgBox rs.fields(0)

rs.movenext
Loop

End Sub

 

[serdarunlu55]

Sayın pekanlar;

İlginiz ve Yardımlarınız için çok teşekkür ederim. Fikir edinmem açısından işe yaradılar fakat isteklerimi tam olarak karşılayamadım.

Ben isteklerimi daha net açıklamak amacıyla ek bir adet excel ve access dosyası ekledim. Eklerde de görülebileceği gibi accesste oluşturduğum farklı tablo, sorgu ve formlardaki bilgilerin bazılarını ( o bilgiler excelde yazılı ) excel çalışma kitabıma bir buton aracılığı ile aktarmak istiyorum. Sitedeki bir kaç örnekten yola çıkarak uyarlamaya çalıştım ama sorgu, tablo ve formlar işin içine girince karıştı. Yardımcı olursanız çok minnettar olacağım.

 

[pekanlar]

Çözüm - Uygulama

Merhaba,

Öncelikle access'e excel raporundaki datalari saglayacak bir sorgu ekledim.
Daha sonra access baglantisi yaptiktan sonra bu sorguyu açip datalari excele yazdirdim. Ilave olarak bir de gun kriteri ekledim.

Umarim Isine yarar

Iyi calismalar
M.P.

 

[serdarunlu55]

cok tesekkurler tam olarak istedigim buydu. gercekten isime yaradi. cok tesekkurler