SetFocus does not work in Access form

[Veeves]

I have an unbound field on a form. In the onClick event I have code to populate a text field. I first setFocus to it and enable it. Both of these actions work. But when my code reaches the the line whete I set the textfieldname.text to a value, I get an error: You can`t reference a property or method unless the control has focus.

My code is:

txtFileName.Enabled = True
txtFileName.Visible = True
txtFileName.SetFocus
txtFileName.Text = "some value"

The error occurs on the last line.

[Studlyami]

Are you able to use the Value property instead? Also have you tried the syntax Me!txtFileName.SetFocus. I haven't done much with access so those might not work, but we do have a specific forum section for these types of questions so a moderator will probably move this topic over there.

[ADezii]

@Veeves

Dim txtB As TextBox
 
Set txtB = Me![txtFileName]
 
txtB.Enabled = True
txtB.Visible = True
txtB.SetFocus
txtB.Text = "some value"

[NeoPa]

I checked the help file & I can't see why that wouldn't work.

Does this happen in all circumstances? perhaps there's something else going on we don't know about.

[Veeves]

This code was working until I added a couple of queries and changed some code in a different function. I don`t get it.

[ajalwaysus]

Does any of those changes have an effect on your current form? If so, setting focus should be the last thing you do, to allow for all the changes to happen.

-AJ

[missinglinq]

What happens if you omit the last line of code, simply using

txtFileName.Enabled = True
txtFileName.Visible = True
txtFileName.SetFocus

Is the cursor blinking in the textbox?

Welcome to Bytes!

Linq ;0)>

BTW, your original code works just fine for me!

[Veeves]

If I omit the last line: txtFileName.Text = "some value", then I avoid the error but don`t get the textbox filled with a value.

I changed txtFileName.Text to txtFileName.Value, and this works but the textbox shows as empty instead of the text I want.

I did some investigating and found that the problem starts when I delete all the records from the table which is the record source for the form using:
CurrentDb().Execute "DELETE FROM Primary_Data"

After running this the problems with SetFocus started.

[ajalwaysus]

try this:

Dim txtB As TextBox
 
Set txtB = Me![txtFileName]
 
txtB.Enabled = True
txtB.Visible = True
txtB.SetFocus
txtB.Value= "some value"
txtB.Requery
 

the requery should display the value after it's been assigned, if the value still exists.

-AJ

[missinglinq]

@Veeves
You didn't answer my question, though! If you omit the last line, then run the code (click the button,) does the textbox, in fact, receive the focus, i.e. does the cursor appear in the textbox?

Linq ;0)>

[Veeves]

If I omit the last line: txtFileName.Text = "some value", then the textbox does receive focus.

One time I stopped execution right after the textBox.SetFocus. All the properties had a value of :Cannot access the property of a control that does not have focus (not exactly this message but very close), with one exception, the value property had a value and I was able to display it.

[Veeves]

Yes the textbox.requery does display the value. Thanks.