Raporu Pdf Olarak Kayıt Etmekten Vazgeçmek Nasıl - Baskı Önizleme +- AccessTr.neT (https://accesstr.net) +-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html) +--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html) +--- Konu Başlığı: Raporu Pdf Olarak Kayıt Etmekten Vazgeçmek Nasıl (/konu-raporu-pdf-olarak-kayit-etmekten-vazgecmek-nasil.html) |
Raporu Pdf Olarak Kayıt Etmekten Vazgeçmek Nasıl - tabloman - 02/11/2021 Kod:
Dim klasorsec As Integer Yukarıda bulunan kod butonun olay yordamından alınmadır.Butona basıldığında kayıt yerini seçmek için pencere açılmakta ve kayıt yerini seçip,TOPLULUK isminde PDF olarak olarak seçtiğimiz yere kayıt yapılmakta,buraya kadar hiç sorun yok. Sorun açılan pencereyi (kayıt yerini seçmeden ) X (üstten kapatmak için çarpı işaretine ) ya da İptal e bastığımızda resimdeki hatayı almaktayız. Kod üzerinde nasıl bir düzenleme yapılma ki X ya da iptale bastığımızda (pdf olarak kaydetmekten vazgeçildiğinde ) hata mesajı çıkmasın?? Örnek uygulama eklemem gerçekten zor,daha önceki (https://accesstr.net/konu-birlesik-giris-kutusu-ile-tabloya-coklu-secimleri-yazdirma.html?pid=183296#pid183296) konuda da belirttiğim gibi,orta ölçekli bir işletmede yıllardır kullanılan bir program ve burada paylaşmam imkansız.Sadece bu kısmı içeren bölümü hatasız ayıklayıp örnek amaçlı buraya atabilecek kadar da bilgim yo( Sadece kod üzerinden yapılabilecek birşeyler var mı?? RE: Raporu Pdf Olarak Kayıt Etmekten Vazgeçmek Nasıl - C*e*l*o*y*c*e - 02/11/2021 Private Sub kaydet_Click() On Error GoTo Err_kaydet_Click Dim klasorsec As Integer Dim yoluyaz As String klasorsec = Application.FileDialog(msoFileDialogFolderPicker).Show yoluyaz = Application.FileDialog(msoFileDialogFolderPicker).SelectedItems(1) If klasorsec <> 0 Then DoCmd.OpenReport "rpr_toplu", acViewPreview, , "[Kimlik]=" & Me.Metin10, acHidden DoCmd.OutputTo acOutputReport, "rpr_toplu", acFormatPDF, yoluyaz & "\" & "TOPLULUK.PDF" ', End If DoCmd.Close acReport, "rpr_toplu", acSaveNo Exit_kaydet_Click: Exit Sub Err_kaydet_Click: MsgBox "Hata Oluştu işlem yapılamadı", 48, " UYARI " Resume Exit_kaydet_Click End Sub bu şekilde hata kontrol arasına alarak deneyiniz.buradaki "Kaydet"i sizin buton adınız ile değiştirin... Re: Raporu Pdf Olarak Kayıt Etmekten Vazgeçmek Nasıl - tabloman - 03/11/2021 Çok teşekkür ederim sorun çözüldü. |