asked on

DoCmd.GoToRecord reporting form not opened error (was working)

I'm having trouble with the GoToRecord command. It was working then I change a line below the GoToRecord line and now I'm getting an error on. I think some thing is unstable. Here is the line that generates the error:
DoCmd.GoToRecord acDataForm, "BOM Parts Subform", acGoTo, 2

Here is the error:
Error Number 2489
The object 'BOM Parts Subform' isn't open.

Here is the entire routine:
Dim strQuery As String
Dim strFindDesWild As String

strFindDes = RTrim(InputBox("Please enter search string", "Search Designator field ONLY", strFindDes))
If strFindDes = "" Then
Exit Sub
End If

strFindDesWild = """" & "*" & strFindDes & "*" & """"
strQuery = "SELECT [BOM Parts].[BOM Parts ID] FROM [BOM Parts] INNER JOIN [BOM Designators] ON" & _
" [BOM Parts].[BOM Parts ID] = [BOM Designators].[BOM Parts ID]" & _
" WHERE [BOM Parts].[BOM ID] = " & Parent.txtBOMID & _
" AND [BOM Designators].Designator Like " & strFindDesWild & _
" ORDER BY [BOM Parts].[BOM Parts ID]"
Set rstBOMDes = CurrentDb.OpenRecordset(strQuery, dbOpenSnapshot)
DoCmd.GoToRecord acDataForm, "BOM Parts Subform", acGoTo, 2 '<--------------Error here
If rstBOMDes.EOF Then
MsgBox """" & strFindDes & """ " & " not found in Designator fields" & vbNewLine & _
"Note: Use the ""Find"" button below to search Component, Description, or Comments fields", vbInformation, "User Notice (BPS-11)"
Else
Me.txtBOMPartsID.SetFocus
' DoCmd.FindRecord rstBOMDes![BOM Parts ID], acAnywhere, , acSearchAll, , acAll '<-original line
DoCmd.FindRecord rstBOMDes![BOM Parts ID], acAnywhere, , acSearchAll, True, acAll 'added Search As '< New Line
Me.txtComponentNum.SetFocus
End If

Rey Obrero (Capricorn1)

try

DoCmd.GoToRecord acDataForm, "Forms!NameOFMainForm.[BOM Parts Subform].Form", acGoTo, 2

what was the original line?

schmir1

ASKER

I get the same error.

what was the original line?
That's the funny thing. That is the original line. It use to work. I just started getting this error. The only changes I made are changing the line below and deleting a completely different form. I'm thinking maybe deleting the other form screwed up something.

SOLUTION

Leigh Purvis

membership

This solution is only available to members.

To access this solution, you must be a member of Experts Exchange.

Start Free Trial

schmir1

ASKER

When I do the "Me." , I get a list of everything available but not "BOM Parts Subform". If the menu, I pick View Object and I get to "BOM Parts Subform". Something is screwy.

Leigh Purvis

In your main form's design view - click once on the subform (and only once - we want the control selected).
View>Properties. What is its Name?
That's what you need to be using.

schmir1

ASKER

I get the following:
BOM Parts Subform
When I try that name in your suggestions above, I get an error:
Error Number 2465
MCL Database Application *DEVEL* (From Rev. 3.4 to 3.5) 2/26/07 can't find the field 'Forms' referred to in your expression.

I'm going to try my old standby and copy the form then see if it starts to work.

schmir1

ASKER

My copy fix didn't help. I think I'll give up on this and take the DoCmd.GoToRecord out. The find works but not as reliably.

Leigh Purvis

And you're sure you're refering to the name of the subform control?
If you take out the GotoRecord line - does focus move to the subform, or does it still throw an error?

ASKER CERTIFIED SOLUTION

GreymanMSC

membership

This solution is only available to members.

To access this solution, you must be a member of Experts Exchange.

Start Free Trial

schmir1

ASKER

Thanks GreymanMSC. The following still didn't work:
Me![BOM Parts Subform].Form.Recordset.MoveFirst
Me![BOM Parts Subform].Form.Recordset.MoveNext
There is just no way use "BOM Parts Subform" even though I can go to the object and the code window also says "Form_BOM Parts Subform"

Anyhow, I'm using the following that you provided:
Me.Recordset.FindFirst "[BOM Parts ID] = " & rstBOMDes![BOM Parts ID].Value
This seems to make the find more reliable.

Thanks for all your help.