Benim Date eklediğim yere poliçe noyu getirin sorun çözülmüş olur. O takdirde dosya varmı diye kontrol etminiz gerekmez if/else kısmını sadeleştirin.

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

yerine

Name SPath As DPath & Combobox_PlakaNo.Value & "_" & POLİÇENO & ".pdf"

Me.TextBox1 = DPath & Combobox_PlakaNo.Value & "_" & POLİÇENO & ".pdf"

kullanmanız yeterli olacaktır.