How to use the "Position Bring to Front" at runtime?

[GraeagleBill]

I Have a report with two text boxes super-imposed. Depending on which back-end DB is active, I need to bring the appropriate text box to the front of the other. I tried to accomplish the desired results by toggling the visibility property without success. (The text boxes float beneath a sub-report container that sizes at runtime.)

'  intBEIndex=: 0 "Personal", 1 "CreditCards" and 2 "Business"
Select Case intBEIndex
    Case 0, 2
        Me.tbSumDeb.Visible = True
        Me.tbSumCrd.Visible = False
    Case 1
        Me.tbSumCrd.Visible = True
        Me.tbSumDeb.Visible = False
End Select

I've also tried a single text box where I attempted to change its ControlSource at runtime, but Access would not allow that action in either the Open Event or the OnLoad Event.

The thought the easiest way would be to simply populate both TB's and position one in front of the other, but I can find no reference to a "Bring to Front" property for the control.

[CJ_London]

There isn’t one

only way to do it may be give it the focus

mycontrol.setfocus

[GraeagleBill]

Turns out, with some well placed debug code, that the first incident of the report does not get closed. So, the subsequent incident does not execute the open code where the properties of the two tb controls are subject to change. What masked it from a normal appearance of report preview is that the report is opened and sent to a PDF file directly, without user intervention, where it's only the pdf file that is closed by the user. Thus, it's the responsibility of that special direct PDF module to close the report after the PDF file is closed.

I discovered the condition when I tested this code and the MsgBox statemtment didn't fire:

inttbHeight = Me.tbSumDeb.Height
MsgBox inttbHeight


'  intBEIndex=: 0 "Personal", 1 "CreditCards" and 2 "Business"
Select Case intBEIndex
    Case 0, 2
        Me.tbSumDeb.Height = inttbHeight
        Me.tbSumCrd.Height = 0
    Case 1
        Me.tbSumCrd.Height = inttbHeight
        Me.tbSumDeb.Height = 0
End Select

I have reverted back to what I coded when I first created the report, where both TB visible properties are set to No.

'  intBEIndex=: 0 "Personal", 1 "CreditCards" and 2 "Business"
Select Case intBEIndex
    Case 0, 2: Me.tbSumDeb.Visible = True
    Case 1: Me.tbSumCrd.Visible = True
End Select