Merhabalar 

Access formundan bir tuşla bilgisayarımızdaki seçtiğimiz bir dosyayı bir yerden bir yere kopyalarken
dosya uzantısı değişmeden sadece dosya adını değiştirebilmek mümkünmüdür acaba

ekteki örnekte her uzantı için ayrı ayrı yapabiliyorum

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.

Merhabalar elinize sağlık işime yaradı  süpersiniz , uyarınızı dikkate alıcam ve  tamamlanıncada uygulamayı bitmiş haliyle örnek olsun diye siteye koyabiliriz dimi

bir şey daha sorsam Kopyaladığım 5 adet dosya var diyelim bunların bir metin kutusunda link olucak yani sonradan bu dosyayı yeni yerinde basınca açılabilecek şekilde alt alta gözükmesi mümkünmü

Konu, Cevaplanmış Sorular bölümüne taşınmıştır, farklı sorunuz var ise Site Kurallarına uygun yeni konu açınız

Site Kuralları:
1 b) Açtığınız konudaki sorun çözümlenmişse aynı konuya konu başlığındaki soru ile ilgisi olmayan farklı soru yazmayınız. Yeni konu açınız.