我做了一个窗体
里面有储血号 献血人 血型 等等
现在想根据其中的 储血号 来显示其他的
网上找了个代码
Private Sub 储血号_AfterUpdate()
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[储血号] = '" & Me![储血号] & "'"
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub
结果不能用 一改储血号 就出错
提示
"运行时错误 ‘3022’
由于在索引,主关键字,或关系中创建重复的值,请求对表的改变没有成功……"
是什么出问题了 该如何解决 谢谢各位