AccessTr.neT

access dosyam kapatıldığı zaman yedek almasını istiyorum. forumu biraz araştırdım ve 

xcopy "D:\aa\x.mdb" D:\aa\"%date%"\/y

şeklinde bir bat dosyası oluşturdum. tarih isimli bir klasor açıp yedekliyor. işimi görecek ancak bu bat dosyasının Access kapandığı an otomatik çalışacağı şekilde accessin içine gömemedim. 
access da çok iyi olmadığım için komplex kodlar yazamıyorum. (yaş da ilerlediği için artık eskisi kadar iyi düşünemiyorum  )
ayrıca yazdığım bat dosyası tarih isimli bir klasor açıp içine kopyalıyor. bunun yerine kopyalanan dosyanın ismini tarih-saat olarak nasıl yaptırırım onu da bulamadım.

teşekkür ederim

merhaba,bat dosyasını programınızın yanına koyup,aşagıdaki kodu ekleyin,yada yolunu siz ayarlamalısınız.
call shell (currentproject.path & "\yeni.bat")
bu kodu deneyin

(22/08/2017, 08:00)C*e*l*o*y*c*e yazdı: [ -> ]merhaba,bat dosyasını programınızın yanına koyup,aşagıdaki kodu ekleyin,yada yolunu siz ayarlamalısınız.
call shell (currentproject.path & "\yeni.bat")
bu kodu deneyin

teşekkür ederim ama söylemek istediğinizi anlayamadım. biraz daha açarmısınız.

ben Access içindeki makro ya da moduller kullanarak bu bat dosyasını Access kapanırken çalıştırmayı düşünmüştüm.

bu kodu kapatırken kodlarınıın yanına yazacaksın, bat dosyanıda  acces programının oldugu yere koyacaksın

sadece Access Vba da çalıştırmak isterseniz. (örneğinizi eklese idiniz yapıp gönderirdim.)


aşağıdaki kodu kendinize göre uyarlayınız.

Dim wsh As Object

Set wsh = VBA.CreateObject("WScript.Shell")

Dim waitOnReturn As Boolean: waitOnReturn = True

Dim windowStyle As Integer: windowStyle = 1



wsh.Run "cmd.exe /S /C "xcopy D:\aa\x.mdb" & "D:\aa\"%date%"\/y", windowStyle, waitOnReturn

varyasyon olarak denemeler yaparak ayarlayabilirsiniz

Bu bizim mtorcu eski excelwebtr'den arkadaş, doktor Mehmet Torcu mu?