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:

Expand|Select|Wrap|Line Numbers

 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

Quote:

Originally Posted by 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.

Expand|Select|Wrap|Line Numbers

 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

Expand|Select|Wrap|Line Numbers

 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:

Expand|Select|Wrap|Line Numbers

 
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

Quote:

Originally Posted by 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.

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.

SetFocus does not work in Access form

re: SetFocus does not work in Access form

re: SetFocus does not work in Access form

re: SetFocus does not work in Access form

re: SetFocus does not work in Access form

re: SetFocus does not work in Access form

re: SetFocus does not work in Access form

re: SetFocus does not work in Access form

re: SetFocus does not work in Access form

re: SetFocus does not work in Access form

re: SetFocus does not work in Access form

re: SetFocus does not work in Access form

Similar Microsoft Access / VBA bytes

/bytes/development

/bytes/it

/bytes/about