提示“找不到宏202
在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,原来是好用的,我只是在其他模块中修改了一个函数,把一个窗体函数,做成了公共函数,就出现了这个问题。不知道为什么!!!