Office中国论坛/Access中国论坛

标题: 求解：如何让文本框重新获取焦点？ [打印本页]

作者: cookyliang 时间: 2010-9-11 15:57
标题: 求解：如何让文本框重新获取焦点？
本帖最后由 cookyliang 于 2010-9-11 16:01 编辑

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

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

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 时间: 2010-9-12 03:31
hjb016 说的不错！

作者: hjb016 时间: 2010-9-12 07:19

作者: liuxiangyucdpc 时间: 2012-8-17 17:41

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

Private Sub DOCID_BeforeUpdate(Cancel As Integer ...

管用，顶起

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