返回列表 上一主題 發帖

為何Textbox的Setfocus無法發揮功能呢？

dds727

帖子
1 
主題
0 
精華
0 
積分
1 
點名
0  
作業系統
Win7 
軟體版本
64bit 
閱讀權限
10 
註冊時間
2012-7-14 
最後登錄
2012-7-14 
1# 跳轉到 »
發表於 2012-7-14 23:38 | 顯示全部帖子
回復 4# GBKEE
請問大大~~
利用AfterUpdate()驗證身分證字號錯誤後，是否可以利用setfocus將指標指定在身份證字號的欄位上呢?
我的程式碼如下:
Private Sub id_AfterUpdate()
Dim mPID As String
mPID = Me![id]
mAE = Left(mPID, 1)
mSE = Mid(mPID, 2, 1)

Aer = DLookup("Numb", "CITYID", "[CODE]='" & mAE & "'")
chk = (Mid(Aer, 1, 1) + Mid(Aer, 2, 1) * 9 + Mid(mPID, 2, 1) * 8 + Mid(mPID, 3, 1) * 7 + Mid(mPID, 4, 1) * 6 + Mid(mPID, 5, 1) * 5 + Mid(mPID, 6, 1) * 4 + Mid(mPID, 7, 1) * 3 + Mid(mPID, 8, 1) * 2 + Mid(mPID, 9, 1) * 1 + Mid(mPID, 10, 1) * 1) Mod 10

If chk <> 0 Then
    MsgBox "身分證號碼輸入錯誤!!! 請重新輸入"
    Me![id] = ""
    Me![id].SetFocus
   
    Exit Sub
Else
    MsgBox "身分證號碼輸入正確!!!"
               
            Select Case mSE
                Case "1"
                    Me![e] = "男"
                    Me![Sexl].Value = "1"
                Case "2"
                    Me![e] = "女"
                    Me![Sexl].Value = "2"
            End Select
End If
End Sub

頭痛的小學生 2012.7.14

TOP

        靜思自在 : 每天無所事事，是人生的消費者，積極、有用才是人生的創造者。
返回列表 上一主題