Undo any control in a form

[twgonder]

I've got a logon form with three entry controls.
There is also a timer to null out the controls if logon isn't completed.

Here is the code from the Form_Timer procedure:

Private Sub Form_Timer()
  '** check if times has passed to accept, reset entries
  Dim FldNm
  Const nProc = "Form_Timer"
  Call sAddStatus(Me, lCntl, nProc, lCntl(2, 3), 1)
  If (Now - UserCdTm) * 86400 > lCntl(0, 10) Then
    ValidLo = False
    'If Me.ActiveControl.Name = "cbx_3_LangID" Then cbx_3_LangID.Undo   'this works but need all controls
    FldNm = Me.ActiveControl.Name
    'On Error Resume Next
    Me.Controls(FldNm).Controls(0).Undo   'RTE 2467
    On Error GoTo 0
    cmb_3_Accept.Enabled = False
    tbx_3_UserCd = Null
    tbx_3_Password = Null
    Me.TimerInterval = 0
    UserCdTm = Now
    tbx_3_UserCd.SetFocus
    'Tbxs_Status = fTranltLang(TempVars!LoLangID, "3_StatusWaitLogon", "H")
    Call sAddStatus(Me, lCntl, fTranltLang(TempVars!lolangid, "3_StatusWaitLogon", "H"), lCntl(2, 3))
 End If
End Sub

RTE : The expression you entered refers to an object that is closed or doesn't exist

The line that does the .Undo for a specific control works.
However, I need the .Undo to work for any control that is active.


Maybe I have the syntax wrong on the line that is getting a RTE 2467?

[moke123]

Me.Controls(FldNm).Controls(0).Undo

Not sure a label can be an active control, nor can a label be undone.

[twgonder]

@moke123, post #2
I haven't yet figured out how the Controls(0) part works, or what it all means.
I'm not trying to undo the label, just the combo box as in the line three above.
(Or any textbox or control that has a bad entry that won't allow focus to move to another control while it has the bad entry.)
Maybe there is a better way?

[twgonder]

Since I copied that code and changed it, moke123's comment got me thinking.
So, I removed the second .Controls(0), and guess what, it seems to work!
If you know where in the documentation the .Controls(0) is covered, I would like to read up.

[Micron]

A textbox can have a controls collection. There is only ever one member of the collection thus its position is zero (0). The only member of the collection is the attached label. If the label is not attached the collection has no members (or it doesn't exist at all, not sure which but it doesn't matter to me). Thus txtMyTextbox.Controls(0).Caption gets you the caption of the attached label.