Skip to main content

AccessTr.neT


Liste Kutusunda Seçtiğim Kayıtları Excele Atma

Liste Kutusunda Seçtiğim Kayıtları Excele Atma

Çözüldü #1
Arkadaşlar texboxtan arama yaptıktan sonra liste kutusuna gelen verileri Excel atamak isyorum yardımlarınızı bekliyorum
.rar IVISATIS2.rar (Dosya Boyutu: 76,97 KB | İndirme Sayısı: 16)
Cevapla
Çözüldü #2
IVISATIS tablosundaki tüm alanları içeren IVISATIS isimli rapor ekledim.
IVISATIS formuna excele gönder isimli buton ekledim.
butonun tıklandığında olayındaki kod

Kod:
Private Sub Komut7_Click()
On Error GoTo Err_Komut7_Click

    Dim stDocName As String

    stDocName = "IVISATIS"
   DoCmd.OutputTo acReport, stDocName

Exit_Komut7_Click:
    Exit Sub

Err_Komut7_Click:
    MsgBox Err.Description
    Resume Exit_Komut7_Click
    
End Sub

Buton tıklandığında ilgili kaydın raporunu açması için raporun filtresine alttaki kodu yazdım.

Kod:
([Kimlik]=[Forms]![IVISATIS]![Kimlik])
Butonu tıkladığında listeden exceli seçeceksin.
.rar IVISATIS2.rar (Dosya Boyutu: 89,44 KB | İndirme Sayısı: 93)
Cevapla
Çözüldü #3
İstediğim bu değil liste kutusundaki verileri tekrar hatrılatıyorum verileri derken tümü değil ben süzme yaptıktan sonra kalan verileri excele aktarmak istiyorum
Cevapla
Çözüldü #4
1. mesaja yazdığın
Alıntı:Arkadaşlar texboxtan arama yaptıktan sonra liste kutusuna gelen verileri Excel atamak isyorum yardımlarınızı bekliyorum

eklediğin örnekte 15 tane form var, süzme hangi formda yapılıyor, neyi excele atmak istiyorsun ??


eklediğim örnekte gerekli kodlar var, zaten tek satırlık bir kod.

DoCmd.OutputTo acReport, stDocName

neyi süzmek istiyorsan süzme sonucunu rapora aktar, üstteki kod ile raporu açtır.
yapamaz isen hangi form olduğunu yaz.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da