Skip to main content

AccessTr.neT


Veritabanı yedekleme kodu

emir ustaoğlu
emir ustaoğlu
10
5081

Veritabanı yedekleme kodu

#7
sayın ustaoglu,

ilgili butonun içeriğini aşağıdaki ile değiştiriniz lütfen.bilginize.

Kod:
'1-)klasör oluşturmak için

Dim klasoryeri As String
klasoryeri = CurrentProject.path & "\" & "ydk"
If Len(Dir(klasoryeri, vbDirectory)) = 0 Then
MkDir (klasoryeri)
MsgBox ("KLASÖR oluşturuldu"), vbInformation, "KLASÖR OLUŞTURMA BİLGİSİ"
End If

'2-)Dosyayı,oluşturulan klasöre kopyalamak için

Dim dosyakopyala As Object
If Len(Dir(CurrentProject.path & "\" & "ydk\" & "yedek-" & Format(Date, "dd.mm.yyyy") & ".accdb", vbDirectory)) = 0 Then
   Set dosyakopyala = CreateObject("Scripting.FileSystemObject")
   dosyakopyala.copyfile CurrentProject.path & "\" & "KlasoreYedekle-ATOZ.accdb", CurrentProject.path & "\" & "ydk" & "\yedek-" & Format(Date, "dd.mm.yyyy") & ".accdb"
   MsgBox ("DOSYA kopyalandı"), vbInformation, "DOSYA KOPYALAMA BİLGİSİ"
Else
   MsgBox ("DOSYA zaten mevcut"), vbInformation, "DOSYA KOPYALAMA BİLGİSİ"
End If

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

Bu Konudaki Yorumlar
Veritabanı yedekleme kodu - Yazar: emir ustaoğlu - 30/08/2015, 12:58
Cvp: Veritabanı yedekleme kodu - Yazar: ozanakkaya - 30/08/2015, 19:07
Cvp: Veritabanı yedekleme kodu - Yazar: emir ustaoğlu - 30/08/2015, 19:27
Cvp: Veritabanı yedekleme kodu - Yazar: ozanakkaya - 30/08/2015, 19:35
Cvp: Veritabanı yedekleme kodu - Yazar: atoz112 - 02/09/2015, 17:36
Cvp: Veritabanı yedekleme kodu - Yazar: emir ustaoğlu - 02/09/2015, 17:51
Cvp: Veritabanı yedekleme kodu - Yazar: atoz112 - 02/09/2015, 18:12
Cvp: Veritabanı yedekleme kodu - Yazar: emir ustaoğlu - 09/09/2015, 18:02
Cvp: Veritabanı yedekleme kodu - Yazar: emir ustaoğlu - 02/09/2015, 18:15
Cvp: Veritabanı yedekleme kodu - Yazar: atoz112 - 09/09/2015, 19:40
Cvp: Veritabanı yedekleme kodu - Yazar: emir ustaoğlu - 09/09/2015, 19:45
Task