Run time error 2137 but record does exist

[coach32]

I am receiving the Run time error that I can't find or replace now. But I know the record exists.
My code is run from a command button and was working fine this morning.


Could someone please help?

Private Sub Command87_Click()
Dim str As String
str = InputBox("What is the Activity Id?", "Siebel Id")
str = "*" & str & "*"
DoCmd.FindRecord str, , False, , True
End Sub

[ItsMe]

I can't say that I have experienced this while using code. I have seen a dialog window open and explain that I cannot use Find and Replace, though. IIRC it happens when the intrinsic Find and Replace window is open and the user moves focus somewhere and causes the field being searched to become unavailable. Anyway, I will venture a guess and say you should try and set focus on the control that is bound to the field being searched.

So, after
str = InputBox("What is the Activity Id?", "Siebel Id")

and before
DoCmd.FindRecord str, , False, , True

Place a SetFocus
Me.ControlName.Setfocus

[coach32]

Thank you for that, but unfortunately I am still getting the run time error.

[ItsMe]

I tested it out and moving focus is not enough to create the error. Access seems to remember where the focus was last and searches that field. If the last control to have focus is not searchable, Access will look for the next available.

It seems the code and scenario you have presented is not the whole picture. Perhaps you are using this code behind a form that does not have a control that is searchable. The only way I was able to reproduce the error is with the following ...

'Because the user clicked the Button
'focus is currently on the Button Control
Dim str As String
str = InputBox("What is the Activity Id?", "Siebel Id")
str = "*" & str & "*"
Me.MainIndex.Enabled = False
Me.Text1.Enabled = False
Me.Text4.Enabled = False
'Now we will get the error because there
'is not a field that is available for the search
DoCmd.FindRecord str, , False, , True

[coach32]

Hi.
I have now learnt that because the form is a Data Entry form, the search wouldn't work. I don't understand why but I managed to turn the DataEntry off when doing a search and this seemed to work fine. Thank you so much for you help and advice.

[ItsMe]

... I don't understand why...

The data entry property will affect which records are part of the Form's RecordSet. When the form is first opened, there will only be the (one) new record. In fact, there will not be any records within the form's Recordset until you start entering and saving data. Any additional records created (without closing the form) will also be part of the form's RecordSet.

If you are seeing the error when first opening the form, it is because there are not any "fields" available when the form first opens. There will not be any fields until after you start typing info into a field.