Display records based on button selected in Access 2016

I have created a seating plan in a form for my works building to manage the hosts. I'm wanting to click on a seat and have all details display in the fields at the bottom inc. who sits there, what hosts, make/model of hosts .etc. It's possible for a desk to have multiple hosts (a PC, laptop, Mac .etc), yet only 1 user can be sat there. That's why I've set up multiple record entries at the bottom so up to 3 can be shown. See attached image.

Each host is associated with a user. Could I display multiple records that are associated with a userid? How could I go about this? Thanks in advance

Theron HoggAsked: 2017-11-07

Who is Participating?

Experts Exchange Solution brought to you by

Enjoy your complimentary solution view.

Get this solution by purchasing an Individual license! Start your 7-day free trial.

I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

LVL 58

Gustav BrockCIOCommented: 2017-11-07

With that many controls, you would use WithEvents to capture the click events without writing dozens of lines of code.
An example can be found here:

Create Windows Phone Colour Palette and Selector using WithEvents

/gustav

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial

LVL 54

Dale FyeOwner, Dev-Soln LLCCommented: 2017-11-07

or use something like Screen.ActiveControl.Name to get the name of the image which was clicked.

and in the Click property (dialog box) of each of those controls, enter: =DisplayUserData()

With code like:

Private Function DisplayUserData()

    dim ctrl as control

    set ctrl = me.controls(screen.ActiveControl.Name).Caption

    'add code here to display the data associated with that position.

End Function

Open in new window