AccessTr.neTMicrosoft AccessAccess Cevaplanmış Soruları

Yedeklediğim Access İ Winrar Olarak Yedeklesin

1 2 3
18/05/2024, 21:26

Acemi54

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, kopyadosya
19/05/2024, 10:43

Acemi54

KUSURA BAKMAYIN YANLIŞ YERE KONU AÇMIŞIM.
19/05/2024, 16:32

onur_can

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...
22/05/2024, 18:34

Acemi54

(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.
22/05/2024, 21:24

onur_can

Arkadaşlar gayet güzel açıklamış, bende yazsam aynısını yazacağım, farklı bir şey yok.
23/05/2024, 00:28

Acemi54

(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
1 2 3