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.