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

27/12/2008, 12:58

sertac76

Arkadaşlar texboxtan arama yaptıktan sonra liste kutusuna gelen verileri Excel atamak isyorum yardımlarınızı bekliyorum
28/12/2008, 02:31

ozanakkaya

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.
28/12/2008, 19:31

sertac76

İ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
29/12/2008, 00:43

ozanakkaya

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.