Hello all...
I have been working on a small museum Artifact database and am having problems with a form that is supposed to look up records of artifacts which are displayed in a subform.
The user enters the donor's name, phone number etc. which is saved in a table, DonorTable. 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. The Donor's Name is a text field that is linked in a 1 - OO relationship with the Donor's Name in another table which contains all of the artifact details.
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 related 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.)
Any help I could get on this would be greatly appreciated.
Thanks!
I have been working on a small museum Artifact database and am having problems with a form that is supposed to look up records of artifacts which are displayed in a subform.
The user enters the donor's name, phone number etc. which is saved in a table, DonorTable. 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. The Donor's Name is a text field that is linked in a 1 - OO relationship with the Donor's Name in another table which contains all of the artifact details.
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 related 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.)
Any help I could get on this would be greatly appreciated.
Thanks!
