Access中的一对一关系中级联删除的实现需要使用“级联删除”,即在删除一个表中的数据时,自动删除相关联的另外一个表中的数据。下面是实现级联删除的代码示例:
在设计表时,选择要实现级联删除的一对一关系表,设置好关联属性。
打开代码视图,在需要级联删除的表上加入以下代码:
Private Sub Form-BeforeDelConfirm(Cancel As Integer, Response As Integer) Dim db As DAO.Database dim rst As DAO.Recordset dim strSQL As String Set db = CurrentDb() strSQL = "DELETE FROM [TableName2] WHERE [FieldName] = " & Me![FieldName] db.Execute strSQL Set rst = db.OpenRecordset("SELECT * FROM [TableName2] WHERE [FieldName] = " & Me![FieldName]) If rst.EOF Then Response = acDataErrContinue Else Response = acDataErrDisplay End If Set rst = Nothing Set db = Nothing End Sub
注:上述代码中,表名和字段名应根据实际情况进行修改。
以上就是Access中一对一关系中级联删除的解决方法。