Merhabalar,

Access dosyasını açışta capslock kapalı ise otomatik açarmı,

accesstr, sitesinden bulduğum kodlar var ama nasıl kullanacağımı da bilmiyorum.

Bilgisi olan arkadaşlardan yardım istiyorum,
Kolay Gelsin

accesstr den bulduğum kodlar
Public Const VK_CAPITAL = &H14
Public Type KeyboardBytes
kbByte(0 To 255) As Byte
End Type

Public kbArray As KeyboardBytes
Public Declare Function GetKeyState Lib "user32"
(ByVal nVirtKey As Long) As Long
Public Declare Function GetKeyboardState Lib
"user32" (kbArray As KeyboardBytes) As Long
Public Declare Function SetKeyboardState Lib
"user32" (kbArray As KeyboardBytes) As Long

'Aşağıdaki kodlar oluşturduğnuz formun
'General - Declarations bölümüne girmelidir:
Private Function CapsLock() As Integer
CapsLock = GetKeyState(VK_CAPITAL) And 1 = 1
End Function

Private Command1_Click()
GetKeyboardState kbArray

kbArray.kbByte(VK_CAPITAL) =
IIf(kbArray.kbByte(VK_CAPITAL) = 1, 0, 1)

SetKeyboardState kbArray
Label1 = IIf(CapsLock() = 1, "Açık", "Kapalı")
End Sub

Private Sub Command2_Click()
GetKeyboardState kbArray
kbArray.kbByte(VK_CAPITAL) = 1
SetKeyboardState kbArray
Label1 = IIf(CapsLock() = 1, "Açık ", "Kapalı")
End Sub

Private Sub Command3_Click()
GetKeyboardState kbArray
kbArray.kbByte(VK_CAPITAL) = 0
SetKeyboardState kbArray
Label1 = IIf(CapsLock() = 1, "Açık ", "Kapalı")
End Sub

Sn husem; VT acilisindaki ilk formun acilisina
Private Sub Form_Open(Cancel As Integer)
SendKeys "{CAPSLOCK}", True
End Sub
yazarak yapilabilir.

SN dsezgin83260,
formun açılışına koydum ama
run time error 70
permission denied

hatası veriyor.

ilginizden dolayı yine de teşekkür ederim.
kolay gelsin

Sn husem ; Access 2003'te sendkeys calismiyor galiba form acilisina asagida ki kodu tasiyip, denermisiniz?
Option Compare Database
Option Explicit
Private Const VK_CAPITAL = &H14
Private Type KeyboardBytes
kbByte(0 To 255) As Byte
End Type
Private kbArray As KeyboardBytes
Private Declare Function SetKeyboardState Lib "user32" (kbArray As KeyboardBytes) As Long
Private Sub Form_Open(Cancel As Integer)
kbArray.kbByte(VK_CAPITAL) = 1
SetKeyboardState kbArray
End Sub

olmadı sayın dsezgin83260,

başka bir şeyler denedim, olmadı