(26/05/2022, 22:13)atoykan yazdı: 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

Hocam Allah Ne muradınız varsa versin. Beni en çok düşündüren altından kalkacak bilgimin olmadığı bölümdü sayenizde Pdf olayının %90 ı bitti. Son bir bölüm kaldı onun içinde 2-3 gündür forumlarda arama yapıyorum ama uyarlayabileceğim uygun bir örnek bulamadım. Konu açayım mutlaka birilerinin de işine yarayacaktır.
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.

---

Hocam Allah Ne muradınız varsa versin. Beni en çok düşündüren altından kalkacak bilgimin olmadığı bölümdü sayenizde Pdf olayının %90 ı bitti. Son bir bölüm kaldı onun içinde 2-3 gündür forumlarda arama yapıyorum ama uyarlayabileceğim uygun bir örnek bulamadım. Konu açayım mutlaka birilerinin de işine yarayacaktır.