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

Bölünmüş Dosyanın Yedeğini Aldırmak.

access06

Access Cevaplanmış Soruları

2343

01/12/2014, 16:47 #2

Düşünmek en zor iştir...

alpeki99

www Bul

Uzman

Adı Soyadı: Ol....

Yaşı: 43

Konum: Bursa

Ofis Versiyonu: Ofis 2010 32 Bit

Son Oturumu: 26/10/2023,01:33

Yorumları: 6.137

Konuları: 162

Kayıt Tarihi: 29/10/2008

Teşekkür Puanı: 1.291

Mesleğiniz: Yazılım Geliştirici

Bir buton ekleyip aşağıdaki kodları butonun tıklanma olayına ekleyin:

Kod:

On Error GoTo HataYakala

Dim fs As Object

Dim tabloDosyasi As String

  

  tabloDosyasi = CurrentProject.Path & "\tablolar\ornek_be.accdb"

  Set fs = CreateObject("Scripting.FileSystemObject")

  fs.CopyFile tabloDosyasi, CurrentProject.Path & "\tablolar\yedek" & Date & ".accdb"

  Set fs = Nothing

  MsgBox "Dosyanın yedeği alındı.", vbInformation, "İşlem Tamam"



HataCikis:

  Exit Sub

  

HataYakala:

  MsgBox "HATA : " & vbrlf & vbrlf & err.Description

AccessTr.Net teknik konular içeren bir sitedir. Bu tip sitelerde en iyi şekilde yardım alabilmeniz için Site Kurallarını mutlaka okumanız ve buna göre hareket etmeniz lazım.

Cevapla