+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Yedeklediğim Access İ Winrar Olarak Yedeklesin (/konu-yedekledigim-access-i-winrar-olarak-yedeklesin.html)
Yedeklediğim Access İ Winrar Olarak Yedeklesin - Acemi54 - 18/05/2024
Hatırlı akşamlar. Uygulamada Yedeklenecek Dosya adını ve dosya yerini seçip daha belirttiğim yere kopyasını yapıştırıyor.
Bu dosyayı Access olarak değil de WinRar olarak kopyalamasını istiyorum. Kopyalarken Dosya isminin yanına tarih de yazsın. Bu konuda bana yardımcı olursanız çok memnun olurum. Çok teşekkür ediyorum şimdiden.
Yedekleme kodum: KUSURA BAKMAYIN YANLIŞ YERE KONU AÇMIŞIM.
Kod:
Dim asıldosya, kopyadosya As String
asıldosya = DosyaYolu
kopyadosya = "D:\YEDEK\" & Right(DosyaYolu, Len(DosyaYolu) - InStrRev(DosyaYolu, "\"))
Dim Bak
Set Bak = CreateObject("Scripting.FileSystemObject")
Bak.CopyFile asıldosya, kopyadosyaRE: Yedeklediğim Access İ Winrar Olarak Yedeklesin - Acemi54 - 19/05/2024
KUSURA BAKMAYIN YANLIŞ YERE KONU AÇMIŞIM.
RE: Yedeklediğim Access İ Winrar Olarak Yedeklesin - onur_can - 19/05/2024
Lütfen sorularınızı sormadan önce formun üst kısmında bulunan Arama çubuğuna sorununuzu anlatan bir kaç kelimeyi yazın. Eğer daha önce aradığınız sorunla ilgili çözümler varsa karşınıza gelecektir. Bu sonuçlardan da çözüm bulamazsanız, yeni bir konu açabilirsiniz.
Arama Çubuğuna WinRar ile yedekleme yazın, sonuçları inceleyin...
RE: Yedeklediğim Access İ Winrar Olarak Yedeklesin - Acemi54 - 22/05/2024
(19/05/2024, 16:32)onur_can yazdı: Lütfen sorularınızı sormadan önce formun üst kısmında bulunan Arama çubuğuna sorununuzu anlatan bir kaç kelimeyi yazın. Eğer daha önce aradığınız sorunla ilgili çözümler varsa karşınıza gelecektir. Bu sonuçlardan da çözüm bulamazsanız, yeni bir konu açabilirsiniz.
Arama Çubuğuna WinRar ile yedekleme yazın, sonuçları inceleyin...
Hocam dediğiniz gibi araştırdım paket halinde tablo, sorgu, modül , form şeklinde olanlarda var ama benim istediğim gibi uyduramadim. Yardım ederseniz çok memnun olurum.
RE: Yedeklediğim Access İ Winrar Olarak Yedeklesin - onur_can - 22/05/2024
Arkadaşlar gayet güzel açıklamış, bende yazsam aynısını yazacağım, farklı bir şey yok.
RE: Yedeklediğim Access İ Winrar Olarak Yedeklesin - Acemi54 - 23/05/2024
(22/05/2024, 21:24)onur_can yazdı: Arkadaşlar gayet güzel açıklamış, bende yazsam aynısını yazacağım, farklı bir şey yok.
Hocam aşağıdaki kod ile dosya kopyalıyorum
İş bolgisayarinda "Permission denied" hatası veriyor.
wınrardan vazgeçtim. Dosyayı kopyalarken formdaki Metinkutusu1 de yazan yazı ve dosya adını nasıl yan yana yazdırabilirim. Bu konuda yardımcı olurmusun sana zahmet.
Kod:
Private Sub Komut0_Click()
Dim Yer As String
Yer = "C:\Users\Sakarya\Desktop\ÇALIŞMA"
If Len(Dir(Yer, vbDirectory)) = 0 Then
MkDir (Yer)
End If
FileCopy "D:\YEDEK\" & "\Deneme.accdb", Yer & "\ Deneme .accdb "
End Sub