Evrak Kayıt

husem · 19-09-2019, 23:25

Merhaba arkadaşlar.
"EVRAK KAYIT" formunda jpeg resimde belirttiğim gibi, kaydetmek için seçtiğim dosyayı; d:\ sürücüsünde, belirlediğim klasöre, evrakın konusuna yazdığım isimle (dosyanın adını değiştirerek) taşımasını istiyorum.
yardımcı olabilirmisiniz?

dsezgin · 20-09-2019, 10:14

Sn husem;

Visual Basic
Private Sub EKLE2_Click()
Dim fso As Object
Dim Klasor, Hedef, Dosya As String
Klasor = "D:\" & Me.EVRAKKAYITKLASOR
        Set fso = CreateObject("Scripting.FileSystemObject")
        If Len(Dir(Klasor, vbDirectory)) = 0 Then MkDir Klasor
        Dosya = Dir(Me.EVRAKKAYITYERI, vbNormal)
        Dosya = Replace(Dir(Me.EVRAKKAYITYERI, vbNormal), Left(Dosya, InStr(1, Dosya, ".") - 1), Me.EVRAKINKONUSU)
fso.CopyFile Me.EVRAKKAYITYERI, Klasor & "\" & Dosya
'Kill Me.EVRAKKAYITYERI '*****Dosyayi tasimak istiyorsaniz satir basinda ki kesme isaretini kaldirin.
Set fso = Nothing
End Sub

proseduru ile yapabilirsiniz. Dosyayi tamamen tasimak isterseniz, Kill olan satirin basinda ki kesme isaretini silin.

husem · 20-09-2019, 10:41

sn dsezgin,
kodu ekledim, tam da düşündüğüm gibi olmuş.
yardımcı olduğunuz için çok teşekkür ederim.

husem · 20-09-2019, 11:18

sn dsezgin merhaba,
belirlediğimiz isimle klasöre taşınan dosyayı EVRAK LİSTELE formundan bulup, çift tıklayarak nasıl açtırabilirim acaba.
yapmaya çalıştım, başka bir örneklerden birşeyler bulmaya çalıştım, olmadı.

dsezgin · 20-09-2019, 16:01

Visual Basic
Private Sub Liste77_DblClick(Cancel As Integer)
Application.FollowHyperlink (Me.Liste77.Column(11))
End Sub

proseduru ile acilabilir.

husem · 20-09-2019, 16:24

"belirtilen dosya açılamıyor" hatası veriyor.

Benzer Konular...
Konu:		Yazar	Cevaplar:	Gösterim:	Son Mesaj
	[FORM] Tarayıcıdan Evrak Tarayarak Ilgili Tabloya Aktarma	kertiller_55	1	347	03-10-2025, 15:32 Son Mesaj: dsezgin
	çoklu Kullanıcılarda Mükerrer Evrak Numarası (transaction)	kaburkan	4	427	09-01-2025, 13:26 Son Mesaj: celalll
	[VBA] Kayıt Iptali: Kayıt Iptal Tablosuna Ekle, Kayıdı Sil Işlemi	programmer67	6	844	21-07-2023, 10:40 Son Mesaj: onur_can
	[FORM] Puantaj Kayıt Formlarında Kayıt Hataları	M_Kemal_Askeri	11	1.581	26-02-2021, 15:27 Son Mesaj: M_Kemal_Askeri
	Gelen giden evrak programı	TURKOLOG	11	1.950	18-12-2020, 14:17 Son Mesaj: adnnfrm
	[VBA] Liste Den Kayıt Seçme Ve Yazdırma Yada Listeden Kayıt Seçim Buton Ile Yazdırma	Ahmet51	6	1.610	10-02-2020, 16:24 Son Mesaj: Ahmet51
	[VBA] Kayıt Butonuna Tıklamadan Kayıt Etme Sorunu	mkmugla	2	910	20-01-2020, 08:27 Son Mesaj: mkmugla
	[FORM] Evrak kayıt ve word dosyası	korkmaz24	7	2.166	14-10-2018, 22:40 Son Mesaj: hturkavci03

Oturum Aç




Beni Hatırla Şifremi Unuttum?

Access SQL