设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

返回列表 发新帖
查看: 1373|回复: 3
打印 上一主题 下一主题

[窗体] 焦點移動

[复制链接]
跳转到指定楼层
1#
发表于 2010-3-18 12:42: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
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖 订阅订阅
2#
发表于 2010-3-18 13:00:51 | 只看该作者
用REFRESH 代替REQUERY 试试

requery有时会影响记录的定位
3#
发表于 2010-3-18 14:07:26 | 只看该作者
好像也遇到过~

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

忍忍吧
4#
 楼主| 发表于 2010-3-18 18:01:28 | 只看该作者
問題已解決,在下一控件獲得焦點前事件再將焦點移動到此控件即可,不過還是要謝謝樓上兩位兄弟。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-11-15 01:33 , Processed in 0.084403 second(s), 27 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表