(01/05/2012, 15:39)mehmetdemiral yazdı: Kapatmak için
Set objShell = CreateObject("WScript.Shell")
Set objWmi = GetObject("winmgmts:")
strWmiq = "select * from Win32_Process where name='Msaccess.exe'"
Set objQResult = objWmi.Execquery(strWmiq)
For Each objProcess In objQResult
intRet = objProcess.Terminate(1)
Next
Açmak için:
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "C:\Program Files\Microsoft Office\Office14\msaccess.exe"
Bunu denemedim ama bu şekilde çalışması lazım. Bu arada Access için sizde geçerli olan yolu yazarsınız. Ben 2010 için office14 yazdım ama sizdeki versiyon ya da kurulum yeri farklı olabilir.
Sn. Mehmet Demiral hocam
cevap için teşekkür ederim.
ilk yazdığınız kod Access programını kapatıyor. bunda sorun yok.
ikinci yazdığınız kod ise sadece Access programını çalıştırıyor.
aslında şöyle bir komut varmı vbscript'de
c:\klasöradi\örnek.mdb bu dosyamın adı olsun
komut ile bu dosya açılabilirmi?
tekrardan teşekkür ederim.