Skip to main content

AccessTr.neT

Kayıt Ol

 | Facebook ile Bağlan  | Twitter İle Bağlan | Google+ İle Bağlan

Yedeklediğim Access İ Winrar Olarak Yedeklesin

Acemi54
Acemi54
Access Cevaplanmış Soruları
13
578

Yedeklediğim Access İ Winrar Olarak Yedeklesin

Çözüldü #1
Acemi54
Aktif Üye
Acemi54
Bul
Aktif Üye
Adı Soyadı:
Yaşı: 23
Konum:
Ofis Versiyonu:
Son Oturumu: 18/06/2024,18:10
Yorumları: 85
Konuları: 26
Kayıt Tarihi: 11/04/2023
Teşekkür Puanı: 0
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
Acemi54
Aktif Üye
Acemi54
Bul
Aktif Üye
Adı Soyadı:
Yaşı: 23
Konum:
Ofis Versiyonu:
Son Oturumu: 18/06/2024,18:10
Yorumları: 85
Konuları: 26
Kayıt Tarihi: 11/04/2023
Teşekkür Puanı: 0
KUSURA BAKMAYIN YANLIŞ YERE KONU AÇMIŞIM.
Cevapla
#3
onur_can
Uzman
onur_can
www Bul
Uzman
Adı Soyadı: -....
Konum: -
Ofis Versiyonu: Ofis 2021 64 Bit
Son Oturumu: Dün,21:48
Yorumları: 103
Konuları: 13
Kayıt Tarihi: 08/11/2008
Teşekkür Puanı: 15
Mesleğiniz: Elektronik, Otomasyon Sistem,
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
Acemi54
Aktif Üye
Acemi54
Bul
Aktif Üye
Adı Soyadı:
Yaşı: 23
Konum:
Ofis Versiyonu:
Son Oturumu: 18/06/2024,18:10
Yorumları: 85
Konuları: 26
Kayıt Tarihi: 11/04/2023
Teşekkür Puanı: 0
(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
onur_can
Uzman
onur_can
www Bul
Uzman
Adı Soyadı: -....
Konum: -
Ofis Versiyonu: Ofis 2021 64 Bit
Son Oturumu: Dün,21:48
Yorumları: 103
Konuları: 13
Kayıt Tarihi: 08/11/2008
Teşekkür Puanı: 15
Mesleğiniz: Elektronik, Otomasyon Sistem,
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
Acemi54
Aktif Üye
Acemi54
Bul
Aktif Üye
Adı Soyadı:
Yaşı: 23
Konum:
Ofis Versiyonu:
Son Oturumu: 18/06/2024,18:10
Yorumları: 85
Konuları: 26
Kayıt Tarihi: 11/04/2023
Teşekkür Puanı: 0
(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