Prikazi cijelu temu 23.05.2020 17:51
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Re: Custom Menu Access 2007
Kako biste razrijeÅ¡ili povremene zablude. Ne morate instalirati Office / Access kao 64-bitnu aplikaciju samo zato Å¡to imate 64-bitni operativni sustav. Windows x64 pruža izvrstan 32-bitni podsustav koji vam omogućuje pokretanje bilo koje 32-bitne aplikacije bez nedostataka.

Za sada je 64-bitni Office / Access još uvijek izuzetak a nepravilo.

Ako se samo fokusirate na Microsoft Access, zapravo nema razloga za korištenje 64-bitnog izdanja umjesto 32-bitnog.

Nekoliko je razloga da ne koristite 64Bit Access:
-Mnogo ActiveX kontrola koje se često koriste u razvoju pristupa joÅ¡ uvijek nisu dostupne za 64-bitne.
Microsoftove zajedničke kontrole dostupne su za 64-bitne tehnologije od 2017. godine, ali joÅ¡ uvijek postoji određena konfuzija oko koriÅ¡tenja MsComCtl.ocx u 64-bitnom pristupu.

-Upravljački programi / konektori za vanjske sustave poput ODBC baze podataka i posebnog hardvera možda nisu dostupni. - Iako to danas rijetko treba biti problem. Samo ako se trebate povezati s nekim starim naslijeđenim sustavima, to bi mogao biti joÅ¡ uvijek faktor.

-I na kraju, pristupne aplikacije koje koriste Windows API u svom VBA kodu zahtijevat će neki posao migracije kako bi pravilno funkcionirao u x64 okruženju.

Nije moguće mijeÅ¡ati i podudarati 32- i 64-bitne aplikacije iz paketa Microsoft Office.

PreuzmiIzvorni kôd (Visual Basic):
  1. Declare Function aht_apiGetProfileSection Lib "kernel32" Alias "GetProfileSectionA" (ByVal lpAppName As String, ByVal lpReturnedString As String, ByVal nSize As Long) As Long
  2. Declare Function aht_apiWriteProfileString Lib "kernel32" Alias "WriteProfileStringA" (ByVal strAppName As String, ByVal strKeyName As String, ByVal strValue As String) As Integer
  3. Const MAX_VEL = 255
  4. Const MAX_SEK = 2048
  5.  
  6. To tvoje pokusaj rijesiti na sledeci nacin:
  7.  
  8.     #if Win64 then
  9.        Declare PtrSafe aht_apiGetProfileSection Lib "kernel32" Alias "GetProfileSectionA" (ByVal lpAppName As String, ByVal lpReturnedString As String, ByVal nSize As Long) As Long
  10.        Declare PtrSafe  aht_apiWriteProfileString Lib "kernel32" Alias "WriteProfileStringA" (ByVal strAppName As String, ByVal strKeyName As String, ByVal strValue As String) As Integer
  11.     #else
  12.       Declare Function aht_apiGetProfileSection Lib "kernel32" Alias "GetProfileSectionA" (ByVal lpAppName As String, ByVal lpReturnedString As String, ByVal nSize As Long) As Long
  13.       Declare Function aht_apiWriteProfileString Lib "kernel32" Alias "WriteProfileStringA" (ByVal strAppName As String, ByVal strKeyName As String, ByVal strValue As String) As Integer
  14.     #end if
  15.  
  16. Const MAX_VEL = 255
  17. Const MAX_SEK = 2048

Nisam u prilici ovo isprobati pa javi kako se ponasa.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.