Auteur Topic: Bestand van 32-bit naar 64-bit (gelezen 902 keer)

SoftAid · « **Gepost op:** 24 februari 2024, 14:51:01 »

Hallo,

voor een neef heb ik eens een kassa-programma "gemaakt" (= laten maken en aangepast voor zijn noden) en dat was nog in de tijd dat alles 32-bits was.

Nu heeft mijn neef een 64 bits laptop gekocht, en dat 32-bit prog werkt in de Excel 2021 die er opgezet is niet.

bij de code in een Klassenmodule:

Code: [Selecteer]

Option Explicit

' 32-bit API declaration
 Private Declare Function GetSystemMetrics32 Lib "user32" _
    Alias "GetSystemMetrics" (ByVal nIndex As Long) As Long

' 16-bit API declaration
 Private Declare Function GetSystemMetrics16 Lib "user" _
    Alias "GetSystemMetrics" (ByVal nIndex As Integer) As Integer

Const SM_CXSCREEN = 0
Const SM_CYSCREEN = 1

Waar hij valt over de eerste "Function" in de eerste regel.
Er horen nog twee macro's bij één voor de schermhoogte en één voor de schermbreedte
Die zijn afhankelijk van de Declaratie hierboven waarin het fout gaat.

Hij geeft de volgende foutmelding:

Weet iemand hoe een dergelijke "bijwerking" moet gebeuren? De instructies zijn latijn voor mij.

Het werkboek is veel te groot om aan te hangen, maar indien nodig kan ik er wel een groot deel van afschaven om het toch te kunnen plaatsen.
De betreffende code dient om de schermresolutie en/of afmetingen aan te passen.

Dank voor elke suggestie.

SoftAid

Della Jordan · « **Reactie #1 Gepost op:** 24 februari 2024, 15:11:08 »

Beste Softaid,
Als ik alles zo doorlees, heeft je neef zoals zovelen de fout gemaakt om office 64 bit te hebben geïnstalleerd.
64 bit laptop heeft niets te maken 64 bit Office, dit zijn 2 compleet verschillende dingen.
Je neef kan perfect een 32 bit office laten draaien op een 64 bit laptop
Mijn advies is als ik de foutmeldingen zo lees, verwijder office 64 bits en installeer op de 64 bits laptop office 32 bits, en alles zal terug werken.
Office 64 bits heb je alleen nodig als je veel rekenkracht nodig hebt zoals universiteiten of werkt met (office bestanden) van meer dan 2 Gb.
Maar met het stukje beperkte code dat ik zie.

verander anders eens

Code: [Selecteer]

Alias "GetSystemMetrics" (ByVal nIndex As Long) As Longin

Code: [Selecteer]

Alias "GetSystemMetrics" (ByVal nIndex As Long) As LongPtr

SoftAid · « **Reactie #2 Gepost op:** 24 februari 2024, 16:00:55 »

Hallo Della,

Tja, ik zou er ook niet aan gedacht hebben, moest ik de aankoop gedaan hebben....
Maar hij heeft die laptop gekocht met Office 2021 erop, dat kan zo maar niet veranderd worden, veronderstel ik (geen ervaring mee)

Je voorstel code, toepassen op de 16 bit of op de 32 bit?

Mvg,

SoftAid

Della Jordan · « **Reactie #3 Gepost op:** 24 februari 2024, 16:07:35 »

Het gaat over Long (32 declaratie)

Della Jordan · « **Reactie #4 Gepost op:** 24 februari 2024, 16:17:35 »

Vraag eens aan je neef om een leeg Excel bestand te openen.
Ga dan naar bestand -> account -> Info over Excel, als daar helemaal bovenaan staat op het einde 64 bits, tja dan gaat geen enkele vroegere vba code meer werken in geen enkel bestand zonder de prt aanpassingen.

Della Jordan · « **Reactie #5 Gepost op:** 24 februari 2024, 16:28:44 »

Citaat van: Della Jordan op 24 februari 2024, 16:17:35

tja dan gaat geen enkele vroegere vba code meer werken in geen enkel bestand zonder de prt aanpassingen.

Wat bedoel je met "prt aanpassingen"? Ik heb enkele andere bestanden getest, en die werken wel (ook heel oude )

Citaat

Maar hij heeft die laptop gekocht met Office 2021 erop

Heeft hij het installatie programma van office of alleen voor-geïnstalleerde?

Voor-geïnstalleerd !

Montagnard · « **Reactie #6 Gepost op:** 24 februari 2024, 17:28:06 »

heeft Uw neef een "microsoft" account en is hij daar mee ingelogd op zijn laptop ?
dan zal zijn Office normaal gezien ook geactiveerd zijn....je zal dan moeten proberen zijn "activatie key" te vinden : https://www.msoutlook.info/question/537
dan Office VOLLEDIG de-installeren , daarna nieuwe office downloaden....
Mvg,

Della Jordan · « **Reactie #7 Gepost op:** 24 februari 2024, 17:37:10 »

Klopt Montagnard,

Citaat

daarna nieuwe office downloaden....

Wel de 32 Bit versie.

JEC · « **Reactie #8 Gepost op:** 24 februari 2024, 18:49:15 »

Probeer de functie eens zo te gebruiken

Code: [Selecteer]

 Private Declare PtrSafe Function GetSystemMetrics32 Lib "user32" Alias "GetSystemMetrics" (ByVal nIndex As Long) As Long

Della Jordan · « **Reactie #9 Gepost op:** 24 februari 2024, 19:40:39 »

Code: [Selecteer]

Private Declare PtrSafe Function GetSystemMetrics32 Lib "user32" Alias "GetSystemMetrics" (ByVal nIndex As Long) As Longzal waarschijnlijk

Code: [Selecteer]

Private Declare PtrSafe Function GetSystemMetrics32 Lib "user32" Alias "GetSystemMetrics" (ByVal nIndex As Long) As LongPtr

moeten zijn.

SoftAid · « **Reactie #10 Gepost op:** 24 februari 2024, 20:59:18 »

Hallo JEC,

Jou aanpassing gedaan en de 16-bit regel uitgeschakeld en werkt perfect

$\o/$

hartelijk dank.

Citaat van: Della Jordan op 24 februari 2024, 19:40:39

Code: [Selecteer]
Private Declare PtrSafe Function GetSystemMetrics32 Lib "user32" Alias "GetSystemMetrics" (ByVal nIndex As Long) As LongPtr

Della, je code in de eerste reactie was maar een deel van de regel, én je code werkte niet, ook niet toen ik Prt veranderd had in Ptr....
In je 2 de code staat er Ptr op het einde van je code, met dat erbij werkt het ook niet.

Ik ga zo dadelijk het topic wat opruimen want ik heb in moeten breken in je reactie, je weet wel waarom

SoftAid

SoftAid · « **Reactie #11 Gepost op:** 25 februari 2024, 09:36:42 »

Gisteren was ik te moe van het denken, en heb de PC dichtgegooid.

Ik ondervind nog enkele problemen met het programma, maar die moet ik eerst goed in kaart brengen alvorens er hier verder op in te gaan. Zo van die onverkolaarbare zaken.
Zoals dat CommandButton1.Show een macro triggert die UF1 opent, en ComandButton2 die een andere macro triggert maar zegt dat UF2 niet kan openen omdat die niet bestaat....

Ik ga eerst al de andere code controleren en dan laat ik de "results" hier weten.

alvast IEDEREEN hartelijk bedankt voor het helpen. Dat "code bijwerken voor 64 bit systemen" was weer iets nieuw.

En de omweg om een 32-bit Office te installeren begrijp ik al te best, maar dat was hier geen optie.

Groeten,

SoftAid

SoftAid · « **Reactie #12 Gepost op:** 25 februari 2024, 10:58:16 »

Beste,

PtrFunction bleek te werken (de foutmelding bleef weg)

Maar alles werkt toch nog niet zoals het moet.

Ik zocht in de rapte PtrSafe (omdat daar in de foutmelding melding van werd gemaakt, maar dat daar schijnbaar niets mee was gebeurd.

Volgens StackOverflow zou er meer code moeten uitgevoerd worden. Wat is uw gedacht?

PS: fouten moet ik nog opzoeken en testen, want het bestaande/gebruikte bestand beslaat tientallen UF's met hun code.

Dank bij voorbaat.

SoftAid

Della Jordan · « **Reactie #13 Gepost op:** 25 februari 2024, 16:33:33 »

Citaat

gebruikte bestand beslaat tientallen UF's met hun code.

Begin alvast maar te zweten.

Misschien helpt dit je op weg?
Link naar Jan Karel Pieterse (zou je moeten kennen)
https://jkp-ads.com/articles/apideclarations.asp

SoftAid · « **Reactie #14 Gepost op:** 25 februari 2024, 18:32:22 »

Citaat van: Della Jordan op 25 februari 2024, 16:33:33

Link naar Jan Karel Pieterse (zou je moeten kennen)

We hebben nog samen in de klas gezeten (hij op een bank en ik vooraan op mijn knieën )

Bedankt

SoftAid

Help!

Menu

Hulp bij posten

Zoeken

Recente topics