请问这个代码对吗?怎么系统不执行?不弹出msgbox,也不打开窗体??

chunyi · 发表于 2004-12-26 00:25:00

If MsgBox("输入的客户找不到，是否要立即添加？", 4) = 6 Then

   DoCmd.OpenForm "客户档案", , , , acFormAdd  '开启客户窗体

   Forms![客户档案]![客户姓名] = Me![姓名].Text

   Response = acDataErrContinue

   ''''Forms![客户]![Command12].Enabled = True

Else

SendKeys "{escape}" '若不要添加，则还原?

End If

静儿 · 发表于 2004-12-26 07:53:00

是否事件根本就没有被触发？

chunyi · 发表于 2004-12-26 08:09:00

是的

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

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

主题相关群

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

[窗体] 请问这个代码对吗?怎么系统不执行?不弹出msgbox,也不打开窗体??

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