Skip to main content

AccessTr.neT


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

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

#7
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
.rar yedekle.rar (Dosya Boyutu: 16,43 KB | İndirme Sayısı: 7)
aydın3838, 20-12-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
#8
sayın aydın,
ağ üzerindeki bir dosyayı nasıl otomatik yedekleriz?
dosyayı sıkıştırarak mail atabilir miyiz?
teşekkürler..
Dünya düşünenler için bir komedi, Hissedenler için bir trajedidir ***
Hugh WALPOLE
Cevapla
#9
(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 & "\*.*")
Murat YANDEMİR ( PyramiD YAZILIM Uluslar Arası Nakliye Programları )
Bilgisayar Programcısı (1989'dan beri)

+rep Yollar biter Access bitmez. +rep
Son Düzenleme: 21/02/2015, 02:06, Düzenleyen: Yandemir.
Cevapla
#10
(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!
Dünya düşünenler için bir komedi, Hissedenler için bir trajedidir ***
Hugh WALPOLE
Son Düzenleme: 21/02/2015, 11:45, Düzenleyen: karaayhan. (Sebep: eksik bilgi)
Cevapla
#11
(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.
Murat YANDEMİR ( PyramiD YAZILIM Uluslar Arası Nakliye Programları )
Bilgisayar Programcısı (1989'dan beri)

+rep Yollar biter Access bitmez. +rep
Cevapla
#12
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.
Herkes, kendisinin AR-GE'cisidir...


Konulara eklenen Uygulama içeriğine yönelik Tavsiyeler
Alt Form Denetim Değerlerine ulaşma ve Alt Form Güncelleme
Kapatırken Düzenle (Compact On Close) Seçeneğinin İşaretlenmesi Hakkında
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da