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