北京 | 上海 | 天津 | 重庆 | 广州 | 深圳 | 珠海 | 汕头 | 佛山 | 中山 | 东莞 | 南京 | 苏州 | 无锡 | 常州 | 南通 | 扬州 | 徐州 | 杭州 | 温州 | 宁波 | 台州 | 福州 | 厦门 | 泉州 | 龙岩 | 合肥 | 芜湖 | 成都 | 遂宁 | 长沙 | 株洲 | 湘潭 | 武汉 | 南昌 | 济南 | 青岛 | 烟台 | 潍坊 | 淄博 | 济宁 | 太原 | 郑州 | 石家庄 | 保定 | 唐山 | 西安 | 大连 | 沈阳 | 长春 | 昆明 | 兰州 | 哈尔滨 | 佳木斯 | 南宁 | 桂林 | 海口 | 贵阳 | 西宁 | 乌鲁木齐 | 包头 |
兰色块是宏换成的代码如何插入到窗体按钮中？
Private Sub 删除_Click()
把兰色的代码放到这儿应用
End Su
Function 删除记录()
On Error GoTo 删除记录_Err
With CodeContextObject
On Error Resume Next
DoCmd.GoToControl Screen.PreviousControl.Name
Err.Clear
If (Not .Form.NewRecord) Then
DoCmd.RunCommand acCmdDeleteRecord
End If
If (.Form.NewRecord And Not .Form.Dirty) Then
Beep
End If
If (.Form.NewRecord And .Form.Dirty) Then
DoCmd.RunCommand acCmdUndo
End If
If (.MacroError <> 0) Then
Beep
MsgBox .MacroError.Description, vbOKOnly, ""
End If
End With
删除记录_Exit:
Exit Function
删除记录_Err:
MsgBox Error$
Resume 删除记录_Exit
End Function
点击下载此附件