Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
30/01/2009 19:51
Konu Sahibi
kdurmaz
Yorumlar
9
Okunma
3650
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy

kdurmaz

Üye
Kullanici Avatari
Üye
28
7
06/01/2009
0
İstanbul
Ofis 2007
24/02/2017,16:41
Çözüldü 
Selam sevgili forum üyeleri,

Bir acces tablosundaki verilerimi seçerek Excele göndermek istiyorum. Bu konuyla ilgili forumda yalnızca bir örnek görebildim. Fakat o dosyada ispanyolca çıktı. Dolayısıyla arkasındaki vb kodlarını çözemedim. Dolayısıyla da kendi veritabanıma uygulayamadım. Sorunumu daha da açabilirim, belki faydası olur.
Benim birçok sütundan oluşan bir veritabanım var. Fakat ben excele veri gönderirken bunların o anda işime yarayacak olan sütunlarını göndermek istiyorum. Bunu da bir ara form vasıtasıyla yapmak istiyorum. Yani önce bir seçim formu açılacak ben oradan istediğim verileri işaretleyeceğim ve yalnızca seçmiş olduğum sütunları içeren bir Excel dosyası yaratacak. Bu konuda yardımcı olursanız memnun olurum.

Bu konuda forumunuzdaki bulduğum örnek de şudur. Belki bu örnek ne demek istediğimi daha kolay anlatır. Ama dediğim gibi ben bunu çözemedim.

https://www.accesstr.net/accessten-excel...t-866.html

Saygılar,
Kadir


Cevapla

alpeki99

Düşünmek en zor iştir...
Kullanici Avatari
Uzman
O....
6.090
29/10/2008
Bursa
Yazılım Geliştirici
Ofis 2010 32 Bit
31/08/2017,19:08
Çözüldü 
Sayın Seruz abimizin bu konudaki örneğini inceleyin lütfen.

https://www.accesstr.net/carpraz-sorguda...ml#pid6577


AccessTr.Net teknik konular içeren bir sitedir. Bu tip sitelerde en iyi şekilde yardım alabilmeniz için Site Kurallarını mutlaka okumanız ve buna göre hareket etmeniz lazım.
Cevapla

kdurmaz

Üye
Kullanici Avatari
Üye
28
7
06/01/2009
0
İstanbul
Ofis 2007
24/02/2017,16:41
Çözüldü 
Sevgili Alpeki99,

Vermiş olduğun linki inceledim. Sn. Seruz'un örneğini verdiği konu kendi kategorisinde çok güzel bir örnek fakat benim istediğim bu değil. Ben sorumu müsaadenle biraz daha açayım.

Benim Tablom şu şekilde Alan Adları içeriyor olsun:
[no] [tcno] [adı] [soyadı] [dogumtar] [dogumyeri] [adres]

daha fazla alan adı var ama uzatmamak çin kısa tutuyorum.(zaten amacım da bu uzun listeyi her seferinde excele göndermemek)
Ben şöyle bir ara form yaratayım

resim

resim burada

ve orada sadece istediğim alan adlarını seçeyim ve onları excele göndersin. Aslında eminim çok basittir ama bendeniz acemi olduğumdan yapamadım. Yardımlarınızı bekliyorum.

Saygılarımla,
Kadir


Cevapla

alpeki99

Düşünmek en zor iştir...
Kullanici Avatari
Uzman
O....
6.090
29/10/2008
Bursa
Yazılım Geliştirici
Ofis 2010 32 Bit
31/08/2017,19:08
Çözüldü 
O zaman istediğiniz şey bu adreste :

https://www.accesstr.net/secime-gore-yaz...ml#pid1042

Sevgili bilgisayarcı hocamızın eklediği kullanışlı bir Excel örneği. Tüm sütunları listeler ve istediklerinizi excele gönderir.


AccessTr.Net teknik konular içeren bir sitedir. Bu tip sitelerde en iyi şekilde yardım alabilmeniz için Site Kurallarını mutlaka okumanız ve buna göre hareket etmeniz lazım.
Cevapla

kdurmaz

Üye
Kullanici Avatari
Üye
28
7
06/01/2009
0
İstanbul
Ofis 2007
24/02/2017,16:41
Çözüldü 
Sevgili alpeki99,

İlgin için teşekkür ederim, aradığım tam olarak buydu, sağolasın.

Lakin bu uygulamayı aldım kendi veritabanıma uyarladım, fakat kodlarda hatayla karşılaştım. Önce kodu yazayım;
Alıntı: Private Sub ListeyiYukle(KaynakAdi As String)
Dim s As String
Dim i As Integer
Dim SutunSay As Integer
Dim lstItem As ListItem
If Len(KaynakAdi & "xx") <= 2 Then Exit Sub
TabloAdi = KaynakAdi
s = "Select * from " & KaynakAdi
If Not AdoAc1(s) Then
MsgBox "Tablo/Sorgu açılamadı", vbInformation
Exit Sub
End If

With ListView1
.ListItems.Clear
.ColumnHeaders.Clear
.View = lvwReport
.GridLines = True
.FullRowSelect = True
.Checkboxes = True
.ColumnHeaders.Add , , "Alan", .Width - 200
End With
SutunSayisi = Rs1.Fields.Count - 1
For i = 0 To SutunSayisi
Set lstItem = ListView1.ListItems.Add()
lstItem.Text = Nz(Rs1.Fields(i).Name, "-")
Next
AdoKapa 1
End Sub

Ben açılan kutudan ilgili tablo adını seçtiğimde "Dim lstItem As ListItem" satırında compile error: user-defined type not defined hatası veriyor.
Bu konuda sanırım bu kodların sahibi Bilgisayarcı bana yardımcı olacak.

Saygılarımla,
Kadir


Cevapla

ozanakkaya

sledgeab
Kullanici Avatari
Kurucu
O.... A....
9.813
29/01/2008
Denizli
Memur
Ofis 2010 32 Bit
Bugün,18:45
Çözüldü 
kodda hata yok, aldığınız hatanın olası sebebi

Referanslarında eksik var

Microsoft Windows Common Controls 6.0 (SP6)
system32 içerisindeki MSCOMCTL.OCX


Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
Çözüldü Access Den Excel Çıktısı Alma Sorunu estapan 13 921 30/05/2017, 14:12 atoz112
Çözüldü Excel Den Veri Alma 2003 estapan 9 510 30/05/2017, 11:59 estapan
Çözüldü Ms Access Excel Veri Alma Sorunu / Ms Access Import Data hakkih 12 956 26/05/2017, 17:17 ozanakkaya
Çözüldü Otomatik Sms Gönderme kyskys_2017 2 283 24/05/2017, 15:55 kyskys_2017
Çözüldü Form Da Döngü İle Mail Gönderme barcins 8 564 08/05/2017, 09:09 barcins

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
Forum use Krzysztof "Supryk" Supryczynski addons.