表單日期欄位取得焦點後變為f2編輯模式而且停留在日的位置

阿明　发表于：2014-09-23 14:19:40 　

表單日期欄位取得焦點後為f2編輯模式而且停留在日的位置，請問該如何做呢？感恩

朱先生发表于：2014-09-23 15:06:46

日期栏位取得焦点理所当然停留在日期的位置，要想不让编辑，将该栏位锁定。

阿明发表于：2014-09-23 16:14:21

朱先生

抱歉，內容沒說清楚

我要的是......當取得焦點後，會成為f2編輯模式，而且游標停留在"日"的位置上

朱先生发表于：2014-09-23 18:43:54

你说的是标签吧。如果是标签就将其改为文本框，默认值填日期，取得焦点游标就停在“日”字前。

如果不是标签，就不要这样做了

阿明发表于：2014-09-23 19:25:41

朱先生，如圖中圈起部分，輸入完進貨單編號後，跳到進貨日期這欄位時，游標會停在日期的日上面供修改，是否有方法？謝謝

芊芊发表于：2014-09-25 09:08:34

可用SendKeys 语句实现

Private Sub Form_Load()

me.進貨日期.setfocus

    SendKeys "{F2}"
    SendKeys "{END}"
    SendKeys "+{LEFT 2}"

end sub

cspa 发表于：2014-09-25 10:34:48

芊芊的方法已可实现，根据楼主的需求，稍作改进如下。供参考：

Private Sub 進貨日期_Enter()
SendKeys "{F2}"
SendKeys "{END}"
SendKeys "+{LEFT " & Len(CStr(Nz(進貨日期))) - InStrRev(CStr(Nz(進貨日期)), "/") & "}"

End Sub

或者：

Private Sub 進貨日期_Enter()

Me.進貨日期.SelStart = InStrRev(CStr(Nz(進貨日期)), "/")
Me.進貨日期.SelLength = Len(CStr(Nz(進貨日期))) - InStrRev(CStr(Nz(進貨日期)), "/")

End Sub

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

Access交流中心