Forma doküman bağlama ile ilgili şu konuya bakınız.
Kitap vb kayıtları girdiğiniz formların otomatik sayı alanının güncelleştirme sonrası olayına
Dim klasor As String
klasor = Me.otomatiksayıalanınızinadi.Value
MkDir CurrentProject.Path & "\" & klasor & ""
yazın böylelikle projenize her yeni kayıt girildiğinde o kayda özgü yeni bir klasör oluşturmuş olacaksınız.
Gözat butonunuza
Me![yayinadi] = GetOpenFile_CLT("C:\", "Dosya Seç")
yazın
Sonra birtane "dokumanı kopyala" butonu oluşturun ve tıklanma olayına
Dim kaynak As String
kaynak = Me.yayınadi.Value
Dim yer, yeniyer As String
yer = kaynak
yeniyer = CurrentProject.Path & "\" & kaynak & "\" & kaynak & "yayın.doc"
FileCopy yer, yeniyer
MsgBox "Dosya Başarıyla Kopyalandı"
böylelikle ilgili yayın "yayınnoyayin.doc" ismi ile kendi klasörüne kaydolmuş olacak
Son Düzenleme: 08/06/2010, 14:17, Düzenleyen: mustafa_atr.