wat moet ik hierin veranderen zodat die ook op 64 bits draait

[dinoshop]

(code)
'API Declarations
Declare Sub GetWindowRect Lib "user32" (ByVal Hwnd As Long, lpRect As FormCoords)
Declare Function GetDC Lib "user32" (ByVal Hwnd As Long) As Long
Declare Function ReleaseDC Lib "user32" (ByVal Hwnd As Long, ByVal hdc As Long) As Long
Declare Function GetDeviceCaps Lib "gdi32" (ByVal hdc As Long, ByVal nIndex As Long) As Long

(/CODE)

 

[OctaFish]

Ik snap je vraag niet. Als je Office gebruikt op een 64 bits systeem (en wie doet dat tegenwoordig niet) hoef je niks aan te passen aan je Office. Tenzij je hebt besloten in een moment van lichtzinnigheid om de 64-bits versie van Office te installeren. Maar zo gek zul je toch niet geweest zijn? Microsoft zelf beveelt dat ten sterkste af, en zegt zelf dat je gewoon de 32 bits versie moet installeren.

 

[dinoshop]

Snap je

Ik begrijp je
maar een kennis wil een programma van mij draaien in Office 64 op een 64 bits systeem
zelf werk ik op bijde machines op office 32 bits
hij krijgt dus de melding dat dit deel moet worde aangepast alvorens deze gaat werken op 64

 

[OctaFish]

Je kunt geen db's uitwisselen tussen de 2 systemen. Daarom alleen al is het volslagen onzinnig om een 64 bits te installeren. Je doet er beter aan om die kennis de tip te geven om zijn 64 bits systeem waar hij niks aan heeft te vervangen door een 32 bits systeem dat volkomen identiek werkt, net zo snel is, en volledig compatibel met andere db's. Er is geen enkele zinnige reden te bedenken om Office 64 bits te draaien. En de db's zijn dus niet uitwisselbaar. Need I say more?

 

[perpon]

De (eigenwijze) klant is nou eenmaal koning dus:

'API Declarations
 Declare Sub GetWindowRect Lib "user32" (ByVal Hwnd As Long, lpRect As FormCoords)
 Declare Function GetDC Lib "user32" (ByVal Hwnd As Long) As Long
 Declare Function ReleaseDC Lib "user32" (ByVal Hwnd As Long, ByVal hdc As Long) As Long
 Declare Function GetDeviceCaps Lib "gdi32" (ByVal hdc As Long, ByVal nIndex As Long) As Long

moet worden

'API Declarations
#If  Win64 then
'API Declarations
Declare Sub PrtSafe GetWindowRect Lib "user32" (ByVal Hwnd As Long, lpRect As FormCoords)
Declare Function PrtSafe GetDC Lib "user32" (ByVal Hwnd As Long) As Long
Declare Function PrtSafe ReleaseDC Lib "user32" (ByVal Hwnd As Long, ByVal hdc As Long) As Long
Declare Function PrtSafe GetDeviceCaps Lib "gdi32" (ByVal hdc As Long, ByVal nIndex As Long) As Long
#Else 
Declare Sub GetWindowRect Lib "user32" (ByVal Hwnd As Long, lpRect As FormCoords)
Declare Function GetDC Lib "user32" (ByVal Hwnd As Long) As Long
Declare Function ReleaseDC Lib "user32" (ByVal Hwnd As Long, ByVal hdc As Long) As Long
Declare Function GetDeviceCaps Lib "gdi32" (ByVal hdc As Long, ByVal nIndex As Long) As Long
#End if

En verder zelf maar even googlen naar het hoe en waarom (niet) van dit alles.
N.b. De accdb versie kun je wel uitwisselen, vermits eerst gedecompileerd op het desbetreffende systeem.
De Accde of accdr versies zijn niet uitwisselbaar

Jan

 

[edmoor]

Wel even de tthen wijzigen in Then

 

[OctaFish]

Oplossingen zijn er uiteraard altijd wel te vinden op dit soort problemen. De vraag moet niet zijn: kun je er eventueel een mouw aanpassen, maar moet je ervoor zorgen dat je het probleem überhaupt niet krijgt... En dat is dus: Office 64 bits eraf, en Office 32 bits erop. Simple as.... Waarom problemen opzoeken als er geen enkele reden voor is? Zeker als 'normale' Office gebruiker moet je dit soort vraagstukken helemaal niet willen opzoeken. Masochisten uitgezonderd natuurlijjk.