Kode til at checke operativ system / version af Office

Her står lidt:
http://www.dbforums.com/microsoft-access/1197551-get-office-version-vba.html
Som antydet et sted, er office et samlebegreb for dele som word,excel, osv. og de enkelte dele kan godt tilhøre forskellige versioner.
Man kan læse i registry vha.

Function regData(regKey)
    With CreateObject("WScript.Shell")
        regData = .regread(regKey)
    End With
End Function

og f.eks finde Access versionen med

regdata("HKCR\Access.Application\CurVer\")

Resultat kommer som  f.eks 'Access.Application.9' for access 2000,  jævnfør ovennævnte link

OS version:
http://access.mvps.org/access/api/api0055.htm

At lukke for Access, hvis det ikker ver. 2003:

If Application.version <> "11.0" then DoCmd.Quit

@ MSchlamovitz - Hvor skal jeg indsætte din kode?

Den bedste løsning:
Du har sikkert en formular, der åbner når du åbner databasen. Det kunne være på denne formulars OnOpen event (VedÅbning)

Næstebedste løsning:
Hvis du ikke har en formular, kan du oprette et modul og skrive følgende kode:

Public Sub Versionstjek
  If Application.version <> "11.0" then DoCmd.Quit
End Sub

Derefter opretter du en autoexec-makro, der kører kode Versionstjek.

Point til MSchlamovitz

MSchlamovitz

Point til MSchlamovitz - smid et svar

godt at du kunne bruge det