• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 809
  • Last Modified:

How do I move focus to an Image object

I've been strugling with this problem for two days now:
I've got a form with about 100 Image objects and 100 textbox objects.
I would like to perform several actions on the objects, but instead of making a list in Visual Basic like:

Set ctl = image1
Set ctl = image2
Set ctl = image3

and so on I would like to make this dynamic like: Set ctl = "image" & me.imagenumber, but I haven't been able to get this to work.
I've also tried to do this with:

DoCmd.GoToControl ("Input" & Me.imagenumber)       for the textbox object
DoCmd.GoToControl ("Image" & Me.imagenumber)      for the image object

The strange thing is that for the textbox object it works perfectly, but when I try the same thing for the image object I get:
"Run-time error 2110 - access can't move the focus to the control"

It's probably (hopefully?) pretty easy to solve, but so far I haven't been able to find a solution and it's getting pretty frustrating.
Any help will be very much appreciated.

Kind regards,

Joris

0
Athoss22
Asked:
Athoss22
  • 5
  • 4
  • 2
1 Solution
 
Emil_GrayCommented:
An image cannot receive focus. Sorry 'bout that.
0
 
Athoss22Author Commented:
Ok thanks for the information, but  maybe there's another way around my problem?
The reason I'm is asking because I need to change (amongst other things) the postion of the images. So instead of making lists like:

Me.image1.Top = Me.Top
Me.image1.Left = Me.Left
Me.image2.Top = Me.Top
Me.image2.Left = Me.Left
Me.image3.Top = Me.Top
Me.image3.Left = Me.Left

and so on, I hope there's a better way to do this. Do you know if it's possible to do something like:
"Me.image" & me.imagenumber & ".Top" = Me.Top

Any suggestions?

Kind regards,

Joris
0
 
Emil_GrayCommented:
Oh, you might try putting your images in bound or unbound frames which can receive focus.
0
Concerto Cloud for Software Providers & ISVs

Can Concerto Cloud Services help you focus on evolving your application offerings, while delivering the best cloud experience to your customers? From DevOps to revenue models and customer support, the answer is yes!

Learn how Concerto can help you.

 
Emil_GrayCommented:
Check out this information. It might help you.

http://www.alvechurchdata.co.uk/company/useimage.html
0
 
Jeffrey CoachmanCommented:
You can set the focus to a Image control using.

I will confess that I am a bit hazy as to what you ultimate goal is here.

You cannot set a Textbox equal to an image control.

If your goal here is to set the "Control source" of the textbox to the "Picture" property of the Image contol, then try something like this:

Dim ctl As Control
Dim intDesig As Integer
Dim strMatch As String
    For Each ctl In Me.Section(0).Controls
        If ctl.ControlType = acTextBox Then
            intDesig = CLng(Right(ctl.Name, Len(ctl.Name) - 3))
            strMatch = "img" & intDesig
            ctl = Me.Controls(strMatch).Picture
        End If
    Next ctl

Sample attached


JeffCoachman


Access-EEQ26646024buildControlNa.mdb
0
 
Emil_GrayCommented:
Jeff, does your code actually set focus on the image? I always was under the impression that could not be done. You cannot tab to an image since there is no tab stop. Same thing with a label. If his images are placed in frames then there is a tab stop and the frame can receive focus.
0
 
Jeffrey CoachmanCommented:
My code simply sets the control source of the textbox to the corresponding image .Picture property.

I am still not quite sure of what the asker is looking for, so this is just my interpretation...

I am even more confused by http:#a34235411
Now the goal is to set the position of the controls?
I am just not understanding the reason or need for doing this.

Perhaps I am just missing something simple...

Let's see if Athoss22 will take a step back and clearly explain what the ultimate goal is here...

Jeff
0
 
Emil_GrayCommented:
Jeff, sounds like the best thing. I am curious what it might be. Guessing that it might be he wants to cause the images to move around on the form. I hope he's got a lot of ram and a fast processor if so.
0
 
Athoss22Author Commented:
Thanks for all the feedback. To clarify what I'm trying to achieve I attached a screenshot. As you can see I have several rows of images of products of different sizes. Underneath each image there's a textbox to enter an amount of the product.
It's no problem to generate this layout from data in a table, but I need the form to get flexible.
If one of the products gets replaced by another product I need to adjust the size and the image of the image control and the size of the textbox below the image. Furthermore I need to adjust the location of all the products/textboxes to the right of the product that has changed.
If for example product 3 on row 2 gets replaced by a smaller product I need to adjust position of all the products in row 2 to the right of product 3 so that they move to the left.

I thought it would be easiest if I could set focus to the images and textboxes that need to be adjusted, but since that's not possible I'm looking for another way to do this.
Layout.jpg
0
 
Jeffrey CoachmanCommented:
1. Well, what you are presenting above now is a far cry from what you originally requested
In the future simply state your ultimate goal.
When you tell us "How" you want things done (move focus to an Image object)
It hamstrings us.
What you are requesting has nothing to do moving the focus to an image control.
;-)


2. As far as I can tell, you need to "Group" these controls
(What version of Access are you using?, as the steps are different for different Access versions)

Open the form in design view and select the two controls (The image and the textbox) that you want to Group.
(Click the first control, then hold down the shift key and select the other contol)
Then (In Access 2007) click: Arrange-->Control Layout-->Then click the "Group" icon.
Now when you click on either control, they will both be selected (Grouped)
If you resize or move one, the other will follow.
(in Access 2003, click format-->Group.)

In Access 2007 You can even create a "Layout".
This is where you select "All" the contols and click the "Tabular" control Layout.
This will resize all the controls, in the "Grid" stlye you are asking about.

You can probably play around with both of these options (possibly in conjuction with one another) to get what you are after.

3. I also will say that this is a layout style that I have never seen. (not even in a web page)
Are you sure this is the only way that this data can be displayed?
This will require a fair amount of maintenance everytime a product changes.
As far as I can tell, this will never be truely "Dynamic" (Automatically adjusting on the fly) as you are are specifying.
Also, what if you have a thin product image with a long price? (price may not fit in the skinny textbox.)


JeffCoachman
0
 
Jeffrey CoachmanCommented:
;-)
0

Featured Post

Independent Software Vendors: We Want Your Opinion

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

  • 5
  • 4
  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now