请大家帮忙看看这代码!

3382345

Private Sub 产品编号_BeforeUpdate(Cancel As Integer)
If IsNull(Me.产品编号) Then
     命令2.Visible = True
     Else
     命令2.Visible = False
     End If
End Sub


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

tz-chf

没错,但应该写在afterupdate里

3382345

好像也不行呀!!我把库传上来了...

tz-chf

你传上来的东西也应该自己编译一下，错误多多。

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

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

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

3382345

我就是为了避免这种情况,就是记录源的问题,但不知道怎样修改...才想到这种方法...还有其它办法吗??

3382345

自己顶一下

3382345

还是要自己顶一下....

3382345

自己想了一个办法,就是打开 窗体 "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

自己顶一下

3382345

焦急等待中!!