Oğuz Bey aynı plaka için 2. bir poliçe bilgisi kaydetmiş olabilir misiniz cevap vermediniz. Ben olabilir diyerek şunu öneriyorum

Dim DSec As FileDialog, 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 = "C:\"

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

If DSec.Show = -1 Then

SPath = DSec.SelectedItems(1)

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



    If Dir(DPath & Combobox_PlakaNo.Value & ".PDF") <> "" Then         '>>> plakaya ilişkin kayıtlı pdf var mı kontrol et varsa

    Name SPath As DPath & Combobox_PlakaNo.Value & "_" & Date & ".pdf" '>>> Dosyayı plaka + gün (34 ABC 45_01012022.pdf) olarak taşı

    Me.TextBox1 = DPath & Combobox_PlakaNo.Value & "_" & Date & ".pdf" '>>> textbox'a dosya adı ve yolunu işle

    Else                                                               '>>> plakaya ilişkin kayıtlı pdf yoksa

    Name SPath As DPath & Combobox_PlakaNo.Value & ".pdf"              '>>> Dosyayı plaka (34 ABC 45.pdf) olarak taşı

    Me.TextBox1 = DPath & Combobox_PlakaNo.Value & ".pdf"              '>>> textbox'a dosya adı ve yolunu işle

    End If

Else

MsgBox "İşlem İptal Edildi..."

Exit Sub

End If

End Sub