求解：如何让文本框重新获取焦点？

cookyliang

问题的前提是：
当文本框输入的内容被检验有错误时，将弹出错误提示对话框，要求重新输入并默认只能选择“确定”键。
问题出现于：
在选择“确定”键后，焦点不能重新回到这个需要重新输入的文本框内。
具体请见附件
感谢回复~~

hjb016

应该在更新前写入这段代码,更新后事件是无法判断的.

Private Sub DOCID_BeforeUpdate(Cancel As Integer)
    If Len(Me.DOCID) <> Len("ED-C1-O-年年月月-流水号") Then
      
       If MsgBox("该合同编号不符合标准格式！请重新输入。" & vbNewLine & "" & vbNewLine & "标准格式为：ED-C1-O-年年月月-流水号", vbOKOnly + vbExclamation, "操作出错！") = vbOK Then
'         Me.DOCID = "ED-C1-O-年年月月-流水号"
         Cancel = True
'         Me.DOCID.SetFocus
         Me.DOCID.SelStart = Len(Me.DOCID) - 8 'SelStart 属性指定或确定所选文本起始点；或者在未选取任何文本时指定或确定插入点的位置。Integer 型，可读写。
         Me.DOCID.SelLength = Len(Me.DOCID) 'SelLength 属性选取文本的数量，起始点由SelStart决定。
      End If
   
    End If
End Sub

li08hua

hjb016 说的不错！

hjb016

liuxiangyucdpc

hjb016 发表于 2010-9-11 17:01
应该在更新前写入这段代码,更新后事件是无法判断的.

Private Sub DOCID_BeforeUpdate(Cancel As Integer ...

管用，顶起