Dosya Seçerken Hata Alıyorum

Dosya Seçerken Hata Alıyorum - 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ığı: Dosya Seçerken Hata Alıyorum (/konu-dosya-secerken-hata-aliyorum.html)

Dosya Seçerken Hata Alıyorum - Oğuz Türkyılmaz - 05/03/2023

Merhaba
Excel'de çalışan bir uygulamayı bu sefer Access ile yeniden yazmaya çalışıyorum. Excel uygulamamda çalışan aşağıdaki kod, Access formunda aşağıdaki hatayı veriyor. Bu durumu nasıl düzeltebilirim. YArdımlarınız için teşekkür ederim.

[Resim: do.php?img=15217]

Kod:

Private Sub PdfYukle()



Dim DSec As FileDialog

Dim SPath, DPath As String, objFSO



Set DSec = Application.FileDialog(msoFileDialogFilePicker)

Set objFSO = CreateObject("Scripting.FileSystemObject")



    DSec.AllowMultiSelect = False

    DSec.Title = "Dosya Seçiniz"

    DSec.InitialFileName = "D:\"

    DSec.Filters.Add "PDF Dosyaları", "*.pdf"

    

        If DSec.Show = -1 Then

            SPath = DSec.SelectedItems(1)

            DPath = "D:\KT GRUP\POLİÇELER_PDF\"

        

            Name SPath As DPath & ComboBox_PlakaNo.Value & "_" & TextBox_PoliceNo.Text & ".pdf"

            Me.TextBox_DosyaYolu.Text = DPath & ComboBox_PlakaNo.Value & "_" & TextBox_PoliceNo.Text & ".pdf"

        

        End If



Exit Sub

End Sub

RE: Dosya Seçerken Hata Alıyorum - Oğuz Türkyılmaz - 05/03/2023

Dim DSec As FileDialog
Dim SPath, DPath As String, objFSO

Set DSec = Application.FileDialog(msoFileDialogFilePicker)
Set objFSO = CreateObject("Scripting.FileSystemObject")

Yabancı kaynaklarda da aynı kod var fakat bende başka bir sebeple çalışmıyor. Referanslarda tamam eksik yok.
Microsoft activx Data objects 6.1 lıbrary ve Microsoft Office 16.0 Access database engine ... ekli
[Resim: do.php?img=15218]

RE: Dosya Seçerken Hata Alıyorum - C*e*l*o*y*c*e - 05/03/2023

Merhaba
microsoft office 14.0 object library
referansını ekle
Sizde hangisi varsa onu eklersiniz
microsoft office xxxxx object library

RE: Dosya Seçerken Hata Alıyorum - Oğuz Türkyılmaz - 05/03/2023

(05/03/2023, 13:48)C*e*l*o*y*c*e yazdı: Merhaba
microsoft office 14.0 object library
referansını ekle
Sizde hangisi varsa onu eklersiniz
microsoft office xxxxx object library

Hocam referansı düzelttim bu şekilde bir hata veri. Textboxların adında hata yok plakaNo ve PoliçeNo bilgilerini birleştirerek PDF ye isim verdiriyorum orda da sorun yok. Bu hatanın sebebi konusunda bilgi verebilirmisiniz.

[Resim: do.php?img=15219]

RE: Dosya Seçerken Hata Alıyorum - Oğuz Türkyılmaz - 05/03/2023

(05/03/2023, 16:24)Oğuz Türkyılmaz yazdı:
(05/03/2023, 13:48)C*e*l*o*y*c*e yazdı: Merhaba
microsoft office 14.0 object library
referansını ekle
Sizde hangisi varsa onu eklersiniz
microsoft office xxxxx object library

Hocam referansı düzelttim bu şekilde bir hata veri. Textboxların adında hata yok plakaNo ve PoliçeNo bilgilerini birleştirerek PDF ye isim verdiriyorum orda da sorun yok. Bu hatanın sebebi konusunda bilgi verebilirmisiniz.

stackoverflow.com sitesindeki bir makalede sorunun çözümünü buldum. Koddaki .Text ifadelerini .Value olarak değiştirince hata ortadan kalktı. Yardımınız için teşekkür ederim. Konuyu kapatabilrsiniz.