高难代码

李艺　发表于：2009-11-05 16:26:03 　

复制

各位教师您好：

　　单击“商品入库”按钮时，提示代码错误，请哪们高手帮我改一下代码好吗？万分万分感谢！请看附件。

点击下载此附件

Top

李艺发表于：2009-11-05 16:36:03

它错在什么地方了呢？我改了又改都不行，请各位老师帮帮忙，谢谢！

Top

andymark 发表于：2009-11-05 20:24:26

有点乱

建议不采用IF ELSEIF ...

if ...end 比较容易阅读

If IsNull(Me![仓库编号]) Then
   MsgBox "请选择仓库"
   Me.仓库编号.SetFocus
   Exit Sub
End If

If IsNull(Me![商品编号]) Then
   MsgBox "请输入商品编号"
   Me.商品编号.SetFocus
   Exit Sub
End If

数据修改或增加没有被UPDATE

rst有时被关闭,不能进行一下步的操作

代码中不需要多次SET RST=NOTHING

执行后一次释放就行了

Top

李艺发表于：2009-11-06 18:30:53

谢谢您　老师：

　　但我是初学，修了一下，还是不行您能不能在我的附件上帮我改一下，我借鉴一下。

Top

总记录：3篇页次：1/1 9 1 :

Access交流中心

高难代码