在“转换宏”对话框中有两个选项, 选中后依次表示:转换形成的ⅤBA程序 中包含进行出错处理的 On error子程序段 转换形成的VBA程序中包含关于宏对象 的注释 此处,让我们来看看转换成的ⅤBA 程序代码,其间包含出错处理程序段和 宏注释
在“转换宏”对话框中有两个选项， 选中后依次表示：转换形成的VBA程序 中包含进行出错处理的On Error子程序段； 转换形成的VBA程序中包含关于宏对象 的注释。 此处，让我们来看看转换成的VBA 程序代码，其间包含出错处理程序段和 宏注释
销售记录销售记录 Function销售记录_销售记录( On error goto销售记录销售记录Er 打开“销售数据录入”窗体 DoCmd Open Form"销售数据录入", anOrmal,"" acnorma If Weekday (Date, 2)=7)Then 若逢周日,给出提示 Beep MsgBox"今天周日,客流量较大,辛苦了!" vboKOnly,"注意:" End if
'------------------------------------------------------------ ' 销售记录_销售记录 '------------------------------------------------------------ Function 销售记录_销售记录() On Error GoTo 销售记录_销售记录_Err ' 打开“销售数据录入”窗体 DoCmd.OpenForm "销售数据录入", acNormal, "", "", , acNormal If (Weekday(Date, 2) = 7) Then ' 若逢周日，给出提示 Beep MsgBox "今天周日，客流量较大，辛苦了！", vbOKOnly, "注意：" End If