AccessTr.neT

Bul · 05/03/2023, 11:02

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

Bul · 05/03/2023, 12:49

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]

Bul · 05/03/2023, 13:48

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

Bul · 05/03/2023, 16:24

(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]

Bul · 05/03/2023, 16:56

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

AccessTr.neT

Dosya Seçerken Hata Alıyorum

Dosya Seçerken Hata Alıyorum

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Giriş yap

Hesap oluştur

Konu Linkleri