Formun arama motoruna bi bilgi girip ENTER tuşuna bastığım zaman arama yapıyor fakat otomatik olarak NUMLOCK tuşunu ya pasif yada aktif ediyor.
NUMLUCK tuşu hep aktif olarak kalması için ne yapmam gerekiyor
sayın cagatay1234,
bahsettiğiniz talebinize yönelik olarak;
ilgili form üzerinde yer alan ARAMA adlı denetimin GÜNCELLEŞTİRME ÖNCESİNDE olay yordamı ve Komut59 adlı denetimin TIKLANDIĞINDA olay yordamı üzerindeki KATIŞTIRILMIŞ MAKRO ifadelerini iptal edip bu şekilde kullanmayı deneyiniz.
son olarak;
site arama sayfasında ilgili ifadeler ile benzer arama yöntemleri üzerine kullanımlar ve örnekler içeren konuları inceleyebilir ve bunları kendi uygulamanıza adapte etmeyi deneyebilirsiniz.
bilginize...iyi çalışmalar,saygılar.
Makrolardan oluyor.
güncelleştirme sonrasında , olayına
Option Compare Database
Private Sub ARAMA_AfterUpdate()
SendKeys "{F5}", False
End Sub
bu kodu girdim.
arama yaptırınca şak NUMLOCK ya kapatıyor ya açıyor
nasıl düzeltebilrim yardımcıolursanız çok sevinirim
sayın cagatay1234,
2.mesajda yazılı işlemleri denediniz mi?
açıklamalar nezdinde tekrar deneyiniz ve formu güncellemek sonuçları görebilmek için de ilgili ARAMA denetiminin ÇIKILDIĞINDA olay yordamı içerisine
Me.Requery
kod satırını dahil ediniz.
bilginize...iyi çalışmalar,saygılar.
makroya
her hangi bir tuş gönder olayı yaparsak mesele
SendKeys "{F5}", False veya SendKeys "{ENTER}", False
tuşu işleme koyduktan sonra NUMLOCK da hata yaptırıyor, ya kapatıyor, ya açıyor
Ofisin bazı sürümlerinde Sendkeys kodu numlock, scrolllock veya capsyocku kapatıp açabiliyor.
Bunu önlemek için sendkeys kodunu kullanmamalısın. Yerine sendkeys harici komut kodları kullanabilirsin. mesela Sendkeys {f5} kodu yerine
me.requery
Veya bilinen farklı bir sendkeys benzeri api var. Bu kodu da kullanabilirsin. Numlock, capslock veya scrollock kapatmaz.
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 IsCapsLockOn() As Boolean
Dim o As OSVERSIONINFO
o.dwOSVersionInfoSize = Len(o)
GetVersionEx o
Dim keys(0 To 255) As Byte
GetKeyboardState keys(0)
IsCapsLockOn = keys(VK_CAPITAL)
End Function
Sub ToggleCapsLock()
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
'Toggle capslock
keys(VK_CAPITAL) = Abs(Not keys(VK_CAPITAL))
SetKeyboardState keys(0)
ElseIf o.dwPlatformId = VER_PLATFORM_WIN32_NT Then '=====WinNT
'Simulate Key Press>
keybd_event VK_CAPITAL, &H45, KEYEVENTF_EXTENDEDKEY Or 0, 0
'Simulate Key Release
keybd_event VK_CAPITAL, &H45, KEYEVENTF_EXTENDEDKEY _
Or KEYEVENTF_KEYUP, 0
End If
End Sub
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
Function IsScrollLockOn()
Dim o As OSVERSIONINFO
o.dwOSVersionInfoSize = Len(o)
GetVersionEx o
Dim keys(0 To 255) As Byte
GetKeyboardState keys(0)
IsScrollLockOn = keys(VK_SCROLL)
End Function
Sub ToggleScrollLock()
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_SCROLL) = Abs(Not keys(VK_SCROLL))
SetKeyboardState keys(0)
ElseIf o.dwPlatformId = VER_PLATFORM_WIN32_NT Then '=====WinNT
'Simulate Key Press
keybd_event VK_SCROLL, &H45, KEYEVENTF_EXTENDEDKEY Or 0, 0
'Simulate Key Release
keybd_event VK_SCROLL, &H45, KEYEVENTF_EXTENDEDKEY Or KEYEVENTF_KEYUP, 0
End If
End Sub
Sub mySendKeys(sKeys As String, Optional bWait As Boolean = False)
Dim bNumLockState As Boolean
Dim bCapsLockState As Boolean
Dim bScrollLockState As Boolean
bNumLockState = IsNumLockOn()
bCapsLockState = IsCapsLockOn()
bScrollLockState = IsScrollLockOn()
SendKeys sKeys, bWait
If IsNumLockOn() <> bNumLockState Then
ToggleNumLock
End If
If IsCapsLockOn() <> bCapsLockState Then
ToggleCapsLock
End If
If IsScrollLockOn() <> bScrollLockState Then
ToggleScrollLock
End If
End Sub
Function fSendKeys(sKeys As String, Optional bWait As Boolean = False)
' Function to make it callable from macros
mySendKeys sKeys, bWait
End Function