Recent content by John Sh

I stand corrected on that point, however <You can set focus on any control as long as it's not disabled.> and visible

If a control has focus and you try to setfocus to that control you will get an error. Majp insists on leaving out the "if activecontrol is not the same as new control then change the active control" This is my original code Private Sub isInFocus(str As String) If Me.ActiveControl.Name <> str...

I've changed the code to the following and it now works correctly, even with the same value in each combo. You certainly put me on the right track. Private Sub isInFocus(ByRef Ctl As Control) If ActiveControl.Name <> Ctl.Name Then Ctl.SetFocus End Sub John

Actually it only appears to work. It returns the contents of the control, not the name. So if I put 1 in each combo there is no change of focus. I tried adding .name to the controls but Access says "Type mismatch". John

Thank you. That does exactly what I want, although I did get trapped where there was no active control. I can't use it in a load event but it's fine in the body of the code. I think my original code was somehow unable to distinguish the difference between control.name and a string. Once again...

Au contraire. You have left out the comparison. Your code actually does nothing. The code, below from arnelgp mirrors my code but passes the new control instead of a string. Private Sub isInFocus(ByRef Ctl As Control) If Not (ActiveControl Is Ctl) Then Ctl.SetFocus End If End Sub Note the...

what I wrote is this, Private Sub isInFocus(str As String) If Me.ActiveControl.Name = str Then Exit Sub <<<<<<<<<<<<<<<<<< Else <<<<<<<<<<<<<<<< Me.Controls(str).SetFocus End If End Sub Not this Private Sub isInFocus(str As String) If Me.ActiveControl.Name...

Do you think there is a difference between the active control and the control with focus? Of course not, they are one and the same. What do you think happens if you set focus to a control that already has focus? Obviously you cannot do that Do you want help with you problem, I'm intrigued to...

Read what you have just written, you have proven yourself wrong. <<<if cboSpecies does not have focus it now has focus>>> or "if cbotables had focus, cbospecies now has focus" which is exactly the purpose of the sub. The setfocus command will be applied, if, and only if, the currently...

That is your interpretation. It is not what I have written. In plain English. If the input to the sub, str, is the same as the name of the active control then the active control stays active. If the input to the sub, str, is NOT the same as the name of the active control then the active control...

Read the code. there is no "Else" clause involved. Private Sub isInFocus(str As String) If Me.ActiveControl.Name <> str Then Me.Controls(str).SetFocus End Sub Case1. str = "cboSpecies" me.activecontrol.name = "cbospecies". if me.activecontrol.name <> str then nothing happens...

Sounds good but the rowsource for the controls has to be changed to correct for the different inputs. Private Sub btnBot_Click() sBtn = "Bot" Me.btnBot.BackColor = RGB(218, 255, 94) Me.btnCom.BackColor = RGB(180, 199, 231) ClearIt Me.cboGenus.RowSource = "QCommonG"...

That's precisely what it's supposed to do. If the active control is the same as the control having setfocus applied then nothing happens, if not the new control becomes the active control. You might need to read the entire post, it's all explained there.

It's highlighted because I was stepping through to get the screen shots. I have tried the long version, same result but I haven't tried "by val" The main problem is that it set's focus if the string and control name are the same or not. It's as if the "If" statement is being ignored.

In the case that a query only returns one result, the combobox waits to be updated, In this case I call combo_afterupdate which has the effect of the afterupdate event being triggered in the call and, it seems, again after "lostfocus" The idea being if there is only one response, there is no...