NumLock

Hvad med

SendKeys "{NUMLOCK}"

Nope, det virker ikke. Det jeg skal bruge er at jeg skal være sikker på at numlock altid er on.

Det kender jeg desværre ikke nogen metode til. :-(

Prøv at se på dette link:

http://www.mvps.org/access/api/api0046.htm

Application.SendKeys ("{NUMLOCK}")

kabbak> Dit svar er da det samme som zuperjaps...

Jeg ved ikke om det kan gøres i VBA, jeg mit kendskab til VBA ligger på et lille sted, men jeg fandt denne VB kode - håber det kan hjælpe dig.

JP

http://www.blindprogramming.com/ftp/basic/statkeys.txt

Det ser lidt uoverskueligt ud for mig med den VBA. Hvis der findes andre løsninger bliver jeg glad. Funktionen skal virke under access2000.

Det kan godt være at det er den rigtige kode som jkrons og jpvj har sendt link til, men koden er lidt for indviklet for mig.

På forhånd tak..!

Sådan gør du:

- Åbn din Access-database
- Tryk på F11 eller Ctrl+G for at åbne VBEditor
- Klik på Module under menuen Insert
- Åbn modulet og føj flg. kode til modulet:

Option Compare Database
Option Explicit

      ' Declare Type for API call:
      Private Type OSVERSIONINFO
        dwOSVersionInfoSize As Long
        dwMajorVersion As Long
        dwMinorVersion As Long
        dwBuildNumber As Long
        dwPlatformId As Long
        szCSDVersion As String * 128  '  Maintenance string for PSS usage
      End Type

      ' API declarations:
      Private Declare Function GetVersionEx Lib "Kernel32" _
        Alias "GetVersionExA" _
        (lpVersionInformation As OSVERSIONINFO) As Long

      Private Declare Sub keybd_event Lib "user32" _
        (ByVal bVk As Byte, _
          ByVal bScan As Byte, _
          ByVal dwflags As Long, ByVal dwExtraInfo As Long)

      Private Declare Function GetKeyboardState Lib "user32" _
        (pbKeyState As Byte) As Long

      Private Declare Function SetKeyboardState Lib "user32" _
        (lppbKeyState As Byte) As Long

      ' Constant declarations:
      Const VK_NUMLOCK = &H90
      Const VK_SCROLL = &H91
      Const VK_CAPITAL = &H14
      Const KEYEVENTF_EXTENDEDKEY = &H1
      Const KEYEVENTF_KEYUP = &H2
      Const VER_PLATFORM_WIN32_NT = 2
      Const VER_PLATFORM_WIN32_WINDOWS = 1


Function IsNumLockOn() As Boolean
        Dim o As OSVERSIONINFO
       
        o.dwOSVersionInfoSize = Len(o)
        GetVersionEx o
        Dim keys(0 To 255) As Byte
        GetKeyboardState keys(0)
        IsNumLockOn = keys(VK_NUMLOCK)
End Function

Sub ToggleNumLock()
        Dim o As OSVERSIONINFO
               
        o.dwOSVersionInfoSize = Len(o)
        GetVersionEx o
        Dim keys(0 To 255) As Byte
        GetKeyboardState keys(0)

          If o.dwPlatformId = VER_PLATFORM_WIN32_WINDOWS Then  '=====Win95
                keys(VK_NUMLOCK) = Abs(Not keys(VK_NUMLOCK))
                SetKeyboardState keys(0)
          ElseIf o.dwPlatformId = VER_PLATFORM_WIN32_NT Then  '=====WinNT
          'Simulate Key Press
            keybd_event VK_NUMLOCK, &H45, KEYEVENTF_EXTENDEDKEY Or 0, 0
          'Simulate Key Release
            keybd_event VK_NUMLOCK, &H45, KEYEVENTF_EXTENDEDKEY _
              Or KEYEVENTF_KEYUP, 0
          End If
       
End Sub

Sub SetNumLockOn()
    If IsNumLockOn() <> True Then
        ToggleNumLock
    End If
End Sub


Nu kan du bare kalde proceduren SetNumLockOn når du vil have tænde Num Lock.

taio
Send tiol mig, så skal jeg sætte  sendkeys ind for dig, det er den rigtige løsning, plus den skal slåes fra ved lukning af access.
Henrik

taio
Send den til mig, så skal jeg sætte  sendkeys ind for dig, det er den rigtige løsning, plus den skal slåes fra ved lukning af access. Min email er:
oz1bua@wanadoo.dk
Henrik

I følge det jeg kan finde kan du ikke sende Numlock via Sendkeys - skulle være en bug i Access. I følge The Access Web er ovenstående metode (som også gengivet af somaliomar) den eneste, der med sikkerhed virker. Og så risikerer du ikke at få sendt en Sendkeys på et forkert tidspunkt.

Tak for hjælpen til alle..!