If MsgBox("Dosya Arşivlenecek.. Emin misiniz?", vbYesNo) = vbYes Then
Dim Krz
Set Krz = CreateObject("Scripting.FileSystemObject")
Krz.CopyFile asıldosya, kopyadosya
Me.arsivtarihi = Now
Me.olusturanpersonelid = Forms![frmgiris]![personelid]
Me.arsivyol = kopyadosya
SetAttr Me.arsivyol, vbReadOnly
MsgBox "Dosya arşivlendi."
asıldosya isimli değişkenin değeri olmadığından hata veriyor. Bu değeride form üzerindeki bir metin kutusundan vermişsiniz ancak Null değer içerdiğinden hata veriyor.
NOT : Vba kodlarınız içinde dosyaların adresi için \\Yesil1\arsiv\DOSYALAMA şeklinde yol belirtmişsiniz. Bu tarz kodlar programlama teknikleri için uygun değil. En iyi çözüm bu adresi VT içinde bir yerde tutmak ve tüm programda geçerli olacak sabit bir değişkene atamak ve adreste o değişkeni kullanmak olacaktır.