AccessTr.neT

Bul · 05/02/2015, 16:57

Kod:

Private Sub Form_Unload(Cancel As Integer)

OtoYedek

End Sub

Function OtoYedek()

On Error GoTo hatalar

Dim gonder

Set gonder = CreateObject("Scripting.FileSystemObject")

If Len(Dir(Application.CurrentProject.Path & "\yedek", vbDirectory)) = 0 Then

MkDir Application.CurrentProject.Path & "\yedek"

End If

gonder.CopyFile CurrentProject.FullName, Application.CurrentProject.Path & "\yedek\" & Format(Now(), "dd/mm/yyyy mmmm dddd hh nn ss") & ".mdb"

Set gonder = Nothing

Exit_hatalar:

Exit Function

hatalar:

MsgBox Err.Description, vbExclamation, "A-Yapı"

Resume Exit_hatalar

End Function

selam
zararın neresinden dönülürse kardır derler geçmişe değilde geleceğe bakmak için
alttaki yeekleme kodlarını bir forma ekleyin yada örnek uygulamayı inceleyin

saygılarımla

Bul · 20/02/2015, 21:59

sayın aydın,
ağ üzerindeki bir dosyayı nasıl otomatik yedekleriz?
dosyayı sıkıştırarak mail atabilir miyiz?
teşekkürler..

Bul · 21/02/2015, 02:05

(20/02/2015, 21:59)karaayhan yazdı: sayın aydın,
ağ üzerindeki bir dosyayı nasıl otomatik yedekleriz?
dosyayı sıkıştırarak mail atabilir miyiz?
teşekkürler..

aşağıdaki kod ile yedekleme yapabilirsiniz
1.winrar yöntemi ile yedek alır.
2.yedek dosyasına bir isim verir.
3.parametrelerdeki avi mpg mp3 gibi dosyaları yedeklemez.
4.SQL gibi kullanımda olan dosyaları da yedekler.
5.Alt klasörleride yedekler.
6.Her Gün için ayrı yedek alır. Örneğin : Pazartesi için BelgePzt.rar Salı için BelgeSal.rar vs.
7.Log Dosyasına alamadığı yedeklerin kaydını tutar.
8.Sıkıştırılan dosyanın RAR boyutunu 720mb ile sınırlar büyük ise böler. BelgeSal.rar BelgeSal.ra1 gibi.

Kod:

x = Shell("C:\Program Files\WinRAR\winrar.exe" & " a -inul -isnd -ilogc:\YedHata.log -y -x*.mp3 -x*.avi -x*.mpg -s -v720m -vn -ibck -dh -r -ag-YYYYMM " & Me.SaklanacakYer & "\" & Me.YedekAdi & Format(Date, "ddd") & " " & Me.YedekYeri & "\*.*")

Bul · 21/02/2015, 11:44

(21/02/2015, 02:05)Yandemir yazdı:
(20/02/2015, 21:59)karaayhan yazdı: sayın aydın,
ağ üzerindeki bir dosyayı nasıl otomatik yedekleriz?
dosyayı sıkıştırarak mail atabilir miyiz?
teşekkürler..

aşağıdaki kod ile yedekleme yapabilirsiniz
1.winrar yöntemi ile yedek alır.
2.yedek dosyasına bir isim verir.
3.parametrelerdeki avi mpg mp3 gibi dosyaları yedeklemez.
4.SQL gibi kullanımda olan dosyaları da yedekler.
5.Alt klasörleride yedekler.
6.Her Gün için ayrı yedek alır. Örneğin : Pazartesi için BelgePzt.rar Salı için BelgeSal.rar vs.
7.Log Dosyasına alamadığı yedeklerin kaydını tutar.
8.Sıkıştırılan dosyanın RAR boyutunu 720mb ile sınırlar büyük ise böler. BelgeSal.rar BelgeSal.ra1 gibi.

Kod:

x = Shell("C:\Program Files\WinRAR\winrar.exe" & " a -inul -isnd -ilogc:\YedHata.log -y -x*.mp3 -x*.avi -x*.mpg -s -v720m -vn -ibck -dh -r -ag-YYYYMM " & Me.SaklanacakYer & "\" & Me.YedekAdi & Format(Date, "ddd") & " " & Me.YedekYeri & "\*.*")

sayın yandemir,
eksik olan alan bilgilerini ekleyemedim
x
Me.SaklanacakYer

Me.YedekAdi

Me.YedekYeri

v.s.
bunların basit bir örnek ile taçlandırmak mümkün müdür?
teşekkürler..

istediğimiz dosyayı yani rar ile sıkışan dosyayı mail atmamız harika olurdu!

Bul · 21/03/2015, 22:12

(21/02/2015, 11:44)karaayhan yazdı: Me.SaklanacakYer

Me.YedekAdi

Me.YedekYeri

Me.SaklanacakYer
Flash diskiniz external diskiniz vs.
örnek [Z:\Yedek]

Me.YedekAdi
Yedeklenen dosyaya bir ön isim verilir
örnek [Murat] oluşan dosya "Z:\Yedek\MuratPaz.RAR" veya "Z:\Yedek\MuratSal.RAR"

Me.YedekYeri
örnek [\\MyPC\Evrak] veya [C:\Belgeler] ağ üzerinde ve ya nerede olursa olsun o klasörü ve altındakileri yedekler.

Bul · 29/03/2015, 21:34

sayın karaayhan,

konu takibiniz açısından,hatırlatma anlamında;
konunuz ile ilgili son gelişme ne durumdadır.

şüphesiz,işlemleriniz tamamlanmış ve sorununuzu çözmüş de olabilirsiniz.
bilgilendirmek ister misiniz lütfen.teşekkürler.bilginize.

iyi çalışmalar,
saygılar.

AccessTr.neT

tablo içeriğinden veri silindi nasıl olur ?

tablo içeriğinden veri silindi nasıl olur ?

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

Giriş yap

Hesap oluştur

Konu Linkleri