Access SQL   ›   ACCESS SORULARI VE ÖRNEK UYGULAMALARI   ›   ACCESS SORULARI   ›   [VBA] Programın Yüklü Olup Olmadığı

[VBA] Programın Yüklü Olup Olmadığı
furkan_68200
Kıdemli Üye 400-1000

*
Kayıt Tarihi: 16.10.2010
Toplam 99 konu açtı.
Toplam 701 yorum yaptı.
Toplam 48 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2013 TR,
Beğeniler: 0 / 2
#1
access-sql-18  10-04-2012, 13:55
Merhaba Arkadaşlar; Yeni bir program yapıyordum..
Programların kurulu olup olmadığını kontrol etmek istedim...
Çalışmasını Sağlayan kod aşağıdaki gibi

Visual Basic
  1. 'FurqanTr Yapım
  2.  
  3. 'Excel kurulu mu kontrol edelim..
  4. On Error GoTo yok
  5. Set ExcelVarmi = CreateObject("Excel.Application")
  6. MsgBox "Excel Kurulu"
  7. Exit Sub
  8. yok:
  9.  MsgBox "Excel kurulu değil"


Bu çalışıyor. WORD'u yaptım.

Visual Basic
  1. 'FurqanTr Yapım
  2.  
  3. 'Word kurulu mu kontrol edelim..
  4. On Error GoTo yok
  5. Set WordVarmi = CreateObject("Word.Application")
  6. MsgBox "Word Kurulu"
  7. Exit Sub
  8. yok:
  9.  MsgBox "Word kurulu değil"


:SORUN:


WORD için yazdığım kod : Tamam çalışıyor fakat CTRL+ALT+DEL yaptığımda

İŞLEMLER sekmesinden baktığımda WORD hala arka planda çalışıyor.. Öneriniz nedir?

Ayrıca bide PowerPoint'i yapamadım. Öneriniz nedir?



  Bul
  Alıntı
Bu mesajı beğenenler:
MirzaKatar
Access Takımı

*
Kayıt Tarihi: 18.10.2010
Toplam 66 konu açtı.
Toplam 1.457 yorum yaptı.
Toplam 17 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2010 TR,
Beğeniler: 0 / 6
#2
10-04-2012, 14:18
İginç bir çalışma. Ne amaçla kullanmayı düşünüyorsunuz?



  Bul
  Alıntı
Bu mesajı beğenenler:
furkan_68200
Kıdemli Üye 400-1000

*
Kayıt Tarihi: 16.10.2010
Toplam 99 konu açtı.
Toplam 701 yorum yaptı.
Toplam 48 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2013 TR,
Beğeniler: 0 / 2
#3
10-04-2012, 14:53
Sayın MirzaKatar;

Yukarıda da belirtmiş olduğum gibi

Furkan Torun [FurqanTr YAPIM demiş ki:Programların kurulu olup olmadığını kontrol etmek istedim...

Sadece amacım buydu. Fakat bazı sıkıntılar yaşıyorum. Çözüm öneriniz var mı? L



  Bul
  Alıntı
Bu mesajı beğenenler:
MirzaKatar
Access Takımı

*
Kayıt Tarihi: 18.10.2010
Toplam 66 konu açtı.
Toplam 1.457 yorum yaptı.
Toplam 17 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2010 TR,
Beğeniler: 0 / 6
#4
10-04-2012, 14:59
Merhaba Furkan;

İlk mesajınızı okumuştum fakat daha farklı bir çalışma alanı olabilir mi düşücesiyle sormuştum o soruyu...

Acaba uygulamanızda microsoft word/powerpoint 1X.0 object library referansı mevcut mu?



  Bul
  Alıntı
Bu mesajı beğenenler:
Taruz
Forum Yöneticisi

*
Kayıt Tarihi: 04.03.2008
Toplam 371 konu açtı.
Toplam 7.540 yorum yaptı.
Toplam 236 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2010, Office 2019,
Beğeniler: 56 / 56
#5
10-04-2012, 15:12
Bunun için direkt dosya oluşturmak değil de yerinde olup olmadığını kontrol etmek daha mantıklı bence..:

Visual Basic
  1. 'word için
  2. If Len(Dir(Left(Environ("Path"), _
  3. InStr(1, Environ("Path"), ";") - 1) & "WINWORD.exe")) = 0 Then _
  4. MsgBox "word kurulu değil." Else: MsgBox "word kurulu"
  5.  
  6. 'excel için
  7. If Len(Dir(Left(Environ("Path"), _
  8. InStr(1, Environ("Path"), ";") - 1) & "EXCEL.exe")) = 0 Then _
  9. MsgBox "EXCEL kurulu değil." Else: MsgBox "EXCEL kurulu"
  10.  
  11.  
  12. 'POWERPOINT için
  13. If Len(Dir(Left(Environ("Path"), _
  14. InStr(1, Environ("Path"), ";") - 1) & "POWERPNT.exe")) = 0 Then _
  15. MsgBox "POWERPOINT kurulu değil." Else: MsgBox "POWERPOINT kurulu"


Bulunamayan yerleri bulmak için önce kaybolmak gerekir.
Kaptan Hector Barbossa


SORU SORMA KILAVUZU
Giriş | Sormadan Önce | İlgili Forumu dikkatlice seçin | Anlamlı ve duruma uygun konu başlıkları kullanın | Anlamsız soru cümleleri kurmayın | Açık, dilbilgisi kurallarına uygun ve sözdizimlerine dikkate ederek yazın | Sorunuz sizin için çok acil olsa bile, çok acil diye yazmayın | Sorununuz hakkında tam ve aydınlatıcı iletiler yazın | Amacınızı belirtin | Problemin belirtilerini tanımlayın, kendi tahminlerinizi değil | Sorunuz hakkında açık olun | Nezaket asla yaralamaz ve bazen oldukça yararlıdır | Boyut her şey değildir! | Kabalıkla ilgilenmek | Cevabı E-Posta ile istemeyin | İnsanlardan özel mesajla cevap vermelerini istemeyin | Eğer cevabı anlamadıysanız | Şayet bir cevap alamazsanız | Sorununuz çözüldükten sonra küçük bir not ile bildirin | Sorulmaması gereken türde sorular | İyi ve kötü sorular

Sorulara nasıl doğru düzgün cevap verilir



  Website   Bul
  Alıntı
Bu mesajı beğenenler:
furkan_68200
Kıdemli Üye 400-1000

*
Kayıt Tarihi: 16.10.2010
Toplam 99 konu açtı.
Toplam 701 yorum yaptı.
Toplam 48 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2013 TR,
Beğeniler: 0 / 2
#6
10-04-2012, 15:20
Sayın Taruz;
Sorun çözüldü...

Yardım eden herkese teşekkürler...



  Bul
  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  Dağıtılan Programın Kullanılıp Kullanmadığı osman06 4 277 21-11-2025, 23:37
Son Mesaj: dsezgin
  Programın Geleceği varmı çalışmaya devam etmelimiyim. sonerdursun 6 2.729 09-01-2021, 19:37
Son Mesaj: sonerdursun
  [FORM] formlarda değer olmadığı zaman göstermiyor ksy1981 1 1.129 19-04-2017, 16:06
Son Mesaj: onur_can
  [FORM] programın başka yerde açılması ebkara 1 1.284 04-10-2015, 22:54
Son Mesaj: dsezgin
  programın başka bilgisayarda kullanılmasına engel m çakıcı 13 7.395 01-11-2013, 22:49
Son Mesaj: dsezgin
  [MAKRO] acceste yazilan programin belli bir tarihten sonra calismamasi? rdm52 1 1.499 13-09-2013, 09:39
Son Mesaj: dazi
access-sql-18 [SORGU] Sorgu ile iki tablo arasında birinde olup diğer tabloda olmayan verileri listelemek myesilyurt 2 2.088 14-07-2013, 23:51
Son Mesaj: myesilyurt
  [SORGU] Bir Sütunun Tabloda olup olmadığını nasıl buluruz? ali33 8 4.029 08-06-2012, 13:39
Son Mesaj: ali33

Foruma Git:


Bu konuyu görüntüleyen kullanıcı(lar): 1 Ziyaretçi