Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
13/05/2011 12:23
Konu Sahibi
accessman
Yorumlar
3
Okunma
1950
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy

accessman

Aktif Üye
Kullanici Avatari
Aktif Üye
2.367
31/10/2008
425
Denizli
Ofis 2003
20/09/2016,00:20
Çözüldü 
hayırlı cumalar
eklediğim örnekte Access dosyasındaki adresler formundaki ekcele gönder butonuna tıklayınca
aktif kayıttaki
adresno
adı soyadı
bilgilerini aynı klasördeki Excel dosyasına göndermek istiyorum
ama bu gönderdiğim bilgiler daha sonra gerektiğinde tekrar yazdırılabilmesi için saklanabilmeli
amacım
butonu tıkladığımda
hangi kayıtta isem o kaydın adresno değeri ile
excel dosyasında yeni bir sayfa açılmalı
ve o kayıttakı bilgiler ilgili hücrelere yazılmalı
inşallah anlatabilmişimdir
örnekte 3. ve 4. kayıtlar excele gönderildiği takdirde olması gerekeni gösterdim
yani
adresler formunda herhangi bir kayıtta iken
excele gönder butonuna tıkladığımda
daha önceden kayıtlı olan aynı klasör altındaki excele gönder xls dosyasına ilgili kaydın adresno değeri ile yani sayfa açılacak
hatta olursa bu açılan sayfa ikinci bir mudahaleye gerek olmadan yazdrırılırsa süper olur
yardımlarınınız iiçin teşekkürler


Ek Dosyalar
.rar   excele gönder.rar (Dosya Boyutu: 11,72 KB / İndirme Sayısı: 17)
@benbendedeilem
Cevapla

DUAYEN

Aktif Üye
Kullanici Avatari
Aktif Üye
S.... A....
1.026
13/08/2010
279
Yozgat
Ofis 2007
16/03/2017,17:22
Çözüldü 
Access den pek anlamam ama yinede bu kod belki işini görür kendine göre uyarlama yaparsın artık .[/code]



[code]Sub TransferEt()

Dim excel_Dosya As Object, FormAdı As String, Yol As String
Set excel_Dosya = CreateObject("excel.Application")
Yol = ThisWorkbook.Path & "\Veriler.mdb"

Set Syf = Sheets("Sayfa1")
Strlr = Syf.Range("A1:T65536").End(xlUp).Row
FormAdı = "TransferVerileri"

With excel_Dosya
.OpenCurrentDatabase Yol
With .DOCMD
On Error Resume Next
.DeleteObject acTable, FormAdı
On Error GoTo 0

.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, FormAdı, ThisWorkbook.FullName, Strlr
.Opentable FormAdı, acViewNormal, acAdd
.Close
End With
.Quit
End With
Set excel_Dosya = Nothing

End Sub


Cevapla

accessman

Aktif Üye
Kullanici Avatari
Aktif Üye
2.367
31/10/2008
425
Denizli
Ofis 2003
20/09/2016,00:20
Çözüldü 
bu kodu benim örneğime uyarlayabilirmisiniz


@benbendedeilem
Cevapla

DUAYEN

Aktif Üye
Kullanici Avatari
Aktif Üye
S.... A....
1.026
13/08/2010
279
Yozgat
Ofis 2007
16/03/2017,17:22
Çözüldü 
Sn ; Accesman size söyledim Access den anlamıyorum.siz kendinize göre uyarlayın biraz çaba sarfedin lütfen.


Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
Çözüldü Açılan İlişikli Kutular Rapor Alanında Sadece Sayı Olarak Gözüküyor whelkshell 8 324 10/10/2017, 14:36 ozanakkaya
Çözüldü Alt Tablodaki Veriyi Hesaba Ekleme (Toplama) aliyuzen 6 167 26/09/2017, 16:03 aliyuzen
Çözüldü Excele Gönderme. metin02 7 297 21/08/2017, 23:05 direnist
Çözüldü Tabloya Yeni Veri Girişini Engelleme ALTANs 2 189 17/08/2017, 13:13 ALTANs
Çözüldü Raporun Son Sayfadaki Sayfa Toplamı Görüntülenmesin irfans 2 195 31/07/2017, 17:11 irfans

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