Office中国论坛/Access中国论坛

标题: [求助]代码调试问题 [打印本页]

作者: xush 时间: 2006-4-20 07:05
标题: [求助]代码调试问题
借用论坛上的一个汉字简拼输入的例子，但是没有效果，调试时发觉

在执行完.value=null(==>所指)后，不执行sendkeys
却跳到了Err

==>所指)

Public Function ComboBoxKeyPress(KeyAscii As Integer) As String
'调用方法  在组合框的keypress方法中加入:
'--------------------------------------------
' If ComboBoxKeyPress(KeyAscii) <> "" Then KeyAscii = 0
'--------------------------------------------
On Error GoTo Err
Dim i As Integer
With Screen.ActiveControl
If .ControlType = acComboBox And (KeyAscii >= Asc("a") And KeyAscii <= Asc("z")) Then
'只能由组合框输入小写字母时调用
      ComboBoxKeyPress = Nz(HZPY(Left(.Text, .SelStart))) & Chr(KeyAscii)
      While HZPY(Left(.ItemData(i), .SelStart + 1)) <> ComboBoxKeyPress And i < .ListCount - 1
         i = i + 1
      Wend
      If i <> .ListCount And Mid(.ItemData(i), .SelStart + 1, 1) <> Chr(KeyAscii) Then
         ComboBoxKeyPress = Left(.ItemData(i), .SelStart + 1)
==>          .Value = Null
         SendKeys ComboBoxKeyPress
      Else
         ComboBoxKeyPress = ""    '为英文时不代换，否则会进入死循环
      End If
End If
End With
Exit Function
Err:
==> ComboBoxKeyPress = ""
End Function

[attach]16863[/attach]

作者: xush 时间: 2006-4-21 02:20
============

作者: fan0217 时间: 2006-4-21 04:26
从代码来看是执行代码时发生了错误,直接进入错误处理代码了.错误处理语句最好能显示错误代码或描述,这样更能快速的找到问题.

在反黄显示的地方或前面仔细检查.

作者: xush 时间: 2006-4-21 07:09
怎么做呢？

作者: xush 时间: 2006-4-23 02:05
当我把表中的姓名字段属性中的

是否必填字段改为否时就好了

这个问题能解决吗？？？

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)