Skip to main content

AccessTr.neT


Yedeklediğim Access İ Winrar Olarak Yedeklesin

Yedeklediğim Access İ Winrar Olarak Yedeklesin

Çözüldü #1
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

.rar Dosya_Yedekle.rar (Dosya Boyutu: 21,63 KB | İndirme Sayısı: 4)
Son Düzenleme: 19/05/2024, 10:43, Düzenleyen: Acemi54.
Cevapla
#2
KUSURA BAKMAYIN YANLIŞ YERE KONU AÇMIŞIM.
Cevapla
#3
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...
 İyi olan tek şey bilgi ve kötü olan tek şey de cehalettir. (Sokrates)
Cevapla
#4
(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.
Cevapla
#5
Arkadaşlar gayet güzel açıklamış, bende yazsam aynısını yazacağım, farklı bir şey yok.
 İyi olan tek şey bilgi ve kötü olan tek şey de cehalettir. (Sokrates)
Cevapla
#6
(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

Son Düzenleme: 23/05/2024, 10:31, Düzenleyen: Acemi54.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task