mkdir hakkında - Baskı Önizleme +- AccessTr.neT (https://accesstr.net) +-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html) +--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html) +--- Konu Başlığı: mkdir hakkında (/konu-mkdir-hakkinda.html) |
mkdir hakkında - senelkose - 18/12/2012 Değerli Üstadlar, Tüm siteyi taradım istediğim şeye göre uygun bir örnek bulamadım yada buldugum örnekleri isteğime uyarlayamadım. sizden istirhamım şudur , ben form üzerinden 4 adet raporu toplu olarak pdf cevırmek ( ayrı ayır ) ve o form üzerindeki verilere göre otomatık açılmış olan klasöre kaydetmek istiyorum. bunu yapmak için su kkodu kullanıyorum ama başaramadım lütfen incelermisiniz
burada sunu yapıyorum prgamın yuklu oldugu klasore 3 adet kalasor olusturuyorum bunda sorun yok mesela ( c:\ ihale\ declet hastanesi\ 123121 \ malzeme alımı\ ) bu diizinin içine teklif mektubunu teklif cetvelini mukayese cetvelini ve teminar başvuru formunu gondermek istiyorum ama henuz basarmıs degılım yardımlarını beklıyorum kod hata verıyor klasor aclıyor ama istedıgım raporları buraya gondermıyor Cvp: mkdir hakkınca - mcmaho - 18/12/2012 projenizi eklerseniz daha kolay yardımcı oluruz. Cvp: mkdir hakkınca - accessman - 19/12/2012 hangi satır da nasıl hata veriyor Cvp: mkdir hakkınca - ozanakkaya - 19/12/2012 Kullanman gereken kod aşağıda
Ayrıca, konu açarken yaptığınız yazım hatalarını biran önce düzeltiniz. Cvp: mkdir hakkında - ozanakkaya - 20/12/2012 Sanırım bu şekilde daha iyi.
Cvp: mkdir hakkında - senelkose - 20/12/2012 çok teşekkür ederim Ozan bey, yardımlarınız sonunda bir sonuca ulaştım ve işin sonunda şöyle bir kod yazdım tabiki 100 lerce dafa deneyerek, mesajlarınızı şimdi ancak kontrol edebildim. benim bu kadar ugraştığım sey aslında cok kolaymıs gordum ki . Bigi ve tecrube çok önemli. sizleden çok sey öğreniyorum. emeğinizi helal ediniz. benim ugası sonunca buldugum yol şöyle idi, once dklasorleri olusturuyroum Private Sub Komut237_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) Dim a As String Dim b As String a = Me.hastane_adi b = Me.ihalenin_adi If Len(Dir(CurrentProject.Path & "\" & a & "", vbDirectory)) = 0 Then MkDir CurrentProject.Path & "\" & a End If If Len(Dir(CurrentProject.Path & "\" & a & "\" & b & "", vbDirectory)) = 0 Then MkDir CurrentProject.Path & "\" & a & "\" & b End If End Sub sonra butona basılıncada dosyayı klasöre aydediyorum Private Sub Komut237_Click() Dim a As String Dim b As String a = Me.hastane_adi b = Me.ihalenin_adi yol = CurrentProject.Path & "\" & a & "\" & b & "\teklif_mektubu.pdf" DoCmd.OutputTo acOutputReport, "rp_ihale_teklif_mektup", "PDFFormat(*.pdf)", yol, False, "", 0 End Sub YALNIZ BURADA HALA ÇÖZEMEDİĞİM BİR SORUN VAR, DoCmd.OutputTo acOutputReport, "rp_ihale_teklif_mektup", "PDFFormat(*.pdf)", yol, False, "", 0 BU KOMUTA KRİTER EKLEMEK İSTERSEN NEREYE EKLEMEM GEREKİYOR EKLEMEK İSTEDİĞİM KRİDTER : [ihale_kodu] = [Forms]![ihale_hazirla]![ihale_kodu] RAPORDAKİ İHALE KODU İLE FORMDAKİ İHALE KODU AYNI BENİM RAPOR USTUNDE İŞLEM YAPTIGIM İHALENİN RAPORUNU GÖNDERMEK İSTİYORUM bunuda halledersem sorunlarım çözülmüş oluyor. şimdiden çok teşekkür ederim |