access 限制子表数据只能单选

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    On Error Resume Next
    If Me.SelHeight > 1 Then　　'判断用户是否多选
        Dim i As Long
        i = Me.CurrentRecord　　'保存鼠标点选时的第一个记录的值 
        Me.Requery　　'刷新数据表,退出多选状态
        Me.SelTop = i　　'选中之前保存的行
    End If
End Sub