Форумы HiProg.com - MS ACCESS, VBA, VB

ник: АлексейЕ

Select Case strAccessVersion      Case "11.0"  'Это для 2003 Access         strSecurity = "HKEY_CURRENT_USER\Software\Microsoft\Office\11.0\Access\security\Level"      Case  "12.0"  'Это для 2007 Access         strSecurity = "HKEY_CURRENT_USER\Software\Microsoft\Office\12.0\Access\Security\VBAWarnings"      Case  "14.0"  'Это для 2010 Access         strSecurity = "HKEY_CURRENT_USER\Software\Microsoft\Office\14.0\Access\Security\VBAWarnings"  End Select