Da Access 2007 ad Access 2016: errore istruzione Declare

Question

Ciao,

come da oggetto, vi posto l'immagine dell'errore:

Sinceramente, non ho capito come risolvere.

Vladimiro

Answer 1

ciao Vladimiro,

con office 2010 e l'introduzione di office a 64bit di cui peraltro,  MSFT sconsiglia, tranne qualche caso, l'installazione, l'uso delle Api che già è complicato di suo è diventato molto complicato.

Se utilizzi Api con piattaforme diverse ti consiglio l'uso della compilazione condizionale :

vedi se così funziona, da me si :

#If Win64 Then  

Private Declare PtrSafe Function ba_accOfficeGetFileName _

 Lib "msaccess.exe" Alias "#56" _

 (gfni As  bac_accOfficeGetFileNameInfo , fOpen As Integer) As Long

Public Type bac_accOfficeGetFileNameInfo

    hWndOwner As LongPtr

    strAppName As String * 255

    strDlgTitle As String * 255

    strOpenTitle As String * 255

    strFile As String * 4096

    strInitialDir As String

    strFilter As String * 255

    lngFilterIndex As Long

    lngView As Long

    lngFlags As Long

End Type

#Else

Private Declare Function ba_accOfficeGetFileName _

 Lib "msaccess.exe" Alias "#56" _

 (gfni As  bac_accOfficeGetFileNameInfo , fOpen As Integer) As Long

Public Type bac_accOfficeGetFileNameInfo

    hWndOwner As Long

    strAppName As String * 255

    strDlgTitle As String * 255

    strOpenTitle As String * 255

    strFile As String * 4096

    strInitialDir As String

    strFilter As String * 255

    lngFilterIndex As Long

    lngView As Long

    lngFlags As Long

End Type

#End If

E' un argomento molto ampio da approfondire, parti magari da qui :

http://www.jkp-ads.com/articles/apideclarations.asp

e secondo me, meglio optare per il fileDialog, visto che c'è non è più necessario appoggiarsi alle Api.

Ciao, Sandro.

Answer 2

Ciao Sandro,

mille grazie.

Vladimiro