Merhaba Herkese sağlıklı günler dilerim.
Poliçe kaydetme formunda PDF yükle butonuna basıldığında bilgisayardaki herhangi bir PDF dosyasını seçerek belli bir klasöre kaydediyor ve kaydedilen dosya yolu userform üstündeki textbox_DosyaYolu'na atanıyor. Yapmak istediğim işlem ise orjinal PDF dosyasının adının Userform üstündeki Combobox_PlakaNo.Text değeri ile değiştirerek Örnek olarak Resimde de gösterildiği gibi
hedef klasöre 07 ABC 3908.Pdf olarak kaydedilmesini sağlamak. Yardımlarınız için teşekkür ederim.

Kaydettiğiniz plakaya ilişkin ikinci bir pdf olabilir mi?

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

(26/05/2022, 21:24)atoykan yazdı: Kaydettiğiniz plakaya ilişkin ikinci bir pdf olabilir mi?

Hocam aslında 1 pdf demek 1 senelik başlangıç ve bitiş tarihleri olan bir sözleşme ve her sene yenileniyor. Eskisinin hükmü kalmıyor fakat kullanıcılar eski sözleşmeleri görmek isterler mi onu da bilmiyorum. Plaka numarası ve aynı formun üstündeki sözleşme numarasını birleştirerek benzersiz bir dosya ismi oluşturulursa aynı isimli ikinci bir pdf asla olmaz.

---

Hocam önerinizi cevabımı yazdıktan sonra gördüm. Bunu da kullanbilirim yada sizin koddan hareketle günün tarihi yerine sözleşme text boxındaki değeri koyarım. Deneyip bilgi vereceğim. Teşekkür ederim.

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.

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