摘要：If MsgBox("是否删除该记录?", vbOKCancel) vbOK Then

打开前端，删除窗体，输入要查找的员工号，点击查找按钮

查找到要删除的员工信息

删除成功

后端指定记录已被删除

Private Sub Command删除_Click

' 定义一个错误处理标签，用于捕获和处理错误

On Error GoTo 删除失败错误

' 检查员工号是否为空或未设置

If 员工号 = "" Or IsNull(员工号) = True Then

MsgBox "员工号值为空！" ' 如果员工号为空，显示消息框并退出子程序

Exit Sub

End If

' 显示确认对话框，询问用户是否删除记录

If MsgBox("是否删除该记录?", vbOKCancel) vbOK Then

Exit Sub ' 如果用户选择取消，则退出子程序

End If

' 定义数据库文件路径

Dim db_pathname As String

db_pathname = "C:\Users\liang\Desktop\前后端示例\后端.accdb"

' 创建一个新的ADODB连接对象

Dim del_conn As New ADODB.Connection

' 定义删除记录的SQL语句

Dim del_sql As String

del_sql = "delete from 员工表 Where " & "员工号='" & Me.员工号 & "'"

' 使用With语句配置并打开数据库连接

With del_conn

' 设置连接提供程序和数据库密码

.Provider = "microsoft.ace.oledb.12.0;Jet OLEDB:Database Password='aaa123"

' 设置连接字符串为数据库路径

.ConnectionString = db_pathname

' 打开数据库连接

.Open

' 执行删除SQL语句

.Execute del_sql

End With

' 关闭数据库连接

del_conn.Close

' 将连接对象设置为Nothing以释放资源

Set del_conn = Nothing

' 显示删除成功的消息框

MsgBox "删除成功"

' 清空表单上的控件值

员工号.Value = ""

姓名.Value = ""

性别.Value = ""

部门.Value = ""

职位.Value = ""

联系方式.Value = ""

工资.Value = ""

' 退出子程序

Exit Sub

删除失败错误:

' 捕获并显示错误信息

MsgBox Err.Description

End Sub

来源：小夏论科技