Office中国论坛/Access中国论坛

标题: 焦點移動 [打印本页]

作者: gaoyh2008 时间: 2010-3-18 12:42
标题: 焦點移動
文本框更新事件後不能重新獲得焦點，請幫忙看看下面代碼是哪不對？
Private Sub Text16_AfterUpdate()
Me.Text16.SetFocus
Dim Temp As String
If Me![Text10] <> "" And Me![Text16] <> "" Then
Temp = "insert into 生產入庫(上架類型,廠別,生產單位,庫區,上架方式,托盤號,備注,條碼讀取,生產日期,品質區分,箱數)"
Temp = Temp & "values('" & Me![Text0] & "','" & Me![Text2] & "','" & Me![Text4] & "','" & Me![Text6] & "','" & Me![Text8] & "','" & Me![Text10] & "','" & Me![Text14] & "','" & Me![Text16] & "','" & Me![Text20] & "','" & Me![Text22] & "',1)"
DoCmd.RunSQL Temp
Me![Text16] = ""
Me.入庫上架_子表單1.Requery
Me.List49.Requery
Me.Text16.SetFocus ‘此代碼不執行而是移到了下一個控件
Else
MsgBox "托盤號和條碼不能為空"
Me.Text16.SetFocus
End If
End Sub

作者: andymark 时间: 2010-3-18 13:00
用REFRESH 代替REQUERY 试试

requery有时会影响记录的定位

作者: leijiqiang 时间: 2010-3-18 14:07
好像也遇到过~

ACCESS开发工具~最大优点易上手,最大缺点缺陷多.

忍忍吧

作者: gaoyh2008 时间: 2010-3-18 18:01
問題已解決，在下一控件獲得焦點前事件再將焦點移動到此控件即可，不過還是要謝謝樓上兩位兄弟。

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