27/12/2008, 12:58
28/12/2008, 02:31
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 SubButon 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
İ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
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.