Oprettet man. d. 03. september 2012 kl. 15:21:51

brandmand
brandmand (20.307 point. Point ude: 400)

Kode til at checke operativ system / version af Office

Hej


Har behov for et stykke kode som kan checke for operativ system  / version af Office, når en bruger åbner en database...

Hvis OS = Windows 7 - giv advarsel og luk databasen

Hvis Office version = Større en 2003 - giv advarsel og luk databasen


Hvis OS er XP og Office er 2003 åben databasen og lad bruger arbjede.


Kan dette laves?

Skrevet man. d. 03. september 2012 kl. 22:21:26| #1

Her står lidt:
http://www.dbforums.com/ (...)
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/ (...)

Skrevet tor. d. 04. oktober 2012 kl. 11:46:48| #2

MSchlamovitz
MSchlamovitz (1.800 point)
At lukke for Access, hvis det ikker ver. 2003:

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

Skrevet fre. d. 05. oktober 2012 kl. 17:40:00| #3

brandmand
brandmand (20.307 point)
@ MSchlamovitz - Hvor skal jeg indsætte din kode?

Skrevet fre. d. 05. oktober 2012 kl. 18:41:16| #4

MSchlamovitz
MSchlamovitz (1.800 point)
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.

Skrevet søn. d. 13. januar 2013 kl. 20:47:19| #5

brandmand
brandmand (20.307 point)
Point til MSchlamovitz

Skrevet søn. d. 13. januar 2013 kl. 20:47:41| #6


Skrevet søn. d. 13. januar 2013 kl. 20:50:22| #7

brandmand
brandmand (20.307 point)
Point til MSchlamovitz - smid et svar

Skrevet søn. d. 13. januar 2013 kl. 22:12:51| #8

MSchlamovitz
MSchlamovitz (1.800 point)
godt at du kunne bruge det

Skriv et indlæg




Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] [img]link til billede[/img]
Web- og emailadresser omdannes automatisk til links

Log ind

   


Seneste spørgsmål

Overfør dato til en popup

Oprettet den 18. juni 2013 kl. 18.28
per2edb giver 30 point for svar | Giv et svar »

Ændre afkrydsningfelt til liste

Oprettet den 15. juni 2013 kl. 12.40
hcthorsen giver 60 point for svar | Giv et svar »

lager styring Access eller excel

Oprettet den 13. juni 2013 kl. 14.32
peja_ giver 30 point for svar | Giv et svar »







IT Kurser
Samarbejdspartnere

Udgiver · © 2013 Computerworld A/S · Hørkær 18 · 2730 Herlev · Tlf.: 77 300 300 · Fax: 77 300 301 · Brug af personoplysninger