AccessTr.neT

Tam Versiyon: Raporu Pdf Olarak Kayıt Etmekten Vazgeçmek Nasıl
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Kod:
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


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...#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 yoImg-cray(

Sadece kod üzerinden yapılabilecek birşeyler var mı??

[Resim: do.php?img=11377]
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...
Çok teşekkür ederim sorun çözüldü.