Anladığım kadarıyla, formda solda bulunan 4 buton ile yapılan işlemi tek butonla yapmak istiyorsunuz.

Forma yeni buton ekleyip tıklandığında olayına aşağıdaki kodu yazarak deneyiniz.

Dim Kaynak, Hedef, Uzanti



Kaynak = GetOpenFile_CLT("C:\Users\%userprofile%\Desktop\", "Select file...")

Uzanti = right(Kaynak, Len(Kaynak) - InStrRev(Kaynak, "."))

Hedef = "D:\A\" & Me.prename & "." & Uzanti

If Kaynak = "" Then

Exit Sub

Else

FileCopy Kaynak, Hedef

MsgBox "The Attachment File Was Created Successfully"



Controls(Uzanti).Value = True

End If

Ayrıca, "GetOpenFile_CLT" kodu, 64 bit ofislerde çalışmıyor. Bunun yerine Access ve resim ekleme sıkıntısı konusundaki 11. mesajda bulunan kodu kullanın.