How to display the value of Textbox at the same time

[wendywu]

I want the SearchText to display the value of the SearchBox while typing in the SearchBox and write as follows:
Private Sub SearchBox_Change()

Me.SearchText = Me.SearchBox.Text
Me.ListResults.Requery

End Sub

But it doesn't work , what's wrong?

 

[theDBguy]

Hi. Just FYI, I moved your thread out of the Introduction forum.

What does "doesn't work" mean? Are you getting an error message?

 

[MarkK]

it doesn't work

Maybe elaborate on this.

 

[wendywu]

What I mean is that when entering a value in SearchBox, it is not displayed in SearchText at the same time.

 

[arnelgp]

maybe check your control names again, coz when i tried it, it does change SearchText textbox.

 

[wendywu]

After I removed this line of code, Me.ListResults.Requery
this is the code now:
Private Sub SearchBox_Change()

Me.SearchText = Me.SearchBox.Text

End Sub

It does change SearchText textbox.
Thank you!

 

[Gasman]

That line of code should have no effect on what you are attempting?

 

[cheekybuddha]

That line of code should have no effect on what you are attempting?

Are you sure that the .Requery doesn't reset the focus to the text box and automatically select all the contained text, leading to the next keystroke overwriting what head previously been typed?

 

[Gasman]

Are you sure that the .Requery doesn't reset the focus to the text box and automatically select all the contained text, leading to the next keystroke overwriting what head previously been typed?

Only the O/P can tell us that?, unless you know for certain that that happens?
They can walk the code and let us know?

 

[cheekybuddha]

unless you know for certain that that happens?

I've no idea, and I'm nowhere near a Windows machine to test.

Just seem to have vague recollections of needing to see .SelStart when implementing basic FAYT

 

[Gasman]

Seems not?

Option Compare Database
Option Explicit

Private Sub txtSearch_Change()
Me.txtTyped = Me.txtSearch.Text
Me.List0.Requery
End Sub

 

[cheekybuddha]

Thanks for testing.

 

[wendywu]

That line of code should have no effect on what you are attempting?

I ran the same program today, and today's result is still that there is no change in SearText when I enter a value in SearchBox

 

[arnelgp]

maybe upload your db so we can see what is going on behind the scene on your form.

 

[wendywu]

Seems not?
View attachment 115917

Option Compare Database
Option Explicit

Private Sub txtSearch_Change()
Me.txtTyped = Me.txtSearch.Text
Me.List0.Requery
End Sub

My program still doesn't change the SearchText

 

[arnelgp]

if you are unable to upload your db, maybe try this:

Option Compare Database
Option Explicit

Private Sub SearchBox_Change()
    Dim txt As String
    txt = Me.SearchBox.Text
    Me.SearchText = txt
    Me.ListResults.Requery
    With Me.SearchBox
        .SetFocus
        .Value = txt
        .SelStart = Len(txt)
    End With
End Sub

 

[sonfelisa]

Thanks for sharing!

 

[wendywu]

maybe upload your db so we can see what is going on behind the scene on your form.

 

[arnelgp]

see your db (note i remaned it as demo.accdb)