The problem: Control.HorizontalAnchor or Control.VerticalAnchor gets a value out of the accepted range.

In the IDE window: Debug.Print Btn.VerticalAnchor --> Result: 4864

In the Immediate window: ?Btn.VerticalAnchor --> 0

Same line. Same code.

I am stumped. Please help.

L.E.: apparently the value somehow gets distorted after If Btn.HorizontalAnchor = acHorizontalAnchorRight Then

CodePudding user response：

I got nearly the same issue running Microsoft Access 2013 x64 15.0.5349 (VBA 7.01).

For me the controls HorizontalAnchor property contains the value of the expected AcHorizontalAnchor enumeration plus 25344.

So if the controls HorizontalAnchor is configured to acHorizontalAnchorLeft (0) it contains 25344.
For acHorizontalAnchorRight (1) it contains 25345.
And for acHorizontalAnchorBoth (2) it contains 25346.

Comparing my value 25344 and your value 4864 I can see that their binary representation both contain additionally set bits in the higher byte:

So the workaround I use is to ignore the high byte of HorizontalAnchor:

If (xControl.HorizontalAnchor And &HFF) = _
    AcHorizontalAnchor.acHorizontalAnchorLeft Then _
    Debug.Print "-> Left"

If (xControl.HorizontalAnchor And &HFF) = _
    AcHorizontalAnchor.acHorizontalAnchorRight Then _
    Debug.Print "-> Right"

If (xControl.HorizontalAnchor And &HFF) = _
    AcHorizontalAnchor.acHorizontalAnchorBoth Then _
    Debug.Print "-> Both"

It should be similar with VerticalAnchor.