如何在函数中让窗体字段获得焦点

hjs　发表于：2010-12-11 14:05:00 　

Public Function Iszf(ByVal strCode As String, ByVal strCodecd As Integer, ByVal strCodets As String) As Boolean
Iszf = False
strCode = Trim(strCode)
If strCode = "" Then
MsgBox "请输入或选择 [" & strCodets & "]! ", 0 + 64, "提示"
Exit Function
End If
If strCode Like "*'*" Then
MsgBox "[" & strCodets & "] 输入内容含有非法字符(')! ", 0 + 64, "提示"
Exit Function
End If
If chkGb(strCode) > strCodecd Then
MsgBox "[" & strCodets & "] 输入内容长度不能大于" & strCodecd / 2 & "字符! ", 0 + 64, "提示"
Exit Function
End If
Iszf = True
End Function

想实现：在一窗体中有一字段，保存时需要判断是否是字符，通过以上函数判断，如果有问题，提示出错，让字段获得焦点，重新输入，可否在以上函数实现这个功能？谢谢！

Top

wang decheng 发表于：2010-12-11 16:22:56

在该文本框的beforeupdate事件里进行判断,如

if iszf() then

me.undo

cancel=true

end if

Top

红尘如烟发表于：2010-12-11 18:56:05

你把strCode参数改成控件对象变量就行了：

Public Function Iszf(Ctl As Control, ByVal strCodecd As Integer, ByVal strCodets As String) As Boolean
    Dim strCode As String

    strCode=Trim(Nz(Ctl))
    If strCode="" Then
        MsgBox "请输入或选择 [" & strCodets & "]! ", 0 + 64, "提示"
    ElseIf strCode Like "*'*" Then
        MsgBox "[" & strCodets & "] 输入内容含有非法字符(')! ", 0 + 64, "提示"
    ElseIf chkGb(strCode) > strCodecd Then
        MsgBox "[" & strCodets & "] 输入内容长度不能大于" & strCodecd / 2 & "字符! ", 0 + 64, "提示"
    Else
        Iszf=True
    End If
    If Not Iszf Then Ctl.SetFocus
End Function

Top

hjs 发表于：2010-12-11 21:00:19

非常感谢，非常感谢！

Top

总记录：3篇页次：1/1 9 1 :

Access交流中心

如何在函数中让窗体字段获得焦点