Skip to main content

AccessTr.neT


Liste Kutusunun Tümünün Raporunu Almak

Liste Kutusunun Tümünün Raporunu Almak

#19
Maalesef bilgisayar olmadığından yardımcı olamayacağım? Belirtilen konuda raporların nasıl adlandırabilecegi ve kaydedilecek yerin seçilmesi ile ilgili ayrıntılı bilgi verilmekte, bu konuda da liste kutusundaki elemanların tümünü döngüye ekleme var. Geriye sadece birleştirmek kalıyor. Kodlar dikkatlice incelendiğinde biraz uğraşı biraz da deneme yanılma yöntemi ile yapabilirsiniz
Cevapla
#20
ne yaptımsa olmadı,başka yardımcı olacak kimse yok mu?
Cevapla
#21
Dim stDocName As String 
Dim criteria As String
Dim MtnAdres As String
Set fDialog = Application.FileDialog(msoFileDialogFolderPicker)
'Optional: FileDialog properties
fDialog.title = "Dosyanın kaydedileceği yeri seçin"
fDialog.InitialFileName = "C:\"
If fDialog.Show = -1 Then MtnAdres = fDialog.SelectedItems(1)
For x = 0 To Metin11.ListCount - 1
IdLng = Metin11.Column(0, x) 'kişiyi belirten kimlik bilgisinin 1. Sütunda oldugu varsayilmistir  
stDocName = "rpr_dallar"    
criteria= "K_id=" & IdLng
DoCmd.OpenReport stDocName, acViewPreview, , criteria, acHidden
DoCmd.OutputTo acOutputReport, stDocName, acFormatPDF, MtnAdres & "\" &  Metin11.Column(1, x ) & ".pdf"
DoCmd.Close acReport, stDocName , acsaveno
Next x
kodu deneyemedim
Cevapla
#22
Çok tşk ederim tam isteğim gerçekleşti.Bu koda bir de doğrudan yazıcıya yollama kodu eklenebilir mi?Evetse tam olarak hangi kısma ekleme yapılmalıdır?
Cevapla
#23
süreç istediğim gibi sonuçlandı tşk ederim.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da