I have been working on a small museum Artifact database and am having problems with a form that is supposed to look up records which are displayed in a subform.
The user eneter the donor's name, phone number etc. which is saved in a table. After the donor's details have been stored, the user can then add any number of artifacts brought in by this specific donor through a subform.
Sometimes a donor donates objects more than once. It makes more sense to simply attribute the new artifacts to this one donor through this form than to add in the donor's details every time separately. By selecting a particular donor's name via a lookup combo box (Combo11) that displays a list of all of the donor's names, the relevant artifacts are supposed to show up.
Instead, I get an error - "Run Time Error '3201' - No Current Record"
When debug is selected - it points to the following code
Private Sub Combo11_AfterUpdate()
Dim rs as Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[DonorName] =' " & Me![Combo11] & "'"
Me.Bookmark = rs.Bookmark
and highlights the last line.
This error happens for every donor, none of them are excepted, which would point away from a mismatch of some kind (which access probably would have found by now.)
The relevant records are obviously not displayed.
Any help I could get on this would be greatly appreciated.
Mike
The user eneter the donor's name, phone number etc. which is saved in a table. After the donor's details have been stored, the user can then add any number of artifacts brought in by this specific donor through a subform.
Sometimes a donor donates objects more than once. It makes more sense to simply attribute the new artifacts to this one donor through this form than to add in the donor's details every time separately. By selecting a particular donor's name via a lookup combo box (Combo11) that displays a list of all of the donor's names, the relevant artifacts are supposed to show up.
Instead, I get an error - "Run Time Error '3201' - No Current Record"
When debug is selected - it points to the following code
Private Sub Combo11_AfterUpdate()
Dim rs as Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[DonorName] =' " & Me![Combo11] & "'"
Me.Bookmark = rs.Bookmark
and highlights the last line.
This error happens for every donor, none of them are excepted, which would point away from a mismatch of some kind (which access probably would have found by now.)
The relevant records are obviously not displayed.
Any help I could get on this would be greatly appreciated.
Mike
