请大大帮忙解决：快速平台用组合框自动填充，按保存弹出“多步操作产生错误”的提示

qshy　发表于：2014-02-12 10:35:43 　

复制

本人在快速平台生成的窗体frmCodefw_Edit中用组合框自动填充方式新增或修改数据，但保存时弹出“多步操作产生错误”的提示，如下图

不知是否代码有误，请大大们帮忙解决修改，谢谢！附件如下：

点击下载此附件

Top

123木头人发表于：2014-02-12 20:50:52

经测试，在我电脑上操作一切正常，不存在你说的问题。

Top

牛魔王发表于：2014-02-13 06:40:10

字段的长度或类型不符，把“户型”字段长度改长些，试试看！

Top

qshy 发表于：2014-02-13 10:15:30

我重新检测发现是“商_电价”和“商_水价”文本框自动填充为空值时出现错误提示，如何才能确保文本框不自动填充空值，请大大帮忙修改代码，谢谢！

Top

qshy 发表于：2014-02-13 11:05:46

本问题已解决，用DLookup() 函数即可解决

将
Private Sub lbmc_AfterUpdate()
Me.dj = Me.lbmc.Column(1)
Me.sj = Me.lbmc.Column(2)
Me.sdj = Me.lbmc.Column(3)
Me.ssj = Me.lbmc.Column(4)
Me.lbID = Me.lbmc.Column(5)
End Sub
改为

Private Sub lbmc_AfterUpdate()
Me.dj = DLookup("dj", "tblCodesplb", "lbmc='" & Me.lbmc & "'")

Me.sj = DLookup("sj", "tblCodesplb", "lbmc='" & Me.lbmc & "'")
Me.sdj = DLookup("sdj", "tblCodesplb", "lbmc='" & Me.lbmc & "'")
Me.ssj = DLookup("ssj", "tblCodesplb", "lbmc='" & Me.lbmc & "'")
Me.lbID = DLookup("lbID", "tblCodesplb", "lbmc='" & Me.lbmc & "'")
End Sub

Top

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

Access交流中心

请大大帮忙解决：快速平台用组合框自动填充，按保存弹出“多步操作产生错误”的提示