How do I Move Objects using VBA code and also, once the objects are moved, how do I m

[MrHuth]

I'm building forms and reports using Mircrosoft Access. I've ran into this issue a few times now and I'm tired of working around it. I need to be able to move objects by changing the left and top position in an access report/form. This is an example of my code. I've tried declaring variables as variant, long, integer, and double. Should I just keep rotating through the different types or is there a better way of doing this? When the form/report opens, the object just goes to zero and the value shown in properties is "0.0028"

Public Sub Form_Load()
Dim lngTop As Long
Dim lngLeft As Long

lngTop = 4.4
lngLeft = 4.4
With Forms!frmTest!Label0
.Left = 4.4
.Top = 4.4
End With
End Sub

[PhilOfWalton]

You need to use twips as the unit of measurement.
There are 567 twips per cm
There are 1440 twips per inch.

Assuming you are using English measurements, for clarity I tend to use code like this:-

Public Sub Form_Load()
    Const TwipsPerInch = 1440
 
    With Forms!frmTest!Label0
        .Left = 4.4 * TwipsPerInch
        .Top = 4.4 * TwipsPerInch
    End With
End Sub
 

Phil

[MrHuth]

Thanks PhilOfWalton. I've been doing dba stuff for 7/8 years and never heard of this. Thanks for the help.

[MrHuth]

Oh fail. Is there a way to make the changes on said form/report permanent?

[PhilOfWalton]

How confusing!!!
Your original question was about dynamically moving a control as the form opened (Incidentally, I think it might be better to run the code on the OnOpen event rather than the OnLoad event)

Your second question asks how to position the control permanently.This, as I'm sure you are well aware, is done in Design View (Positionig here is done in Inches or Cms. - NOT Twips) and you don't need the code.

Am I missing the point of your question?

Phil

[MrHuth]

I apologize. I have about 800 objects on a single report. they are in sets of 4. and the position of each set is determined by 1 of those 4. I am unsure of how much time I've spent moving every single object and if I were to use a loop to position each set accordingly, it'd save me days.

[MrHuth]

Just a quick pic fo the dashboard with the kajillion objects.

[PhilOfWalton]

That looks fun.

This bit of code may give you a clue to redesigning forms/reports.
Note that it is run from an individual module.

Function RedesignReport(ReportName As String)
 
    Const TwipsPerCm = 567
 
    DoCmd.OpenReport ReportName, acViewDesign
 
    With Reports(ReportName)
        .Text2.Top = 2 * TwipsPerCm
        .Text2.Left = 2 * TwipsPerCm
    End With
 
    DoCmd.Close acReport, ReportName
 
End Function
 

I presume you are aware that if your controls have a consistent form of naming like "loom0101", "loom0102" etc., you can refer to them using indexes.

if you have integers i & j then for i = 1 and j = 2, "loom0102" can be addressed as

    Me.Controls("loom" & Cstr(Format (i,"00")) & Cstr(Format (j,"00"))
 

Might give you the option to create a table to build your form

Phil

[MrHuth]

Thanks a bunch. I'll have to look into it some more but just being able to move the objects for now is weight lifted off of my shoulders. When I get the 1st version out, I'll start playing around with the module and let you know how it goes. Thanks again.