注册 登录
编程论坛 ACCESS论坛

提示“找不到宏202

pxfinal 发布于 2006-05-22 14:32, 976 次点击
在access工程中,新建了一个按钮,用来增加记录
On Error GoTo Err_Command78_Click


If Not IsNull(Me!入库单编号) Then
Update_form
End If

If IsNull(Me!入库单编号) = True Then
Else
If Check_Empty() = True Then
MsgBox "你还有未添加数据的入库单,不能新建"
End
End If
End If
DoCmd.GoToRecord , , acNewRec



If Check_Empty() = True Then
MsgBox "你还有未添加数据的入库单,不能新建"
Else
Me!入库单编号 = Add_number("原材料入库单", "入库单编号")
Me!入库日期 = Date
Me.Recalc
End If
读取审核
Text65 = Form.CurrentRecord
Exit_Command78_Click:
Exit Sub
Err_Command78_Click:
MsgBox Err.Description
Resume Exit_Command78_Click
当我运行到me.recalc 时候,提示找不到宏202,原来是好用的,我只是在其他模块中修改了一个函数,把一个窗体函数,做成了公共函数,就出现了这个问题。不知道为什么!!!
3 回复
#2
wdlrczt2006-05-23 09:10

方便的情况把附件传上来看看

#3
pxfinal2006-05-23 11:26
说出来都气死你,我把原来的备份文件,调了出来(控件完全一样),然后把错误文件的代码全部拷贝过去,包括窗体和模块的,运行就没有问题了。问题解决了,但是就是不知道为什么会出现这种情况,抽风?
#4
wdlrczt2006-05-23 15:39
也许是窗体坏了
1