Kritere Göre Pdf Raporu Alma

1 2 3 4 5
02/01/2025, 23:07

atoykan

İfade oluşturucusunda kullandığınız işlevlerde VBA'deki gibi , değil ; kullanılır.
05/01/2025, 11:20

mgunes

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
05/01/2025, 11:50

atoykan

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.
05/01/2025, 12:03

mgunes

Merhaba, kontrol ettim. Ayarda bir sorun yok. Zaten işyerindeki bilgisayarda da söz ettiğim sorun mevcut.




1 2 3 4 5