select correct record
in [Form]
|
Prev: Property block in top left corner has disappeared
Next: A2K-TOOLS - Convert Database to current ACCESS-Version
From: timbits35 via AccessMonster.com on 28 Feb 2010 20:59 Hi, I have an unbound box to search and select an athlete in a sales form. It works only partially. Each athlete can have several sales records for each contract year and there are some athletes with the same last name. I want to be able to select the record based on the contract year. But when I try to select the year that I want it just selects the first record. Here is my code and the information from the recordsource box. SELECT qrysales.Lname, qrysales.Fname, qrysales.SalesID, qrysales. contractyear FROM qrysales ORDER BY qrysales.Lname; Private Sub cbosearch_AfterUpdate() ' Find the record that matches the control. On Error GoTo ProcError Dim rs As Object Set rs = Me.RecordsetClone rs.FindFirst "[Lname] = '" & Me![cbosearch] & "'" If Not rs.EOF Then Me.Bookmark = rs.Bookmark ExitProc: Exit Sub ProcError: MsgBox "Error: " & Err.Number & ". " & Err.Description Resume ExitProc End Sub -- Message posted via AccessMonster.com http://www.accessmonster.com/Uwe/Forums.aspx/access-forms/201003/1
From: RonaldoOneNil on 1 Mar 2010 07:01
rs.FindFirst "[Lname] = '" & Me![cbosearch] & "' And [contractyear] = " & Me![cboSearch].Column(3) "timbits35 via AccessMonster.com" wrote: > Hi, > > I have an unbound box to search and select an athlete in a sales form. It > works only partially. Each athlete can have several sales records for each > contract year and there are some athletes with the same last name. I want to > be able to select the record based on the contract year. But when I try to > select the year that I want it just selects the first record. Here is my code > and the information from the recordsource box. > > SELECT qrysales.Lname, qrysales.Fname, qrysales.SalesID, qrysales. > contractyear FROM qrysales ORDER BY qrysales.Lname; > > > Private Sub cbosearch_AfterUpdate() > ' Find the record that matches the control. > On Error GoTo ProcError > Dim rs As Object > > Set rs = Me.RecordsetClone > rs.FindFirst "[Lname] = '" & Me![cbosearch] & "'" > If Not rs.EOF Then Me.Bookmark = rs.Bookmark > ExitProc: > Exit Sub > ProcError: > MsgBox "Error: " & Err.Number & ". " & Err.Description > Resume ExitProc > End Sub > > -- > Message posted via AccessMonster.com > http://www.accessmonster.com/Uwe/Forums.aspx/access-forms/201003/1 > > . > |