Hello people
I’ve been trying to add a combo box find record button to myfledgling database and it’s not working in that the cbo lists the fields I’mexpecting to see in the dropdown but doesn’t execute when clicked. I’mconfident I’ve followed the correct steps (code from Martin Green’s fontstuff) changingonly the rst.FindFirst which is adjusted to my own primary key called ‘ProjRef’.
Private Sub cboGoToRecord_AfterUpdate()
On Error Resume Next
Dim rst AsObject
Set rst =Me.RecordsetClone
rst.FindFirst "EmployeeID = " &Me.cboGoToRecord.Value
Me.Bookmark = rst.Bookmark
End Sub
I’ve tried this a ridiculous number of times. The debug doesn’tflag up any issues.
I’ve also tried to achieve the same goal using the cbowizard option 3 ‘’ Find a record on my form based on the value I selected in mycombo box. The same thing happens – or doesn’t happen, if you see what I mean.I click on any item from the cbo drop down and nothing.
However, when I’ve tried the cbo wizard option 1 “ I wantthe combo box to get the values from another table or query’ it does work – butit’s an ugy compromise with the data being in the order of the table andshowing the blanks where fields are yet to be populated.
As I say, I’ve deleted the combobox and created a new one onmany, many occasions but always the same (lack of) result. I’ve tried sourcingit to other tables within the db and nothing happens. The data tab of the propertysheet of the cbo says that ‘enabled: yes; locked: no’. All other features on the form (such as they are) arefunctioning.
Is there anything I should be looking out for because I’mdesperate for this to work.
Cheers.