[發問] 輸入錯誤值，游標停在原欄位

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2012-1-11 11:37 | 只看該作者

請問各位前輩們：
如附件檔，在表單2的日期欄位若輸入不符設定的值時(例如：20110202後，設定值是2012-2018年)，會出現錯誤訊息，但是游標會往下一個欄位跑。
請問當日期欄位輸入不符設定值時，如何讓游標停在日期欄位呢？

sh-test-2.rar (22.04 KB)

3^#

發表於 2012-1-16 08:44 | 只看該作者

回復 2# GBKEE
感謝大大回覆，萬分感謝！

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2012-1-11 16:28 | 只看該作者

本帖最後由 GBKEE 於 2012-1-11 16:40 編輯

回復 1# sammay

複製代碼

Option Explicit
Dim MyClose As Boolean '制訂表單私用變數預設為 False
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
MyClose = True '表單關閉: 變數=True
End Sub
Private Sub TextBox7_Exit(ByVal Cancel As MSForms.ReturnBoolean) ' ***表單關閉時也會觸動此程序
Dim Msg As String
If MyClose = True Then Exit Sub '表單關閉後:MyClose=True
If IsDate(TextBox7) Then '為日期
If Year(TextBox7) < 2012 Or Year(TextBox7) > 2018 Then
Msg = "日期須是 2012年-2018年"
Else
TextBox7 = Format(TextBox7, "YYYY/M/D") '如 2013/2 ->2013/2/1
End If
Else '非為日期
Msg = "必須是日期 yyyy/m/d"
End If
If Msg <> "" Then
Cancel = True 'Cancel = True 才會回到此控制項
MsgBox Msg
With TextBox7
.SelStart = 0 '從0 開始選擇
.SelLength = Len(.Text) '選擇的字元數
End With
End If
End Sub

複製代碼

靜思自在 : 人事的艱難與琢磨，就是一種考驗。