How can I programmatically detect is a particular control has focus?
Is there something like a "HasFocus" property I can test?

Thanks

"Monty" <(E-Mail Removed)> wrote in message
news:(E-Mail Removed)
> How can I programmatically detect is a particular control has focus?
> Is there something like a "HasFocus" property I can test?

There's no HasFocus property, but the form has an ActiveControl property
that returns an object reference to the control on the form (if any)
that currently has the focus. So you could write a function like this:

'----- start of code -----
Function HasFocus( _
ctl As Access.Control, _
frm As Access.Form) _
As Boolean

On Error Resume Next
If ctl Is frm.ActiveControl Then
HasFocus = True
End If

End Function

'----- end of code -----

And use it like this:

If HasFocus(Me.Text1, Me) Then
' Text1 has the focus.
End If

--
Dirk Goldgar, MS Access MVP
www.datagnostics.com

(please reply to the newsgroup)

On 12 Dec 2006 11:07:58 -0800, Monty wrote:

> How can I programmatically detect is a particular control has focus?
> Is there something like a "HasFocus" property I can test?
>
> Thanks

Why you wish to do this would have been helpful.
As it is, code a command button click event:
MsgBox IIf(Screen.Previouscontrol = "WhatControl","Yes What Control
has focus","No " & Screen.PreviousControl.Name & " had focus"))
--
Fred
Please respond only to this newsgroup.
I do not reply to personal e-mail

Dirk Goldgar wrote:
> "Monty" <(E-Mail Removed)> wrote in message
> news:(E-Mail Removed)
> > How can I programmatically detect is a particular control has focus?
> > Is there something like a "HasFocus" property I can test?
>
> There's no HasFocus property, but the form has an ActiveControl property
> that returns an object reference to the control on the form (if any)
> that currently has the focus. So you could write a function like this:
>
> '----- start of code -----
> Function HasFocus( _
> ctl As Access.Control, _
> frm As Access.Form) _
> As Boolean
>
> On Error Resume Next
> If ctl Is frm.ActiveControl Then
> HasFocus = True
> End If
>
> End Function
>
> '----- end of code -----
>
> And use it like this:
>
> If HasFocus(Me.Text1, Me) Then
> ' Text1 has the focus.
> End If
>
> --
> Dirk Goldgar, MS Access MVP
> www.datagnostics.com
>
> (please reply to the newsgroup)

Thanks, that is exactly what I asked for. But I realize I asked the
wrong question once I looked over your procedure. I've posted the real
question as another topic.

fredg wrote:
> On 12 Dec 2006 11:07:58 -0800, Monty wrote:
>
> > How can I programmatically detect is a particular control has focus?
> > Is there something like a "HasFocus" property I can test?
> >
> > Thanks
>
> Why you wish to do this would have been helpful.
> As it is, code a command button click event:
> MsgBox IIf(Screen.Previouscontrol = "WhatControl","Yes What Control
> has focus","No " & Screen.PreviousControl.Name & " had focus"))
> --
> Fred
> Please respond only to this newsgroup.
> I do not reply to personal e-mail

I realized my question wasn't very complete, or even accurate, when I
read the first response. I rephrased my question and submitted it as a
new post "Soliciting procedural advice".

Thanks