none
Eintag in Tegistry RRS feed

  • Frage

  • 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


    Sonntag, 20. Oktober 2019 08:33

Antworten

  • 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


    Sonntag, 20. Oktober 2019 21:32
    Moderator

Alle Antworten

  • 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

    Sonntag, 20. Oktober 2019 09:35
    Moderator
  • 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


    Sonntag, 20. Oktober 2019 21:32
    Moderator