记录控制问题

wlltnt

1.我有一个订单材料窗口，里面有通过文本框向子窗体增加记录，这些文本框中其中一个是显示库存数的，我想当订购数量大于库存数时就不能增加这条记录，而显示提示说库存数不足
2.另外相关的问题是我在子窗体可以把一些记录复制到该子窗体，当订购数量大于库存数时就不可以有提示，怎么做呢？

wlltnt

Private Sub Form_AfterUpdate()
If Me.[实发数量] > Forms!订单材料出库!文本109 Then
   MsgBox "库存量不足，该记录被取消。"
  Cancel = True
End If
End Sub
没反应呀

baije

你一个文本框已有显示当前库存的了,
在数据更新前进行比较不就行了,
在窗体更新前事件中写上:
IF if me.[定购数量]>me.[库存量] THEN
CANCEL=TRUE
END IF

sf

估计按以上方法可以，当然还会有更简便的方法，待高手们给你解决。。。我仅会此方法：）

sf

新建一单选控件，一个选项即可，设个名称，如sf ，让其初始值为FALSE，当要复制时，选中此选项，要手工输 入时，不要点选此项。
  在定购数量文本框的更新后事件中输入：
   if me.[定购数量]>me.[库存量] and me.[sf]=false then
   MsgBox "库存量不足，该记录被取消。"
   me.[定购数量]=null
   me.[x]=null   (注：x 为该记录其它字段；肯定有方法，一条命令取消此条记录，我还不会。所以用此笨办法！)
   ..........
   endif
   me.[sf]=false

   

[此贴子已经被作者于2003-10-29 16:58:07编辑过]

wlltnt

这个问题高手们怎么不回答一下，太难了，还是不太简单了