点击下载此附件
Private Sub Command4_Click()
'删除子窗体记录
If MsgBox("确定要删除 " & Forms!窗体1!子窗体!姓名 & " 记录吗?", 36, "删除") = 6 Then
Dim sjBL1 As Long
sjBL1 = Me.子窗体.Form.SelTop '将原记录指针值赋给变量
DoCmd.RunSQL "Delete 用户.* FROM 用户 Where 用户.ID=forms!窗体1!子窗体!ID" '执行删除查询
'Me.子窗体.Requery '本次刷新记录指针没有移动,所以不要运行
Me.子窗体.SourceObject = "子窗体" '重新载入子窗体 记录指针移动到第一位
Me.子窗体.Form.SelTop = sjBL1 '记录指针回到原来位置
'Me.子窗体.Form.SelTop = sjBL1 - 1 '记录指针回到原来位置的上一条记录
'Me.子窗体.Form.SelTop = sjBL1 + 1 '记录指针回到原来位置的下一条记录
End If
End Sub
Private Sub Text1_AfterUpdate()
'定位子窗体记录
If Not IsNull(Text1) Then Me.子窗体.Form.SelTop = Text1
End Sub