Access SQL   ›   ACCESS SORULARI VE ÖRNEK UYGULAMALARI   ›   ACCESS SORULARI   ›   Access 2016 Uyumlu Otomatik Yedekleme

Access 2016 Uyumlu Otomatik Yedekleme
Mr.Midnight
Aktif Üye 40-100

*
Kayıt Tarihi: 10.11.2017
Toplam 17 konu açtı.
Toplam 50 yorum yaptı.
Toplam 0 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2016,
Beğeniler: 2 / 0
#1
12-04-2021, 12:00 (En son düzenleme: 12-04-2021, 12:18 Mr.Midnight. Düzenleme Nedeni: Not eklendi )
Herkese merhaba;
Forumda yaptığım incelemelerde bir çok konuda access programının otomatik yedeğini alan örnekler var ancak bu örnekleri indirip hemen hemen hepsini denediğimde orjinallerinde bile yedek alma işlemini çalıştıramadım. Foruma eklenmiş olanların neredeyse hepsi eski konular. Bu nedenle çalışmadıklarını düşünüyorum. Acaba elinde Access 2016 uyumlu olarak çalışan örneği olan var mı? Özellikle accdb uzantılı ve bağlı tabloları olan accesside yedekleyebilecek örnek olmasını rica ederim.

Taruz hocamızın aşağıdaki linkte yer alan uygulaması çok dikkatimi çekti. Ancak orjinal dosyada bile yedekleme işlemi çalışmadı...
Gelişmiş Yedekleme Sihirbazı - Access SQL (access-sql.com)

NOT: Sıkıştırma programı olarak IZArc kullanıyorum...



  Bul
  Alıntı
Bu mesajı beğenenler:
Mr.Midnight
Aktif Üye 40-100

*
Kayıt Tarihi: 10.11.2017
Toplam 17 konu açtı.
Toplam 50 yorum yaptı.
Toplam 0 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2016,
Beğeniler: 2 / 0
#2
15-04-2021, 11:32
Merhaba;
Yukarıda mesajıma hiç kimse yanıt vermemiş ancak ben kendi uğraşlarımla epey ilerledim ve yedekletmeyi başardım. Ancak bir konuda takıldım. Bu konuda çözümü olan varsa cevap verirse memnun olurum. 

Problem: Programım şirket bilgisayarlarında kullanılacak ve şirket bilgisayarlarımızda sıkıştırma programı olarak IZArc kullanılıyor ve bunun dışındakileri onaylamıyor. Yaptığım access programında yedekleri sıkıştırılmış olarak almasını istiyorum. Şu anki durumda taruz hocamızın yaptığı müthiş örnek sadece winrar olarak tasarlanmış. 

Taruz hocamın yazdığı programın modül ve form vba kodları içerisinde 

WinRARX$ = Environ$("ProgramFiles") & "\WinRAR\rar.exe"

yazan kısımları 

WinRARX$ = Environ$("Program Files (x86)") & "\IZArc\IZArc.exe"
WinRARX$ = Environ$("Program Files (x86)") & "\IZArc\IZARCC.exe"
WinRARX$ = Environ$("Program Files (x86)") & "\IZArc\IZARCE.exe"

WinRARX$ = "C:\Program Files (x86)\IZArc\IZArc.exe"

şeklinde kodları tek tek denedim ama sonuca ulaşamadım. Belki de eksik değişiklik yapıyorum...



  Bul
  Alıntı
Bu mesajı beğenenler:
ekremer1969
Önemli Üye 200-300

*
Kayıt Tarihi: 17.12.2014
Toplam 49 konu açtı.
Toplam 219 yorum yaptı.
Toplam 52 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2010 TR,
Beğeniler: 1 / 5
#3
17-04-2021, 17:49
Selam

Programın sıkıştırmalı yedekleme kısmı bende de çalışmadı. Mevcut kodlarla sonuç elde edemedim. Yabancı bir siteden bulduğum benzer kodu uydurmaya çalıştım zira kod bilgim fazla değil. Bağlı Tablo kısmını ise kod ile değil de seçim yaparak kullandım. Ekte veriyorum.


Eklenti Dosyaları
.rar   Program.rar (Boyut: 74,59 KB / İndirilme: 58)



  Bul
  Alıntı
Bu mesajı beğenenler:
Mr.Midnight
Aktif Üye 40-100

*
Kayıt Tarihi: 10.11.2017
Toplam 17 konu açtı.
Toplam 50 yorum yaptı.
Toplam 0 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2016,
Beğeniler: 2 / 0
#4
19-04-2021, 13:24
(17-04-2021, 17:49)ekremer1969 demiş ki: Selam

Programın sıkıştırmalı yedekleme kısmı bende de çalışmadı. Mevcut kodlarla sonuç elde edemedim. Yabancı bir siteden bulduğum benzer kodu uydurmaya çalıştım zira kod bilgim fazla değil. Bağlı Tablo kısmını ise kod ile değil de seçim yaparak kullandım. Ekte veriyorum.

Ekremer hocam ellerinize sağlık. Problem sizin göndermiş olduğunuz dosya ile çözülmüştür. Çok teşekkür ederim...



  Bul
  Alıntı
Bu mesajı beğenenler:
ekremer1969
Önemli Üye 200-300

*
Kayıt Tarihi: 17.12.2014
Toplam 49 konu açtı.
Toplam 219 yorum yaptı.
Toplam 52 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2010 TR,
Beğeniler: 1 / 5
#5
19-04-2021, 14:24
Rica ederim. İyi çalışmalar.



  Bul
  Alıntı
Bu mesajı beğenenler:
Mr.Midnight
Aktif Üye 40-100

*
Kayıt Tarihi: 10.11.2017
Toplam 17 konu açtı.
Toplam 50 yorum yaptı.
Toplam 0 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2016,
Beğeniler: 2 / 0
#6
21-04-2021, 09:01
Sayın ekremer1969 hocam merhaba;

Bugün programda oto yedekleme aşamasında "Sıkıştırılmış Klasör Hatası" - "Dosya bulunmadı veya okunma izni yok." hatası aldım ve programda kilitlenme oldu. Hata aşağıdaki kodda yaşanmakta. Konu hakkında acil olarak desteğinizi rica ederim...


Visual Basic
  1. Sub CreateZipFile(folderToZipPath As Variant, zippedFileFullName As Variant)
  2.  
  3. Dim ShellApp As Object
  4.  
  5. 'Create an empty zip file
  6. Open zippedFileFullName For Output As #1
  7. Print #1, Chr$(80) & Chr$(75) & Chr$(5) & Chr$(6) & String(18, 0)
  8. Close #1
  9.  
  10. 'Copy the files & folders into the zip file
  11. Set ShellApp = CreateObject("Shell.Application")
  12. ShellApp.Namespace(zippedFileFullName).CopyHere ShellApp.Namespace(folderToZipPath).items
  13.  
  14. 'Zipping the files may take a while, create loop to pause the macro until zipping has finished.
  15. On Error Resume Next ' *** Hata tam olarak burada ortaya çıkıyor ve çıkan hata penceresinde onay verildiğinde alttaki kod sonsuz bir döngüye giriyor
  16. Do Until ShellApp.Namespace(zippedFileFullName).items.Count = ShellApp.Namespace(folderToZipPath).items.Count
  17.     'Application.Wait (Now + TimeValue("0:00:01"))
  18. Loop
  19. On Error GoTo 0
  20.  
  21. End Sub





  Bul
  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  [VBA] Bulut Yedekleme hedefkaya 9 586 30-01-2023, 13:17
Son Mesaj: beab05
  "blok şifresi Ile şifreleme, Satır Düzeyinde Kilitleme Ile Uyumlu Değil..." Hatası adnnfrm 1 327 21-11-2021, 00:08
Son Mesaj: onur_can
  Tabloları Ilişki Olarak Yedekleme Kopyalama bibib 0 324 15-03-2021, 21:02
Son Mesaj: bibib
  Yedekleme Uygulamasındaki Fyedekleme Formu M_Kemal_Askeri 7 1.093 08-07-2020, 18:02
Son Mesaj: Davetsiz
  [VBA] Access Otomatik Kapatma Işlemi benuva 6 1.063 12-01-2020, 19:43
Son Mesaj: benuva
  Bulut Yedekleme hedefkaya 0 366 26-11-2019, 13:44
Son Mesaj: hedefkaya
  Takvim Ajanda programını ofis 2016 da çalıştırmak için çevirmek TURKOLOG 7 1.220 28-03-2019, 20:33
Son Mesaj: TURKOLOG
  [VBA] Siteden İndirdiğim Yedekleme Programı Hata Veriyor. Sorunu çözemedim OĞUZ TÜRKYILMAZ 7 1.243 10-11-2018, 08:03
Son Mesaj: OĞUZ TÜRKYILMAZ

Foruma Git:


Bu konuyu görüntüleyen kullanıcı(lar): 1 Ziyaretçi