İfade oluşturucusunda kullandığınız işlevlerde VBA'deki gibi , değil ; kullanılır.
Kritere Göre Pdf Raporu Alma
Bir sorum daha olacak. Pdf raporları dışarı aktarırken bazı kayıtların atlandığını gördüm. Gerçi ben aşağıdaki gibi Left(a,b) ile isimlerin ilk birkaç karekterini alıp sorunu çözdüm ama anlamlı olması için isimlerin ilk 5 karekterini alınca bazı kayıtlar dışlanıyor. Bu kayıtlar için Accessin işlem yaptığını breakpoint koyarak takip edebiliyorum temp dosyasında. Strcommand noktasında pdfleri birleştirme anında sorun yaşanıyor anladığım. Bunun farklı yolu var mı? Bu arada türkçe karekterleri modüle eklediğim TurkceToIngilizce fonksiyonu ile ingilizce karektere çevirdim belki kaplanan alanla ilgilidir diye bu da işe yaramadı.
Kod:
If Dir(StrTempKlasor & File1N) <> "" And Dir(StrTempKlasor & File2N) <> "" Then
FileF = "PM1_" & Left(rsMuayene!CADI, 1) & "_" & Left(rsMuayene!CSOYAD, 3) & "_" & _
rsTCKN!TCKN & "_" & Format(rsMuayene!MUAYENETARIHI, "dd-mm-yyyy") & ".pdf"
FileF = TurkceToIngilizce(FileF)
StrCommand = "pdftk.exe " & StrTempKlasor & File1N & " " & StrTempKlasor & File2N & " " & _
"cat output " & StrKlasor & FileF & ""
Shell StrCommand
Sleep 1000 '1 saniye bekleme
Kill StrTempKlasor & "*.*"
End If
Son Düzenleme: 05/01/2025, 11:25, Düzenleyen: mgunes.
Kod her bir TCKN için muayene tarihi varsa ilgili raporu alıyor, ad ve soyad ile ilgili birşey yok dosya isimlendirmesi dışında. İlgili TCKN'ye göre anamnez muayene tarihi varsa 2 sayfa raporu alır birleştirir yoksa radyolojiye devam eder, Radyoloji muayene tarihi varsa iki sayfa raporu alır birleştirir şayet yoksa o TCKN'yi geçer diğerine devam eder. Left ile belli karakter alarak dosya isimlendirmesi yaparak çözüm buldum dediğinizde benim aklıma gelen tek sorun sistem ayarlarınıza göre dosya isimleri uzun olduğundan sorun yaşanıyor. Registry'ye girip HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\FileSystem'e girin sağ taraftaki anahtarlardan LongPathsEnabled anahtarını çift tıklayın ve 0 ise 1 yapın.
Merhaba, kontrol ettim. Ayarda bir sorun yok. Zaten işyerindeki bilgisayarda da söz ettiğim sorun mevcut.
![[Resim: 6vnlhu9.png?_gl=1*1tnrp28*_ga*NzQ0NTk1MD...4yOS4wLjA.]](https://i.hizliresim.com/6vnlhu9.png?_gl=1*1tnrp28*_ga*NzQ0NTk1MDc0LjE3MzU4NDY1ODg.*_ga_M9ZRXYS2YN*MTczNjA2Nzc2Ni4yLjEuMTczNjA2Nzc5Ny4yOS4wLjA.)
![[Resim: 9ip2obk.png?_gl=1*ngwgqm*_ga*NzQ0NTk1MDc...42MC4wLjA.]](https://i.hizliresim.com/9ip2obk.png?_gl=1*ngwgqm*_ga*NzQ0NTk1MDc0LjE3MzU4NDY1ODg.*_ga_M9ZRXYS2YN*MTczNjA2Nzc2Ni4yLjEuMTczNjA2NzgyOS42MC4wLjA.)
Konuyu Okuyanlar: 1 Ziyaretçi
