Skip to main content

AccessTr.neT


Yedek Alma Uygulaması

Yedek Alma Uygulaması

#3
Kod içerisindeki

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))) & Me.dosyaadi) '"deneme.mdb")

Şeklinde kod mevcut. Butona bastığınızda metin kutusunda yazılan isim ne ise uzantısız olarak yedek alıyor.

Uzantılı kaydedilmesi ve mdb ise accdb olarak kaydedilmemesi için bu kod;

Şeklindeki kodun

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))) & Me.dosyaadi & "." & Mid(CurrentProject.Name, InStr(1, CurrentProject.Name, ".") + 1)) '"deneme.mdb")

olarak değiştirilmesi daha doğru olur. Uygulama "test.mdb" ise ve metin kutusuna deneme yazıldıysa alınacak yedeğin adı deneme.mdb olacaktır.
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
Yedek Alma Uygulaması - Yazar: husem - 18/10/2019, 00:25
Cvp: Yedek Al - Yazar: ozanakkaya - 18/10/2019, 09:50
Cvp: Yedek Al - Yazar: ozanakkaya - 18/10/2019, 13:42
Cvp: Yedek Al - Yazar: sipuasfaf - 21/10/2019, 11:35
Cvp: Yedek Alma Uygulaması - Yazar: ozanakkaya - 21/10/2019, 11:47
Cvp: Yedek Alma Uygulaması - Yazar: husem - 21/10/2019, 12:41
Cvp: Yedek Alma Uygulaması - Yazar: sipuasfaf - 21/10/2019, 13:06
RE: Yedek Alma Uygulaması - Yazar: accessman - 13/04/2020, 22:46
Task