Learn when you want, where you want with convenient online training courses. Sign up now!
'code in subform
Private Sub Form_Current()
Dim ctl As Control
' Active control could be on the subform or the form
Set ctl = Screen.ActiveControl '<<<<<<<<
Open in new window
Experts Exchange Solution brought to you by
"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.
Function GetActiveControlAddress() As String
On Error GoTo GetActiveControlAddress_Error
Dim strFullAddress As String
Dim ctrl ' As Control
Dim booLoop As Boolean
Set ctrl = Screen.ActiveControl
strFullAddress = ctrl.Name
booLoop = True
Set ctrl = ctrl.Parent
strFullAddress = ctrl.Name & ".Form!" & strFullAddress
Loop Until Not booLoop
GetActiveControlAddress = "Forms!" & strFullAddress
Select Case Err
Case 2452: Resume GetActiveControlAddress_Exit
Select Case MsgBox("An Unexpected error has ocurred in GetActiveControlAddress" & vbCrLf & vbCrLf & "Error" & vbTab & "Description" & vbCrLf & Err & vbTab & Err.Description, vbCritical + vbRetryCancel)
Case vbCancel: Resume GetActiveControlAddress_Exit
Case vbRetry: Resume
Open in new window
Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.
Broken down into practical pointers and step-by-step instructions, the IT Service Excellence Tool Kit delivers expert advice for technology solution providers. Get your free copy for valuable how-to assets including sample agreements, checklists, flowcharts, and more!
From novice to tech pro — start learning today.
Premium members can enroll in this course at no extra cost.