Skip to main content

AccessTr.neT


Dosya Seçerken Hata Alıyorum

Oğuz Türkyılmaz
Oğuz Türkyılmaz
4
411

Dosya Seçerken Hata Alıyorum

Çözüldü #1
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

.zip PoliceTakip.zip (Dosya Boyutu: 388,43 KB | İndirme Sayısı: 1)
Access Çekirgesi 
[Resim: img-cray.gif]


Cevapla
#2
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]
Access Çekirgesi 
[Resim: img-cray.gif]


Son Düzenleme: 05/03/2023, 13:29, Düzenleyen: Oğuz Türkyılmaz.
Cevapla
#3
Merhaba
microsoft office 14.0 object library
referansını ekle
Sizde hangisi varsa onu eklersiniz
microsoft office xxxxx object library
Cevapla
#4
(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]

[Resim: do.php?img=15220]
Access Çekirgesi 
[Resim: img-cray.gif]


Cevapla
#5
(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.

[Resim: do.php?img=15219]

[Resim: do.php?img=15220]

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.
Access Çekirgesi 
[Resim: img-cray.gif]


Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da