Eintag in Tegistry

Question

Hallo und guten Moren!

Mit nachfolgenden Script gab es bei Access 2013  ACCDE Datei keine Warnung beim Start. Bei Access 365 ist das leider nicht mehr der Fall. Beim Versionsabruf wird mir die Version 16 angezeigt. Was eigentlich nach meines Wissens nicht ganz stimmen kann. Es sollte doch die Version 19? angezeigt werden.

Für einen Tipp Besten Dank im voraus

  

dblAccessVersion = SysCmd(acSysCmdAccessVer)

Set ws = CreateObject("WScript.Shell")
sp = CurrentProject.path & "\"
 
Do
s = fnRegRead("HKEY_CURRENT_USER\Software\Microsoft\Office\" & dblAccessVersion & "\Access\Security\Trusted Locations\Location" & i & "\Path")
If s = sp Then
GoTo Start
End If
If s = "" Then
Exit Do
End If
i = i + 1
Loop
 
ws.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Office\" & dblAccessVersion & "\Access\Security\Trusted Locations\Location" & i & "\Path", sp
ws.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Office\" & dblAccessVersion & "\Access\Security\Trusted Locations\Location" & i & "\Date", Now
Start:

mfg

Peter

Answer 1

Hi,

Version 16.0 ist schon richtig. Siehe bspw.:

  Microsoft Office - Versionen

Was auch immer "die Warnung" ist: Solange Du uns deren Inhalt und Ursprung nicht nennst, können wir dir auch nicht sagen, was Du falsch machst.

---

Gruß, Stefan
Microsoft MVP - Visual Developer ASP/ASP.NET (2001-2018)
https://www.asp-solutions.de/ - IT Beratung, Softwareentwicklung, Remotesupport

Answer 2

Hallo,

Mit nachfolgenden Script gab es bei Access 2013  ACCDE Datei keine Warnung beim Start. Bei Access 365 ist das leider nicht mehr der Fall. Beim Versionsabruf wird mir die Version 16 angezeigt. Was eigentlich nach meines Wissens nicht ganz stimmen kann. Es sollte doch die Version 19? angezeigt werden.

Wie kommst du auf die 19? Die Version ist seit 2016 gleich geblieben, siehe auch FAQ 1.1

Gruss - Peter

---

Mitglied im www.dbdev.org
Access-FAQ: www.donkarl.com
Access in Docs: https://docs.microsoft.com/en-us/office/vba/api/overview/access/?WT.mc_id=M365-MVP-10319