Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
18/12/2012 19:24
Konu Sahibi
senelkose
Yorumlar
5
Okunma
1514
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy

senelkose

Üye
Kullanici Avatari
Üye
17
5
24/10/2010
0
Sivas
Ofis 2007
10/03/2016,15:39
Çözüldü 
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

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 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

mcmaho

Aktif Üye
Kullanici Avatari
Aktif Üye
M.... Ö....
198
09/12/2011
34
Muğla
Ofis 2003
17/03/2017,22:33
Çözüldü 
projenizi eklerseniz daha kolay yardımcı oluruz.


<<< 10-HAGİ-10 >>>
Cevapla

accessman

Aktif Üye
Kullanici Avatari
Aktif Üye
2.367
31/10/2008
425
Denizli
Ofis 2003
20/09/2016,00:20
Çözüldü 
hangi satır da nasıl hata veriyor


@benbendedeilem
Cevapla

ozanakkaya

sledgeab
Kullanici Avatari
Kurucu
O.... A....
9.804
29/01/2008
Denizli
Memur
Ofis 2010 32 Bit
Bugün,18:14
Çözüldü 
Kullanman gereken kod aşağıda

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
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.


Ek Dosyalar
.rar   Deneme.rar (Dosya Boyutu: 21,04 KB / İndirme Sayısı: 9)
Cevapla

ozanakkaya

sledgeab
Kullanici Avatari
Kurucu
O.... A....
9.804
29/01/2008
Denizli
Memur
Ofis 2010 32 Bit
Bugün,18:14
Çözüldü 
Sanırım bu şekilde daha iyi.

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
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


Ek Dosyalar
.rar   Deneme2.rar (Dosya Boyutu: 19,55 KB / İndirme Sayısı: 8)
Cevapla

senelkose

Üye
Kullanici Avatari
Üye
17
5
24/10/2010
0
Sivas
Ofis 2007
10/03/2016,15:39
Çözüldü 
ç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


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
Çözüldü Cari baş harfine göre firma kodu oluşturma hakkında Gokcen Akan 25 959 14/07/2017, 08:32 Gokcen Akan
Çözüldü Verileri Taşıma Hakkında. serkan1985 4 299 02/06/2017, 20:51 serkan1985
Çözüldü İlişkilendirme Hakkında Cerencam 2 290 28/05/2017, 17:12 atoz112
Çözüldü Data Type Mismatch Hatası Hakkında alperalper00 8 7.388 20/05/2017, 20:17 ozanakkaya
Çözüldü Stok Takibi Yeni Veri Girişi Hakkında AloneX 4 371 06/05/2017, 11:15 AloneX

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
Forum use Krzysztof "Supryk" Supryczynski addons.