A.S.C Filtre, Grafik ve Raporlama Eklentisi

[VBA] Excel şablonda Ilgili Hücrelere Veri Atma
#1
forumdaki aramalarım sonucunda Excel şablonuna verileri atmaya çalışıyorum. Forumdaki konularda çalışan kodları kendime uyarlamaya çalıştım ama yinede hata aldım. Bi türlü çözemedim işi. Birkaç farklı yol denedim ama olmadı . Yol gösterirseniz sevinirim.





Visual Basic
  1. Private Sub Komut297_Click()
  2. 'excel deneme 3
  3.  Dim xl As Excel.Application
  4.    Dim xlwkbk As Excel.Workbook
  5.        
  6.    If Me.Dirty Then
  7.    DoCmd.RunCommand acCmdSaveRecord
  8.    End If
  9.        
  10.    Set xl = New Excel.Application
  11.    Set xlwkbk = xl.Workbooks.Open(CurrentProject.Path & "\indkdvlist.xls")
  12.           xl.Visible = True
  13.    With xl.Sheets("İndirilecek KDV Listesi").Select
  14.    xl.Range("B4") = DLookup("[Kimlik]", "listeAfrm", "[Kimlik]=" & Me.Id)
  15.    End With
  16.    
  17.    xl.Visible = True
  18.        
  19.    
  20.    Set xl = Nothing
  21.    Set xlwkbk = Nothing
  22.    
  23. End Sub




Eklenti Dosyaları
.zip   KDV.zip (Boyut: 255,71 KB / İndirilme: 6)



  Alıntı
Bu mesajı beğenenler:
#2
Dosyanızı indirdim ve çalıştırdım verileri liste adında bir excel dosyası oluşturarak dışa aktardı. Siz birde excel dosyası koymuşsunuz o tabloda ilgili yerlere atmasını mı istiyorsunuz. Bu konuyla ilgili Onur Hocam güzel bir bağlantı paylaşmış incelemenizi tavsiye ederim.

https://accessapplication.blogspot.com/2...-veri.html



  Alıntı
Bu mesajı beğenenler:
#3
Teşekkür ederim. Denedim güzel çalıştı ama bir iki sorun var. öncelikle üst formda ekrandaki kayıtı değilde alt formdaki listenenleri nasıl aldırabilirim? yani sadece tek bir kayıtı değilde altta listelenen tüm kayıtları.



Visual Basic
  1. Private Sub Komut297_Click()
  2. 'excel deneme 3
  3.  
  4. Dim objXL As Object
  5. Dim objWB As Object
  6. Dim objWS As Object
  7.  
  8. Set objXL = CreateObject("Excel.Application")
  9. Set objWB = objXL.Workbooks.Open(CurrentProject.Path & "\indkdvlist.xls")
  10. Set objWS = objWB.Worksheets("İndirilecek KDV Listesi")
  11.  
  12. With objWS
  13. .Cells(4, 2).Value = Me.giris_tarihi.Value
  14. .Cells(4, 3).Value = Me.giris_fatura_no.Value
  15.  
  16. End With
  17.  
  18. objXL.Visible = True
  19. End Sub





  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  [SORGU] S0rguda Farklı Kriterleri Ilgili Ay Içerisine Veriyi Işlemek GİTHUB100 21 336 10 saat önce
Son Mesaj: GİTHUB100
  Ilgili Satırda 'eksik Işleç' Hatası tarkanaykın 3 49 30-05-2022, 11:40
Son Mesaj: dsezgin
  Tablodaki Ilgili Alana Diğer Tablodaki Eşleşen Alanlar Baz Alınarak ıd Ekleme tarkanaykın 4 96 18-03-2022, 19:21
Son Mesaj: tarkanaykın
  Iki Ayrı Tabloda Geçen Ilgili Kayıtların Id Lerini üçüncü Bir Tabloda Eşleştirme tarkanaykın 6 149 08-03-2022, 15:38
Son Mesaj: dsezgin
  Buton Ile Sorgu Tasarımınaki Ilgili Alana "yinelenenleri Bul " Komutu tarkanaykın 5 130 06-03-2022, 10:33
Son Mesaj: tarkanaykın
  Excel Birleştir Ve Süz Bora34 5 458 26-08-2021, 19:01
Son Mesaj: Bora34
  Accesste Excel Birleştir Bora34 8 689 06-06-2021, 14:11
Son Mesaj: userx53
  [RAPOR] Liste Kutusundan Seçtiğim Kaydın Ilgili Raporunu Almak. charisma1907 4 304 24-05-2021, 16:04
Son Mesaj: charisma1907

Foruma Git:


Bu konuyu görüntüleyen kullanıcı(lar): 1 Ziyaretçi