Lukning af windows i database

Smid dette i et modul:
Private Declare Function apiExitWindowsEx Lib "user32" _
        Alias "ExitWindowsEx" _
        (ByVal uFlags As Long, ByVal dwReserved As Long) _
        As Long

Public Const EWX_FORCE = 4      'Forcibly terminates processes
                                'that do not respond.
Public Const EWX_LOGOFF = 0    'Terminates processes, then logs off.
Public Const EWX_SHUTDOWN = 1  'Powers the system off, if possible.
Public Const EWX_REBOOT = 2    'Reboots the system.


Herefter lukkes windows med denne kode:
Call apiExitWindowsEx(lngExitVal, 0)

Eller:
Call apiExitWindowsEx(lngExitVal, EWX_SHUTDOWN)

Jeg får en fejl når jeg prøver at kalde Call apiExitWindowsEx(lngExitVal, 0)

Kan det være fordi jeg bruger access97 ??

Prøv en af de andre værdier i stedet for nul (1, 2 eller 4)

Det er windows-versionen, som måske kan drille...

Når jeg prøver at kompiler kommer fejlen ved "lngExitVal"

Sorry, det var mig, som huskede forkert, hvordan man brugte funktionen.

Du skal alt dette i modulet:
Private Declare Function apiExitWindowsEx Lib "user32" _
        Alias "ExitWindowsEx" _
        (ByVal uFlags As Long, ByVal dwReserved As Long) _
        As Long

Public Const EWX_FORCE = 4      'Forcibly terminates processes
                                'that do not respond.
Public Const EWX_LOGOFF = 0    'Terminates processes, then logs off.
Public Const EWX_SHUTDOWN = 1  'Powers the system off, if possible.
Public Const EWX_REBOOT = 2    'Reboots the system.

Function fTerminateWin(lngExitVal As Long)
    fTerminateWin = apiExitWindowsEx(lngExitVal, 0)
End Function


Herefter kalder du den således:
call fTerminateWin(EWX_SHUTDOWN)

eller
call fTerminateWin(EWX_FORCE)

ingen fejle, men den lukker heller ikke :-(

Man kan ikke få det hele ;o)


Det er her, du kan prøve alle de forskellige værdier:
I debug-vinduet (Ctrl+G) kan afprøve hver af følgende:
call fTerminateWin(0)
call fTerminateWin(1)
call fTerminateWin(2)
call fTerminateWin(3)
call fTerminateWin(4)

(egentlig kan du også prøve flere, men de er bare ikke dokumenteret....)
Hvis ingen af disse virker, kan jeg ikke hjælpe dig. Den plejer at virke, men gør det muligvis ikke på de nyere operativsystemer.
Jeg vil helst ikke selv teste på min egen maskine lige nu, da jeg har noget download kørende i baggrunden. Men jeg skal forsøge, når jeg lukker ned senere. Så vil jeg vende tilbage, hvis du ikke selv har haft held med det.

Jeg har fået det til at virke delvis. Når den lukker windows, når den ikke at afslutte access databasen......kan det lade sig gøre?? og hvordan??

du kan skrive dette lige inden call fTerminateWin(0):

docmd.Quit acQuitSaveAll

så kan den ikke køre call fTerminateWin(0):

Jeg kører den fra en formular, er det muligt at køre den ved afslutnig af access eller sådan noget??

Du kan ikke umiddelbart 'fange' når en bruger lukker Access, hvis de f.eks. klikker på krydset i øverste højre hjørne.

Jeg plejer at sørge for altid at have én bestemt formular åben; det kan være en hovedmenu, en oversigt eller blot en lille skjult formular.
På denne formular kan man lægge noget kode på Form_Unload, som så kalder fTerminateWin.

På Form_Unload kan du tillige spørge brugeren om han er sikker:

If msgbox("Dette vil lukke Access og afslutte Windows!" & vbnewline & vbnewline & "Er du sikker?", vbquestion+vbokcancel, "Luk Access og Windows?") = vbCancel then
  docmd.Cancelevent
else
  call fTerminateWin(0)
endif

(koden er skrevet frit i hånden, så der kan godt være en enkelt tastefejl eller 2 ;o)

If msgbox("Dette vil lukke Access og afslutte Windows!" & vbnewline & vbnewline & "Er du sikker?", vbquestion+vbokcancel, "Luk Access og Windows?") = vbCancel then
  docmd.Cancelevent
else
  docmd.Quit acQuitSaveAll
  call fTerminateWin(0)
endif

Manglede lige en linie!

...lukker nu...godnat :o)

Mange tak for hjælpen...selv godnat

Jeg kan ikke få den til at virke på formular. Kan ikke køre koden når formularen er lukket.