Combo Box to Update Tabbed Information ona Form

[JessicaNicole]

I'm working with Access 2007 and am trying to make a form with multiple tabs that will update when a certain business name is selected in the combo box at the top of the form. I have tried looking up different codes to make the combo box update correctly but can't find anything. Right now I have this code in my After Update:

Private Sub cboBusinessName_AfterUpdate()
On Error GoTo myError
Dim rst As Object

Set rst = Me.RecordsetClone
rst.FindFirst "[GrowerID] = " & Me.cboBusinessName
Me.Bookmark = rst.Bookmark

leave:


If Not rst Is Nothing Then Set rst = Nothing
Exit Sub
myError:
MsgBox "Record Not Found"
Resume leave
End Sub

Here is a picture of the tabs and combo box.





If anyone can help that would be great. Feel like I've been trying to work on this one for too long.

[ketbdnetbp]

JessicaNicole - The code you displayed simply navigates to the record that matches the selection made in the combo. If the additional tabs contain controls/fields from the same recordset (table/query), they should update automatically after the navigation occurs. Evidently, that is not occurring?

In which case, I would try something like:
Private Sub cboBusinessName_AfterUpdate()
On Error GoTo myError

Dim rst As Object
Set rst = Me.RecordsetClone 'I have also seen it as Set rst = Me.Recordset.Clone
rst.FindFirst "[GrowerID] = " & Me.cboBusinessName.Value 'Assumes GrowerID is the bound column of the combo, if not change.
If Not rst.EOF then
Me.Bookmark = rst.Bookmark
else
MsgBox "Record Not Found"
exit sub
end if
myerror:
MsgBox Err.Description
Exit sub

End Sub

All the best,


Jim

[JessicaNicole]

Okay I got my combo box to work. But now I'm finding that my GrowerID is off by 1 place. for example, if I choose the second grower on the drop down is shows the first grower's information in the tab. I put a Me.subfrmGrowerInformation.Requery at the end of my after update but it still isn't matching.

[ketbdnetbp]

JessicaNicole -
I would assume that "Me.subfrmGrowerInformation.Requery" indicates you have subform(s) on the additional tabs. You may want to check the Link Child/Master properties of the subform to make sure GrowerID is listed.

All the best,

Jim