+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Yedekleme (/konu-yedekleme.html)
Sayfalar:
1
2
Yedekleme - gogoli01 - 03/03/2009
Merhabalar;
bir formun üzerinde buton yerleştirip, bu butona da yapmış olduğum veritabanı programını gün_ay_yıl_saat_dakika.mdb (örnek: 03_03_2009_17_30.mdb) şeklinde yedekleme yapacak kodlar arıyorum.Bakım yapıp sonra yedekleme yapmak ta olabilir.
forumlarda yedekleme ile ilgili bir kaç tane örnek prg gördüm ve inceledim. fakat bana komutlar çok karışık geldi.
bu kodları sade bir şekilde nasıl bulabilirim.
Cvp: Yedekleme - tdsharun - 03/03/2009
Site yöneticimiz Sayın sledgeab'ın yapmış olduğu Veritabanı Yedekleme ve Bakım Uygulamasını incelemenizi öneririm:
Veritabanı Yedekleme ve Bakım Uygulaması V3
Kolay gelsin...
Cvp: Yedekleme - gogoli01 - 04/03/2009
yine kendi cevabımı kendimbuldum.sizlerle paylaşmak istiyorum.
yedekleme ile ilgili örnekteki kodun bir bölümünü aşağıdaki gibi değiştirirsek tarih ve saati yedek programımıza ekliyoruz.(Koyu renkli olan kısım)
KopiaDB = InputBox("Veritabanı yedeklenecek, dizin aşağıdaki gibi:" & Chr(13) & Chr(10) & Chr(13) & Chr(10) & "Dosyanın oluşturulacağı yol:.", "Değiştirmeden onaylayınız.", Left(CurDB, Len(CurDB) - Len(Dir(CurDB))) & Format(Now, "dd-mmmm-yyyy_h_m") & "_ydk.mdb")
saati 18:15 gibi gösteremiyoruz, Access hata veriyor.bunun yerine yukarıdaki gibi yazlırsa, almış olduğumuz yedeğin hangi tarih ve zamana ait olduğunu görmüş oluyoruz.
Cvp: Yedekleme - access_delisi - 05/03/2009
kendi cevabını yine kendin buldun da, yukarıdaki kodu nereden buldun?
Cvp: Yedekleme - altangüven - 14/03/2009
YUKARIDAKİ YEDEKLEMEYİ KENDİ VERİTABANIMA KOPYALADIM AŞAĞIDAKİ KODDA HATA VERİYOR SORUN NE ACABA
Private Sub Form_Timer()
On Error GoTo err_Form_Timer
Dim rrss As New ADODB.Recordse Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim strOldDbName As String
Dim strNewDBName As String
Dim strOldDBPrefix As String
Dim intX As Integer
Dim iLocB As Integer
Dim iLocE As Integer
Dim fYear As String
Dim fMonth As String
Dim fDay As String
Dim bOK As Boolean
Dim Y As String
Y = "00:00"
If X <= 55 Then
Me.Label10.Visible = True
X = X + 1
Cvp: Yedekleme - tdsharun - 14/03/2009
Referanslarını kontrol et. MISSING yazan bi referans var mı yok mu kontrol et. (Tools - References)
Hata mesajında şu dosya eksik falan der. O dosyayı internetten ara. Windows/System32'nin içine at. Hatan devam edecek olursa örneğini ekleyerek gönder.
Kolay gelsin...