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...
Raporu Pdf Olarak Kayıt Etmekten Vazgeçmek Nasıl
Bu Konudaki Yorumlar |
Raporu Pdf Olarak Kayıt Etmekten Vazgeçmek Nasıl - Yazar: tabloman - 02/11/2021, 16:27
RE: Raporu Pdf Olarak Kayıt Etmekten Vazgeçmek Nasıl - Yazar: C*e*l*o*y*c*e - 02/11/2021, 23:49
Re: Raporu Pdf Olarak Kayıt Etmekten Vazgeçmek Nasıl - Yazar: tabloman - 03/11/2021, 06:22
|
Konuyu Okuyanlar: 1 Ziyaretçi