Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
27/05/2017 13:28
Konu Sahibi
cagatay1234
Yorumlar
6
Okunma
975
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
cagatay1234

cagatay1234

Üye
54129
 38
 6
 20
 11/05/2013
0
 
 
 
 14/11/2018,16:43
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



[Resim: do.php?imgf=149588088212621.jpg]




atoz112

atoz112

Onursal Üye
8839
 49
 9
 5.716
 04/08/2009
 İstanbul
 
 Ofis 2007
 09/12/2017,11:02
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.



...........
cagatay1234

cagatay1234

Üye
54129
 38
 6
 20
 11/05/2013
0
 
 
 
 14/11/2018,16:43
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



atoz112

atoz112

Onursal Üye
8839
 49
 9
 5.716
 04/08/2009
 İstanbul
 
 Ofis 2007
 09/12/2017,11:02
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

Visual Basic Code
Me.Requery


kod satırını dahil ediniz.

bilginize...iyi çalışmalar,saygılar.




...........
cagatay1234

cagatay1234

Üye
54129
 38
 6
 20
 11/05/2013
0
 
 
 
 14/11/2018,16:43
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



ozanakkaya

ozanakkaya

Kurucu
1
Oz.... Ak....
 39
 482
 12.116
 29/01/2008
 Denizli
 Memur
 Ofis 2010 32 Bit
 19/07/2019,20:59
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.


Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
 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


"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 

...........

Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Formda Metin Kutusu İçerik Kontrolü hbal09 4 117 10/07/2019, 16:20
Son Yorum: halily
Çözüldü İki Tarih Arası Sorgulma Sorunu HORZUM 4 321 05/07/2019, 19:25
Son Yorum: halily
Çözüldü Alt Form Toplamında #hata Ve #boyut! Sorunu donepezil 2 110 04/07/2019, 11:57
Son Yorum: donepezil
Çözüldü Rapor Sorunu metınaycıcek 26 568 03/07/2019, 23:35
Son Yorum: metınaycıcek
Çözüldü Her Yeni Kayıta Bastığımızda Sayı Verme Sorunu. prestij06 7 284 15/06/2019, 21:24
Son Yorum: halily

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2019 MyBB Group.