ç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
mkdir hakkında
Bu Konudaki Yorumlar |
mkdir hakkında - Yazar: senelkose - 18/12/2012, 19:24
Cvp: mkdir hakkınca - Yazar: mcmaho - 18/12/2012, 23:27
Cvp: mkdir hakkınca - Yazar: accessman - 19/12/2012, 13:49
Cvp: mkdir hakkınca - Yazar: ozanakkaya - 19/12/2012, 21:13
Cvp: mkdir hakkında - Yazar: ozanakkaya - 20/12/2012, 01:59
Cvp: mkdir hakkında - Yazar: senelkose - 20/12/2012, 12:33
|
Konuyu Okuyanlar: 1 Ziyaretçi