Skip to main content

AccessTr.neT

Kayıt Ol

 | Facebook ile Bağlan  | Twitter İle Bağlan | Google+ İle Bağlan

mkdir hakkında

senelkose
senelkose
Access Cevaplanmış Soruları
5
2754

mkdir hakkında

Çözüldü #1
senelkose
Üye
senelkose
Bul
Üye
Adı Soyadı:
Konum: Sivas
Ofis Versiyonu: Ofis 2007
Son Oturumu: 29/04/2019,10:59
Yorumları: 17
Konuları: 5
Kayıt Tarihi: 24/10/2010
Teşekkür Puanı: 0
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

 Private Sub Komut237_Click()

 Dim klasor As String
 Dim yol As String
 Dim a, x, y As String
 x = Me.hastane_adi
 y = Me.ihale_kodu
 a = Me.ihalenin_adi

 klasor = MkDir CurrentProject.Path & " \ " & x & " \ " & y & " \ " & a
 
yol = klasor & "\teklif_mektubu.pdf"

 DoCmd.OutputTo acOutputReport, "rp_ihale_teklif_mektup", "PDFFormat(*.pdf)", yol, False, "", 0

 End Sub

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
Cevapla
Çözüldü #2
mcmaho
Aktif Üye
mcmaho
www Bul
Aktif Üye
Adı Soyadı: Mu.... Öz....
Konum: Muğla
Ofis Versiyonu: Ofis 2003
Son Oturumu: 17/09/2025,17:28
Yorumları: 220
Konuları: 31
Kayıt Tarihi: 09/12/2011
Teşekkür Puanı: 34
projenizi eklerseniz daha kolay yardımcı oluruz.
<<< 10-HAGİ-10 >>>
Cevapla
Çözüldü #3
accessman
Aktif Üye
accessman
Bul
Aktif Üye
Adı Soyadı:
Konum: Denizli
Ofis Versiyonu: Ofis 2003
Son Oturumu: 12/01/2021,20:07
Yorumları: 4.395
Konuları: 900
Kayıt Tarihi: 31/10/2008
Teşekkür Puanı: 434
hangi satır da nasıl hata veriyor
@benbendedeilem
Cevapla
Çözüldü #4
ozanakkaya
sledgeab
ozanakkaya
Bul
Kurucu
Adı Soyadı: Oz.... Ak....
Konum: Denizli
Ofis Versiyonu: Ofis 2016 64 Bit
Son Oturumu: Dün,19:36
Yorumları: 13.543
Konuları: 499
Kayıt Tarihi: 29/01/2008
Teşekkür Puanı: 3.148
Mesleğiniz: Memur
Kullanman gereken kod aşağıda

Dim DosyaYeri, DosyaAdi, a, x, y As String
        
        x = "declet hastanesi" 'Me.hastane_adi
        y = "123121" 'Me.ihale_kodu
        a = "malzeme alımı" 'Me.ihalenin_adi
        
    MkDir CurrentProject.Path & "\" & x
    MkDir CurrentProject.Path & "\" & x & "\" & y
    MkDir CurrentProject.Path & "\" & x & "\" & y & "\" & a
      
    DosyaYeri = CurrentProject.Path & "/" & x & "/" & y & "/" & a
    DosyaAdi = DosyaYeri & "/teklif_mektubu.pdf"

DoCmd.OutputTo acOutputReport, "rpr_teklifmektubu", "PDFFormat(*.pdf)", DosyaAdi, False, "", , acExportQualityPrint

Ayrıca, konu açarken yaptığınız yazım hatalarını biran önce düzeltiniz.
.rar Deneme.rar (Dosya Boyutu: 21,04 KB | İndirme Sayısı: 9)
Cevapla
Çözüldü #5
ozanakkaya
sledgeab
ozanakkaya
Bul
Kurucu
Adı Soyadı: Oz.... Ak....
Konum: Denizli
Ofis Versiyonu: Ofis 2016 64 Bit
Son Oturumu: Dün,19:36
Yorumları: 13.543
Konuları: 499
Kayıt Tarihi: 29/01/2008
Teşekkür Puanı: 3.148
Mesleğiniz: Memur
Sanırım bu şekilde daha iyi.

Dim DosyaAdi, a, x, y, KlasorYolu1, KlasorYolu2, KlasorYolu3, KVarMi1, KVarMi2, KVarMi3 As String

        x = Me.hastane_adi
        y = Me.ihale_kodu
        a = Me.ihalenin_adi
        
        KlasorYolu1 = CurrentProject.Path & "\" & x
        KlasorYolu2 = CurrentProject.Path & "\" & x & "\" & y
        KlasorYolu3 = CurrentProject.Path & "\" & x & "\" & y & "\" & a
        
        KVarMi1 = Len(Dir(KlasorYolu1, vbDirectory))
                If KVarMi1 = 0 Then
                   MkDir KlasorYolu1
                End If
        KVarMi2 = Len(Dir(KlasorYolu2, vbDirectory))
                If KVarMi2 = 0 Then
                   MkDir KlasorYolu2
                End If
        KVarMi3 = Len(Dir(KlasorYolu3, vbDirectory))
                If KVarMi3 = 0 Then
                   MkDir KlasorYolu3
                End If
                      
        KlasorYolu3 = CurrentProject.Path & "/" & x & "/" & y & "/" & a
        DosyaAdi = KlasorYolu3 & "/Teklif Mektubu.pdf"

DoCmd.OutputTo acOutputReport, "rpr_teklifmektubu", "PDFFormat(*.pdf)", DosyaAdi, False, "", , acExportQualityPrint
.rar Deneme2.rar (Dosya Boyutu: 19,55 KB | İndirme Sayısı: 9)
Cevapla
Çözüldü #6
senelkose
Üye
senelkose
Bul
Üye
Adı Soyadı:
Konum: Sivas
Ofis Versiyonu: Ofis 2007
Son Oturumu: 29/04/2019,10:59
Yorumları: 17
Konuları: 5
Kayıt Tarihi: 24/10/2010
Teşekkür Puanı: 0
ç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
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task