Erreur PTRSAFE + DeclareFermé

Question

Bonjour à tous,
Je suis assez désemparé face à mon souci...

J'ai changé de pc et je n'arrive plus à ouvrir mon fichier access sur lequel je dois travailler
En effet voici le message d'erreur :




Malheureusement je ne suis pas du tout programmateur et je suis donc dans une impasse.

Un idée de comment je pourrais m'en sortir?

Merci d'avance et merci beaucoup !

f894009 · Answer

Bonjour,

J'ai changé de pc et je n'arrive plus à ouvrir mon fichier 
A priori vous etes passe d'un office 32 bits a un office 64 bits et vous utilisez des API Windows dans le code de votre base Access.
Vous devez chercher le genre  de lignes de code ci-dessous. 

' --- DECLARATION API WINDOWS PtrSafe, LongPtr
#If VBA7 Then       '64bits
    Private Declare PtrSafe Function FindWindowA Lib "User32" _
    (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr
    
    Private Declare PtrSafe Function GetWindowLongA Lib "User32" _
    (ByVal hwnd As Long, ByVal nIndex As Long) As LongPtr
     
    Private Declare PtrSafe Function SetWindowLongA Lib "User32" _
    (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As LongPtr
#Else
    Private Declare Function FindWindowA Lib "User32" _
    (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
    
    Private Declare Function GetWindowLongA Lib "User32" _
    (ByVal hwnd As Long, ByVal nIndex As Long) As Long
     
    Private Declare Function SetWindowLongA Lib "User32" _
    (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
#End If

Pour Ouvrir la fenetre VBA,
 lancez votre fichier base
Appuyez sur ctrl+f11
Double cliquez sur un module ou un formulaire
Menu Ruban, click sur la paire de jumelle et faire comme sur cette image





sur cette image module en cours est selectionne, il faut projet en cours Access joue des tours avec les clicks decoupage image

Si vous ne connaissez vraiment a la programmation VBA, pouvez vous mettre votre fichier a dispo

Pour transmettre un fichier,
Veillez a ce qu'il n'y ait PAS DE DONNEES CONFIDENTIELLES
il faut passer par un site de pièce jointe tel que cjoint.com

Allez sur ce site : https://www.cjoint.com/
Clic sur parcourir,
Cherche ton fichier,
clic sur ouvrir,
Clic sur "Créer le lien cjoint",
Copier le lien,
Revenir ici le coller dans une réponse...

ITWTOM · Answer

Bonjour,

Merci pour votre réponse !
Effectivement j'arrive à trouver les codes en question, il sont rouges

Par exemple celui ci :
Declare Function IsZoomed Lib "User32" (ByVal Hwnd As Long) As Long
Private Declare Function apiShowWindow Lib "User32" _
Alias "ShowWindow" (ByVal Hwnd As Long, _
ByVal nCmdShow As Long) As Long


Ou celui ci : 
Declare Function GetActiveWindow Lib "User32" () As Long
Declare Function GetDesktopWindow Lib "User32" () As Long
Declare Sub GetWindowRect Lib "User32" (ByVal Hwnd As Long, _
lpRect As RECT_Type)
Declare Function GetDC Lib "User32" (ByVal Hwnd As Long) As Long
Declare Function CreateCompatibleDC Lib "Gdi32" (ByVal hdc As Long) _
As Long
Declare Function CreateCompatibleBitmap Lib "Gdi32" (ByVal hdc _
As Long, ByVal nWidth As Long, _
ByVal nHeight As Long) As Long
Declare Function SelectObject Lib "Gdi32" (ByVal hdc As Long, _
ByVal hObject As Long) As Long
Declare Function BitBlt Lib "Gdi32" (ByVal hDestDC As Long, _
ByVal X As Long, ByVal Y _
As Long, ByVal nWidth As Long, _
ByVal nHeight As Long, _
ByVal hSrcDC As Long, _
ByVal XSrc As Long, _
ByVal YSrc As Long, _
ByVal dwRop As Long) As Long
Declare Function OpenClipboard Lib "User32" (ByVal Hwnd As Long) As Long
Declare Function EmptyClipboard Lib "User32" () As Long
Declare Function SetClipboardData Lib "User32" (ByVal wFormat As Long, _
ByVal hMem As Long) As Long
Declare Function CloseClipboard Lib "User32" () As Long
Declare Function ReleaseDC Lib "User32" (ByVal Hwnd As Long, _
ByVal hdc As Long) As Long
Declare Function DeleteDC Lib "Gdi32" (ByVal hdc As Long) As Long

Que dois-je modifier du coup?

f894009 · Answer

Bonjour,

Vous avez un exemple dans le code que je vous ai mis a dispo.
Mettre PtrSafe entre Declare et Function
Remplacer  As Long par As LongPtr apres la parentese ")" de fin

ex pour la dernire API:
Declare PtrSafe Function DeleteDC Lib "Gdi32" (ByVal hdc As Long) As  LongPtr

ITWTOM · Answer

Bonjour 
Merci !
J'ai inséré PtrSafe après chaque Declare
Pareil pour le LongPtrSafe.

Par contre, dois-je aussi mettre le LongPtrSafe aussi dans ce cas là vu qu' il ny a pas de parenthese :
Declare PtrSafe Function GetActiveWindow Lib "User32" () As Long

ITWTOM · Answer

Tenez... :)

https://www.cjoint.com/c/LEuhEgi8dAs

Erreur PTRSAFE + Declare

5 réponses

Discussions similaires

Newsletters