Office中国论坛/Access中国论坛

标题: 请大家帮忙看看这代码! [打印本页]

作者: 3382345 时间: 2008-9-11 14:52
标题: 请大家帮忙看看这代码!
Private Sub 产品编号_BeforeUpdate(Cancel As Integer)
If IsNull(Me.产品编号) Then
   命令2.Visible = True
   Else
   命令2.Visible = False
   End If
End Sub

当产品编号为空时 ,命令2 可用,.否则就不可用.我把它写成可见与不可见,,但不行,请帮我看看这代码哪里还有错吗?谢谢

作者: tz-chf 时间: 2008-9-11 15:06
没错,但应该写在afterupdate里

作者: 3382345 时间: 2008-9-11 16:37
好像也不行呀!!我把库传上来了...

作者: tz-chf 时间: 2008-9-11 16:51
你传上来的东西也应该自己编译一下，错误多多。

不能把beforeupdate直接改成afterupdate就行了，afterupdate不需要参数的。

那个自定义函数也没有带上来。

产品编号用代码操作，是不会有update事件的。处理方式要改一下。

作者: 3382345 时间: 2008-9-11 17:13
我就是为了避免这种情况,就是记录源的问题,但不知道怎样修改...才想到这种方法...还有其它办法吗??

作者: 3382345 时间: 2008-9-11 21:52
自己顶一下

作者: 3382345 时间: 2008-9-12 10:34
还是要自己顶一下....

作者: 3382345 时间: 2008-9-12 15:03
自己想了一个办法,就是打开窗体 "PR"的时候, 双击进行值传递的时候 ,把命令2 变成不可用,按撤销和继续添加的时候,命令2变成可用.
Private Sub 产品编号_DblClick(Cancel As Integer)
Forms![报价单]![产品编号] = Me.产品编号
Forms![报价单]![产品名称] = Me.产品名称
Forms![报价单]![材料] = Me.材料
Forms![报价单]![尺寸] = Me.尺寸
Forms![报价单]![颜色] = Me.颜色
Forms![报价单]![表面效果] = Me.表面效果
Forms![报价单]![描述说明] = Me.描述说明
Forms![报价单]![图片说明] = Me.图片说明
Forms![报价单]![包装方式] = Me.包装方式
Forms![报价单]![试摔要求] = Me.试摔要求
Forms![报价单]![内盒长(cm)] = Me.内盒长_CM_
Forms![报价单]![内盒宽(cm)] = Me.内盒宽_CM_
Forms![报价单]![内盒高(cm)] = Me.内盒高_CM_
Forms![报价单]![纸箱长(inch)] = Me.纸箱长_inch_
Forms![报价单]![纸箱宽(inch)] = Me.纸箱宽_inch_
Forms![报价单]![纸箱高(inch)] = Me.纸箱高_inch_
Forms![报价单]![纸箱长(cm)] = Me.纸箱长_cm_
Forms![报价单]![纸箱宽(cm)] = Me.纸箱宽_cm_
Forms![报价单]![纸箱高(cm)] = Me.纸箱高_cm_
Forms![报价单]![装箱数量] = Me.装箱数量
Forms![报价单]![净重/件(kgs)] = Me.净重_件_kgs_
Forms![报价单]![净重/箱(kgs/ctn)] = Me.净重_箱_kgs_ctn_
Forms![报价单]![毛重/箱(kgs/ctn)] = Me.毛重_箱_kgs_ctn_
Forms![报价单]![CBM] = Me.CBM
Forms![报价单]![CUft] = Me.CUft
Forms![报价单]![货柜装载数量(20'FCL)] = Me.货柜装载数量_20_FCL_
Forms![报价单]![货柜装载数量(40'FCL)] = Me.货柜装载数量_40_FCL_
DoCmd.Close acForm, "PR"
Forms![报价单]!命令2.Enabled = False
End Sub

但双击值传递的时候出错,说无法禁用获得焦点的控件

请帮忙看看

作者: 3382345 时间: 2008-9-12 16:57
自己顶一下

作者: 3382345 时间: 2008-9-12 22:28
焦急等待中!!

作者: 3382345 时间: 2008-9-12 22:56
自己解决了!!

作者: puter9 时间: 2008-9-14 22:57
都是高手呀。

作者: puter9 时间: 2008-9-14 22:58
值得我学习学习

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)