iyi günler
bu eklediğim program yanılmıyorsam sn.okilertunç tarafından eklenmişti
biraz değiştirdim
yapmak istediğim
her seferinde dosya seçmek ve yedeklenecek yer seçmek için uğraşmamak
bir programınız var ve her zaman aynı bağlı data dosyasını aynı yere yedekliyorsunuz
bunun bilgilerini yedekle tablosundan alsın diye düşündüm
ama isterse gözat ile dosya ve adres seçebilsin
bunun daha kolay yolunu mutlaka ustalar biliyordur
ben sorgu ile tabloyu son şeçilenlerle güncellemeyi düşündüm
ama olmuyo

[vb]
Dim sor As Integer
sor = MsgBox("Veritabanınızın Yedeği Alınsınmı??", vbYesNo)
If sor = vbYes Then
Dim zaman As New Date 'burada zaman değişkenimizi atadık
Dim uzanti As String 'burada ise uzantısını atadık "Kayıt.mdb" gibi
zaman = DateTime.Today 'zaman isimli değişkenimize "today" ile bugünün tarihini verdik
uzanti = (".mdb") 'uzanti isimli değişkenimizde ise Uzantımızı
Select Case File.Exists("Provider=

Bu soruyu daha önce sormuştum fakat çözüm üretemedim

Form'un kapanışına nasıl bir kod yamalıyım ki form kapanırken "tablolar.mdb" isimli veritabanım C:\Yedeklerim klasörünün içine ZİP lenerek veya RAR lanarak yedeklensin.

VB2010 kullanmaktayım
Soru kısa olduğu için örnek dosya eklemeye gerek duymadım. İllaki gerek diyorsanız ekliyebilirim.

İlginize Teşekkürler.

Aşağıdaki kodla programı bulunduğu dizine yedekliyorum..Bunu bulunduğu dizine değilde E sürücüsüne yedekleme yaptırmak istiyorum..nasıl bir düzeltme yapabilirim?..

[vb]Private Sub Komut17_Click()
Msg = Msg & "Tüm Kayıtlarınızın Yedeği Alınsın mı?" & vbCrLf & vbCrLf
If MsgBox(Msg, vbQuestion + vbYesNo, "Veritabanı Yedekleme") = vbYes Then
Dim fileObj As Object
Dim strDB As String
Dim strBackupName As String

DoCmd.Hourglass -1

Let strDB = "Tablolar.mdb"
Let strBackupName = Format(

Değerli Arkadaşlar;
Özgür hocam yedekleme ile ilgili bir problemden bahsetti. Bende bu yöntemi önerdim ve yaptım. Veri tabanınızda bulunan tabloları bulunduğunuz klasöre yada istediğiniz bir klasöre yedeklemek için hazırlanmıştır.
Mesele şöyle ortaya çıktı paylaşılan bir veritabanını yedekleyebilmek için diğer kullanıcıların kapatması gerekmekte. Tabi bu her zaman mümkün olmuyor.
Ama bu yöntemle kullanıcılar çalışmaya devam ederken bizim tablolarımızın yedeği yeni bir dosya içine yedekleniyor

Kullandığım yine sitenizden aldığım bir yedekleme kodu var .aynı dosya içine yedekleme yapabiliyorum
Özellikle bunu kullanmamın sebebi çok hızlı bir şekilde başka form açılırken yedeklemeyi hemen yapıyor ancak tüm çabalarıma rağmen yedek yolunu değiştiremedim mesela(d:\yedek\ ) içine atmak istiyorum

daha önceden sorulmuş ama çözüme ulaşamadım.ilgilenen arkadaşlara teşekkür ederim


Dim strDB As String
Dim strBackupName As String
DoCmd.Hourglass -1
Let strDB = "ydk.mdb"
Let strBackupName = Date

Sevgili dostlar. Her zaman yeniliklerle ve pratik fikirlerle yanınızda olan AccessTr'de yine bir ilk ve orijinal fikir.

Programımızı veya datalarımızı en basit, sorunsuz ve bizim etkimiz olmadan nasıl yedekleriz? Önce fikirleri aşağıda görelim, sonra ipucunu yazalım. Kim ne diyor bir görelim bakalım. Haydi sakinler bırakın sakinliği de klavyenin başına geçin. Çalıştırın saksıyı)) En basit yedekleme, klasör veya program bazında. Sessizce ve kimseyi rahatsız etmeden... NAsıl yaparız? 100 pua

Örnekte; Form üzerindeki buton tıklandığında, programın içerisinde bulunan klasöre yedeklemeler yapılıyor... Programın bulunduğu yerde bir YEDEK adlı klasörü otomatik oluşturarak, her çıkışta buraya sorgusuz sualsiz yedekleme nasıl yapılabilir...

herkese merhaba;
elimde veritabanını yedeklemeye yarayan bir kod var ancak biraz çekrefilli uğraştırıyor tüm tabloları formları vb tek tek yazmak gerekiyor.
kod şu şekilde;
[vb]Private Sub yedek_al_Click()
On Error Resume Next
Dim vt As Object
Dim ydk As String
ydk = "C:\STS Yedek.mdb"
Set trz = CreateObject("Access.Application")
trz.NewCurrentDatabase ydk
Set vt = appaccess.CurrentDb
trz.CloseCurrentDatabase
trz = Nothing
With DoCmd
.SetWarnings False
.CopyObject "c:\STS Yedek",

Sayın atoz112,  Access tablolarını(datalarını) görüntülenecek klasörde tek Excel dosyasına aktarıp(yedekleyip) gerektiğinde geri yüklemek istiyorum. Benim yaptığımda görünür klasörde kaydetmeyi yapamadım. Yardımcı olursanız çok memnun olurum.