Moving an image in a grouped header

[KillGorack]

Hi,

I'm totally new to access, and need a little help on how to tweak an images location every time an instance of "GroupHeader0" is rendered. So the same image needs to be possibly in different locations. But only tweaked in the Y axis.

I place the code in "On Paint"



and the code I am using to test with is;

Private Sub GroupHeader0_Paint()

    Me.imgVFF.Left = 2880


End Sub

also I've used below;

Private Sub GroupHeader0_Paint()
    
    Dim rpt As Report
    Set rpt = Reports!projects
    rpt.imgVFF.Left = 2880


End Sub

Either way I get; "The setting you entered isn't valid for this property".

consequently I can do the following, and get a number out of it.

Debug.Print Me.imgVFF.Left

a little confused, any ideas?

[ranman256]

There’s no need for
:Dim rpt As Report Set rpt = Reports!projects

you are already IN the report. No need to make another.

so it is: Img.left

DONT put it in PAINT.
put it in ON PRINT.

[KillGorack]

so it is: Img.left.

Changed to;

Private Sub GroupHeader0_Print(Cancel As Integer, PrintCount As Integer)


    Me.imgVFF.Left = 1440


End Sub

Still the error persists. Perhaps it's something to do with the project. I'll try to create a blank project and test it this way.

[Minty]

You need use the move action
https://learn.microsoft.com/en-us/of...ess.image.move

Me.imgVFF.Move 1440

[KillGorack]

You need use the move action
https://learn.microsoft.com/en-us/of...ess.image.move

Me.imgVFF.Move 1440

Thanks, but I get the same exact error.. something else is at play here.

[Minty]

What type of control is imgVFF ?

Can you upload a simple sample database to have a look at?

[KillGorack]

I created a blank database, and attached it here..

I get the same error as before..

for inserting the image I used this congrol

[KillGorack]

It has to be approved by a moderator, but it's coming.

[KillGorack]

See message above

[pbaldy]

Post 7 was moderated, I'm posting to trigger email notifications.

[KillGorack]

Within a grouped header. I just plopped it in format. I'm able to instill change in the image location now.

Private Sub GroupHeader0_Format(Cancel As Integer, FormatCount As Integer)
    Me.imgVFF.Left = Int((12960 * Rnd) + 1)
End Sub

[Minty]

Apologies I missed your upload.

Glad you have sorted it, and thanks for posting back the solution.

[KillGorack]

Apologies I missed your upload.

Glad you have sorted it, and thanks for posting back the solution.

I'd mark this one solved... if I knew how..

[pbaldy]

I'd mark this one solved... if I knew how..

It's in Thread Tools in the green bar above the first post.