Skip to main content

AccessTr.neT

Kayıt Ol

 | Facebook ile Bağlan  | Twitter İle Bağlan | Google+ İle Bağlan

vbs ile program açma kapama komutu

karabattak
karabattak
Access Cevaplanmış Soruları
7
17370

vbs ile program açma kapama komutu

Çözüldü #1
karabattak
Aktif Üye
karabattak
Bul
Aktif Üye
Adı Soyadı:
Yaşı: 45
Konum: Batman
Ofis Versiyonu: Ofis 2003
Son Oturumu: 07/01/2020,23:37
Yorumları: 32
Konuları: 12
Kayıt Tarihi: 28/12/2009
Teşekkür Puanı: 0
arkadaşlar merhaba
access ile yapılmış olan bir programını vbscript ile bu kodu yazarak 

Sub Klasor_Kopyala()
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")

fso.copyfolder "C:\kaynak_klasör", "C:\hedef_klasör"
msgbox "Güncelleme Yapıldı "
End Sub
call klasor_kopyala
güncelleyebiliyorum. bu kod kaynak dizinden güncel versiyonu kullanıcıların kullandığı hedef klasöre başarılı şekilde kopyalıyor.

sorum şu vbscript kodunda bir programı açma yada kapatma komutu varmıdır.
amacım accesime bir buton atasam bu buton vbscirpt'i çalıştırsa ama önce accessimi kapatsa sonra yukarıdaki kod devreye girse programın güncel sürümünü klasöre kopyalasa en sonda güncel Access dosyamı açsa
bu konuda bilgisi olan arkadaşlardan yardım rica ediyorum.
şimdiden cevap vereceklere teşekkür ederim.
karabattak, 28-12-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
Çözüldü #2
mehmetdemiral
.
mehmetdemiral
Bul
Uzman
Adı Soyadı: Me.... De....
Yaşı: 60
Konum: Samsun
Ofis Versiyonu: Ofis 2013 32 Bit
Son Oturumu: 10/07/2024,19:24
Yorumları: 5.123
Konuları: 224
Kayıt Tarihi: 30/10/2008
Teşekkür Puanı: 1.947
Mesleğiniz: Öğretmen
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.
İnadına, ille de Accesstr.net...
Cevapla
Çözüldü #3
karabattak
Aktif Üye
karabattak
Bul
Aktif Üye
Adı Soyadı:
Yaşı: 45
Konum: Batman
Ofis Versiyonu: Ofis 2003
Son Oturumu: 07/01/2020,23:37
Yorumları: 32
Konuları: 12
Kayıt Tarihi: 28/12/2009
Teşekkür Puanı: 0
(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.
karabattak, 28-12-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
Çözüldü #4
mehmetdemiral
.
mehmetdemiral
Bul
Uzman
Adı Soyadı: Me.... De....
Yaşı: 60
Konum: Samsun
Ofis Versiyonu: Ofis 2013 32 Bit
Son Oturumu: 10/07/2024,19:24
Yorumları: 5.123
Konuları: 224
Kayıt Tarihi: 30/10/2008
Teşekkür Puanı: 1.947
Mesleğiniz: Öğretmen
Sanırım şöyle olabilir:

WshShell.Run "C:\Program Files\Microsoft Office\Office14\msaccess.exe /c:\ornek\ornek.mdb"

Bir deneyin. Bu açma kodu bende çalışmadı, sizde accessi açtı mı? Ben arşivimden bu kodu alıp gönderdim, deneyememiştim. Şimdi denedim bende çalışmadı. Sizde durum ne? Bir de son yazdığımı bir deneyin bakalım. Bat dosyalarında ve RDP işlemlerinde böyle yapıyoruz, vbs'de de aynen olabilir.
İnadına, ille de Accesstr.net...
Cevapla
Çözüldü #5
karabattak
Aktif Üye
karabattak
Bul
Aktif Üye
Adı Soyadı:
Yaşı: 45
Konum: Batman
Ofis Versiyonu: Ofis 2003
Son Oturumu: 07/01/2020,23:37
Yorumları: 32
Konuları: 12
Kayıt Tarihi: 28/12/2009
Teşekkür Puanı: 0
(02/05/2012, 17:07)mehmetdemiral yazdı: Sanırım şöyle olabilir:

WshShell.Run "C:\Program Files\Microsoft Office\Office14\msaccess.exe /c:\ornek\ornek.mdb"

Bir deneyin. Bu açma kodu bende çalışmadı, sizde accessi açtı mı? Ben arşivimden bu kodu alıp gönderdim, deneyememiştim. Şimdi denedim bende çalışmadı. Sizde durum ne? Bir de son yazdığımı bir deneyin bakalım. Bat dosyalarında ve RDP işlemlerinde böyle yapıyoruz, vbs'de de aynen olabilir.

Mehmet hocam

WshShell.Run "C:\Program Files\Microsoft Office\Office14\msaccess.exe /c:\ornek\ornek.mdb"
yukarıdaki kod çalışmadı maalesef ama fikir verdi bana kodu aşağıdaki gibi yazınca istediğim mdb uzantılı dosyayı açabildim.

'burası msaccess.exe yi açıyor

set calistir = createobject("wscript.shell")
calistir.run "msaccess.exe"

'bu kod 1 saniye bekletiyor

wscript.sleep(1000)

'bu kod ilgili örnek.mdb dosyamızı açıyor.

set calistir = createobject("wscript.shell")
calistir.run "c:\örnek.mdb"

ilginiz için teşekkür ederim.
saygılar.
karabattak, 28-12-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
#6
userx
Uzman
userx
Bul
Uzman
Adı Soyadı:
Konum: -
Ofis Versiyonu: Ofis 2019 32 Bit
Son Oturumu: 05/04/2025,21:45
Yorumları: 601
Konuları: 2
Kayıt Tarihi: 24/08/2009
Teşekkür Puanı: 179
(03/05/2012, 01:59)karabattak yazdı: Ben de bir buton ekleyip aşağıdaki komutla hallettim. Belki işinize yarar.
Private Sub Komut107_Click() 

Dim dosyaac As String
dosyaac = "MSACCESS.EXE C:\örnek.accdb"
Call Shell(dosyaac, 1)

End Sub
"Dünyayı fazla düşünme."
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task