+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Tuşlar Hk. (/konu-tuslar-hk.html)
Tuşlar Hk. - serkan1985 - 21/12/2020
Herkese merhaba,
Uygulamalarda ctrl ve shift tuşları iptal edilebiliyor ama ben "-" tire tuşunu iptal edemiyorum. Sebebi form içeriğinde ctrl+(-) kullanıldığında veriyi silmesi. Ben silme eylemini sadece buton ile yapmasını istiyorum. Uyguladığım kod aşağıda ki gibi. Nasıl - tuşunu pasif hale getirebilirim? Bilgi ve yardımlarınızı rica ederim.
Select Case True
Case ((Shift And acCtrlMask) > 0 And ((KeyCode = vbKeyF) Or (KeyCode = vbKeyF1) Or (KeyCode = vbKeyF2) Or (KeyCode = vbKeyF3) Or (KeyCode = vbKeyF4) Or (KeyCode = vbKeyF5) Or (KeyCode = vbKeyF6) Or (KeyCode = vbKeyF7) Or (KeyCode = vbKeyF8) Or (KeyCode = vbKeyF9) Or (KeyCode = vbKeyF10) Or (KeyCode = vbKeyF11) Or (KeyCode = vbKeyF12) Or (KeyCode = vbKeyF13)))
KeyCode = 0
Case ((Shift And acCtrlMask) > 0 And ((KeyCode = vbKeyP) Or (KeyCode = vbKeyS) Or (KeyCode = vbKeyW) Or (KeyCode = vbKeyO) Or (KeyCode = vbKeyN) Or (KeyCode = vbKeyH) Or (KeyCode = vbKeyV)))
KeyCode = 0
End SelectRE: Tuşlar Hk. - berduş - 21/12/2020
vbKeySubtract kodunu kullanmayı denediniz mi?
RE: Tuşlar Hk. - serkan1985 - 21/12/2020
Evet halen kayıt"ctrl + -" yapınca siliniyor.
RE: Tuşlar Hk. - berduş - 21/12/2020
aşağıdaki kodu dener misiniz
If (KeyCode = vbKeySubtract Or KeyCode = 189) And Shift = acCtrlMask Then KeyCode = 0Re: Tuşlar Hk. - serkan1985 - 21/12/2020
Merhaba destek ve yardımlarınızı için çok teşekkürler. Aşağıda ki gibi uyguladığımda çözüm olmuştur. Çok teşekkürler.
PHP Kod:
If (KeyCode = vbKeySubtract Or KeyCode = 189) And Shift = acCtrlMask Then
KeyCode = 0
End If
RE: Tuşlar Hk. - berduş - 21/12/2020
Rica ederim)
İyi çalışmalar.