Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
01/05/2012 13:02
Konu Sahibi
karabattak
Yorumlar
7
Okunma
11477
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
karabattak

karabattak

Aktif Üye
13411
 39
 12
 32
 28/12/2009
0
 Batman
 
 Ofis 2003
 27/11/2017,17:56
Çözüldü 
arkadaşlar merhaba
access ile yapılmış olan bir programını vbscript ile bu kodu yazarak

Visual Basic Code
1
2
3
4
5
6
7
8
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.

mehmetdemiral

mehmetdemiral

Uzman
17
Me.... De....
 54
 219
 4.937
 30/10/2008
 Samsun
 Öğretmen
 Ofis 2013 32 Bit
 24/06/2019,22:53
Çözüldü 
Kapatmak için

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
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:

Visual Basic Code
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...

...........
karabattak

karabattak

Aktif Üye
13411
 39
 12
 32
 28/12/2009
0
 Batman
 
 Ofis 2003
 27/11/2017,17:56
Çözüldü 
(01/05/2012 15:39)mehmetdemiral Adlı Kullanıcıdan Alıntı: Kapatmak için

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
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:

Visual Basic Code
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.

mehmetdemiral

mehmetdemiral

Uzman
17
Me.... De....
 54
 219
 4.937
 30/10/2008
 Samsun
 Öğretmen
 Ofis 2013 32 Bit
 24/06/2019,22:53
Çözüldü 
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...

...........
karabattak

karabattak

Aktif Üye
13411
 39
 12
 32
 28/12/2009
0
 Batman
 
 Ofis 2003
 27/11/2017,17:56
Çözüldü 
(02/05/2012 17:07)mehmetdemiral Adlı Kullanıcıdan Alıntı: 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

Visual Basic Code
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.

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
'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.

userx

userx

Üye
9174
 37
 0
 6
 24/08/2009
6
 -
 
 -
 24/06/2019,17:38
(03/05/2012 01:59)karabattak Adlı Kullanıcıdan Alıntı: 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


userx, 24-08-2009 tarihinden beri AccessTr.neT üyesidir.

...........

Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Dlookup Komutu Veri Kaydetmeme Sorunu legolasiseyes 4 257 24/04/2019, 22:15
Son Yorum: halily
Çözüldü Update Komutu fkilic76 3 184 20/03/2019, 20:48
Son Yorum: fkilic76
Çözüldü Aktif Form Kaydının Raporunu Açma mahsumyavuz 2 168 02/03/2019, 13:26
Son Yorum: mahsumyavuz
Çözüldü Yeni Formda Açma access acemisi 4 247 02/03/2019, 10:23
Son Yorum: access acemisi
Çözüldü Program Açılışında Hata Veriyor Deniz DEMİRCİOĞLU 15 373 20/02/2019, 23:57
Son Yorum: halily

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2019 MyBB Group.