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...