AccessTr.neT

Tam Versiyon: Ofis veya Access Sürümünü Öğrenme
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Herkese merhabalar,

Yaptigim proje ile ilgili olarak Access programinin acildigi bilgisayarda ofisin 2003 mu, 2007 mi oldugunu nasil ogrenebilir ve formda bunu gosterebilirim.
Aşağıdaki kodları formun vb sayfasına ekle


Function OfisVersiyonKontrolu()

  Select Case SysCmd(acSysCmdAccessVer)
        Case "8.0"
           OfisVersiyonKontrolu = "97"
        Case "9.0"
           OfisVersiyonKontrolu = "2000"
        Case "10.0"
           OfisVersiyonKontrolu = "2002"
        Case "11.0"
           OfisVersiyonKontrolu = "2003"
        Case "12.0"
           OfisVersiyonKontrolu = "2007"
        Case "14.0"
           OfisVersiyonKontrolu = "2010"
        Case Else
           OfisVersiyonKontrolu = "Bulunamadı"
  End Select

End Function


Formda metin kutusuna yazdıracağın zaman

Metin = OfisVersiyonKontrolu

şeklinde kullan.

Ofis 2013 muhtemelen 15.0 olmalı, ancak emin olmadığım için koda eklemedim.
Sayın ozan,
Evet,bahsettiğiniz gibi Office 2013 için sürüm 15.0 dır.2010 kodu bitimine;

Kod:
Case "15.0"
          OfisVersiyonKontrolu = "2013"

 
Kodu da dahil edilebilir.bilginize.

İyi çalışmalar,
Saygılar.
Cevaplar icin tesekkur ederim.