请教斑竹

ccczzz · 发表于 2004-11-14 06:13:00

Private Sub 编号_AfterUpdate()

If Me.编号 = DLookup("编号", "编号", "编号='" & Me.[编号] & "'") Then

      MsgBox "编号有重复,请检查!    ", 32, "操作提示"



   编号.SetFocus





End If

End Sub

当输入重复编号后，能弹出消息框，按下[确定]按钮后，焦点不能落在[编号]文本框中，为什么？代码有错误码？谢谢

swo · 发表于 2004-11-14 07:02:00

提示: 作者被禁止或删除内容自动屏蔽

ccczzz · 发表于 2004-11-14 07:35:00

me.undo可以，谢谢

帐号		自动登录	找回密码
密码			注册

群介绍
Access培训群 (792054000)
Access免费培训2群 (163530137)
Access免费培训群 (833510950)
Access免费培训群2 (792054000)
Access交流总群 (5004108)

swo swo 当前离线技术点技术点 V币点积分 47013 IP卡狗仔卡	2^# 发表于 2004-11-14 07:02:00 \| 只看该作者提示: 作者被禁止或删除内容自动屏蔽
swo swo 当前离线技术点技术点 V币点积分 47013 IP卡狗仔卡
	回复支持反对使用道具举报显身卡

主题相关群

地区相关群[您还没设置居住地]

[其它] 请教斑竹

群介绍
主题无相 (随机显示版	同地区群块其他地区)