在文本框中，如何响应数字键盘的“+”键事件？

andymark

try:

Private Sub Text2_KeyDown(KeyCode As Integer, Shift As Integer)

If KeyCode = 107 Then
     KeyCode = 0
   
    DoCmd.OpenForm "窗体1"   
   
  End If
End Sub

qlm

下面这个方法可能不行,你试试吧

private sub 文本框_change()

if instr(文本框.text,"+")<>0 then 文本框.text=replace(文本框.text,"+","")

end sub

secondonsite

            KeyCode = 0 '关闭键盘任何的字符型输入。
            DoCmd.OpenForm "MyForm" '刷新窗体并开启键盘字符输入方式。
            SendKeys "{ENTER}", True 使文本框回到编辑状态。

andymark的方法可行，谢谢！

要么怎么就是高涅……