If Textbox has a value Then explanation please

[ipbr21054]

Hi
On my userform i have some Textboxes & 2 Listboxes

The Textboxes in question are TextBoxFind & TextBoxReplace

Basically if TextBoxFind has a value in it then set focus on TextBoxReplace

I have this but does nothing.

Private Sub TextBoxFind_Change()
    TextBoxFind = UCase(TextBoxFind)
    If TextBoxFind.Value > 0 Then
    TextBoxReplace.SetFocus
    End If
End Sub

My understanding which i assume is wrong is that > 0 means anything in the cell ?
Then there is > 1

Ive tried both but still no joy, as you can see in my photo example the value in the Listbox is focused & im looking at setting focus in Textbox.

It works by me typing a value in the the first Textbox,listbox values are shown,a value is selected & placed in Textbox & now i would like the focus set on other Textbox

I see this is the Listbox code but thought after selection was made my Textbox code would overrule it and focus on Textbox.

TextBoxSearchColumnC.SetFocus

 

[RoryA]

A textbox is not a cell. You could use:

If Len(TextBoxFind.Text) > 0 Then

but I don't really see why you don't just have the listbox code populate the first textbox and set focus to the other textbox.

 

[ipbr21054]

I wanted it in the Listbox code but codulnt get it to work.

I right clicked ListBox & selected View Code.

I now see the below.

Private Sub ListBoxFind_Click()
    Me.TextBoxFind.Value = Me.ListBoxFind.List(Me.ListBoxFind.ListIndex)
End Sub

So i then created a change event & added what i thought was correct
But still didnt work for me.

Private Sub ListBoxFind_Change()
    Me.TextBoxReplace.SetFocus
End Sub

 

[RoryA]

Why not just add that to the Click event code?

 

[ipbr21054]

Something is happening as when i try you advised code i see the cursor appear in the TextBox but then its gone.

 

[RoryA]

Sounds like you have other code interfering.

 

[ipbr21054]

Trying to look through it now

 

[ipbr21054]

I remove all the unwated stuff like close form etc ti minimise code & what was left i went through then pasted it back.
What i was seeing doesnt happen now.

At present i have this in place & works most of the time but now & then it stops & set focus doesnt work.
I did notice when i didnt work sometimes selecting another value in the Listbox got it working again.
But not fully 100% operational

Private Sub ListBoxFind_Click()
    Me.TextBoxFind.Value = Me.ListBoxFind.List(Me.ListBoxFind.ListIndex)
    Me.TextBoxReplace.SetFocus
End Sub