#1
Arkadaşlar texboxtan arama yaptıktan sonra liste kutusuna gelen verileri Excel atamak isyorum yardımlarınızı bekliyorum
IVISATIS2.rar
(Dosya Boyutu: 76,97 KB | İndirme Sayısı: 16)
Liste Kutusunda Seçtiğim Kayıtları Excele Atma
#1
IVISATIS2.rar
(Dosya Boyutu: 76,97 KB | İndirme Sayısı: 16)
#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
Buton tıklandığında ilgili kaydın raporunu açması için raporun filtresine alttaki kodu yazdım.
Butonu tıkladığında listeden exceli seçeceksin.
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 SubKod:
([Kimlik]=[Forms]![IVISATIS]![Kimlik])
IVISATIS2.rar
(Dosya Boyutu: 89,44 KB | İndirme Sayısı: 93)
#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
#4
1. mesaja yazdığın
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.
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.
Konuyu Okuyanlar: 1 Ziyaretçi
