Re: [MS_AccessPros] Combobox not filtering main form

 

Art,

Is there any code in the after update event of cboCabinets?

I would expect to see something like:

Private Sub cboCabinets_AfterUpdate()

    ' Find the record that matches the control.

    Dim rs As Object

    Set rs = Me.Recordset.Clone

    rs.FindFirst "[CabinetID] = " & str(Nz(Me![cboCabinets], 0))

    If Not rs.EOF Then Me.Bookmark = rs.Bookmark

End Sub

Regards,

Duane Hookom

---

From: MS_Access_Professionals@yahoogroups.com <MS_Access_Professionals@yahoogroups.com> on behalf of dbalorenzini@yahoo.com [MS_Access_Professionals] <MS_Access_Professionals@yahoogroups.com>
Sent: Monday, November 27, 2017 11:28 AM
To: MS_Access_Professionals@yahoogroups.com
Subject: [MS_AccessPros] Combobox not filtering main form

 

I have a form called frmCabinetEdit which is a bound form to tblCabinet, on which has the following controls:

cboCabinets - unbound combobox - recordsource: SELECT [tblCabinets].[CabinetID], [tblCabinets].[CabinetName] FROM tblCabinets;
txtCabinetMemo - bounded textbox - controlsource: tblCabinent.cabinetmemo
CabinetID - bounded textbox - not visible: control source: tblCabinet.cabinetid

sfrmIndexes: subform bounded to form: sfrmIndexes. Recordsource: tblIndexes link to cboCabinet by CabinetID
sfrmSubfolders: subform bounded to form: sfrmSubFolders. Recordsource: tblSubfolders link to cboCabinet by CabinetID

Now the issue is when I select different records in cboCabinets it changes to the appropriate records in both subforms but not the main form frmCabinetEdit.

Any Ideas?

Thank you

Art Lorenzini
Sioux Falls, SD

__._,_.___

---

Posted by: Duane Hookom <duanehookom@hotmail.com>

---

Reply via web post

•

Reply to sender

•

Reply to group

•

Start a New Topic

•

Messages in this topic (2)

---

Have you tried the highest rated email app?

With 4.5 stars in iTunes, the Yahoo Mail app is the highest rated email app on the market. What are you waiting for? Now you can access all your inboxes (Gmail, Outlook, AOL and more) in one place. Never delete an email again with 1000GB of free cloud storage.

---

Visit Your Group

• Privacy • Unsubscribe • Terms of Use

.

__,_._,___