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.