Athoss22
asked on
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
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
Emil_Gray
An image cannot receive focus. Sorry 'bout that.
ASKER
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
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
Oh, you might try putting your images in bound or unbound frames which can receive focus.
Check out this information. It might help you.
http://www.alvechurchdata.co.uk/company/useimage.html
http://www.alvechurchdata.co.uk/company/useimage.html
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).Pict
End If
Next ctl
Sample attached
JeffCoachman
Access-EEQ26646024buildControlNa.mdb
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).Pict
End If
Next ctl
Sample attached
JeffCoachman
Access-EEQ26646024buildControlNa.mdb
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.
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
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
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.
ASKER
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
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
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
;-)