Concatenate field in form resets field focus to field 1

[StephenB]

I have a form that has a field that concatenates three fields together Genus, species and OtherNameValue. As i type in field 1 (Genus) all is well, when I tab to Field 2 to enter (Species) the focus keeps on reverting back to field 1 often mid way through typing in field 2. The same happens in field 3. The concatenated field updates each time it is tabbed. How do I stop the field resetting back to field 1. I feel that the concatenated field is resetting the focus back to field 1?

Any help would be greatly appreciated.


Regards
Stephen

[trevor40]

It sounds like your using the onchange action of the text box, check the settings for the fields. try after update (when your text entry is completed).
try a button to create the final text result.

Or

Post a sample of your code so we can see what your doing. (save as mdb format, and we can all see it.)

[StephenB]

Hi Trevor,

Thankyou for your reply. The database is to large to send. I checked the settings for the fields they all look normal. With the AfterUpdate, what would you suggest?
Regards
Stephen

[StephenB]

Attachment 15771
Hi Trevor,

Attached is a snapshot of the fields.
Regards
Stephen

[trevor40]

Unfortunately that attachment is not working. I'll report the failed link for you.


Attached is a snapshot of the fields, I would also need to see the code you use to do this. VBA or Macro. Copy and paste, or screen image (change any private details) IE "Joe Blow P/L" to "zzz P/L" keeps it clear and safe.

[StephenB]

Snapshot

[June7]

The first attachment worked for me.

Did you run Compact & Repair on db? Did you zip it? Still too large? Can upload to fileshare site such as Box.com and post link to the file.

Why are you concatenating these fields during data entry?

Why not just an expression in textbox?

[StephenB]

Hi June7,
The 3 fields are concatenated to form the full Botanical Name and are highlighted at the the top of the form. How can I concatenate the fields after I have entered all 3 fields?

Regards
Stephen

[June7]

Expression can be in:

textbox

=[Genus] & " " & [species] & " " & [OtherNameValue]

or query

FullBotanical: [Genus] & " " & [species] & " " & [OtherNameValue]

or in VBA (trick is figuring out the correct event but if not saving to a field don't need VBA)

Me.Genus & " " & Me.species & " " & Me.OtherNameValue

[StephenB]

Hi June7,

Yes I have used that exact concatenation string in the textbox. The problem is that as i tab to the species field and start to type the focus converts back to Genus field as the concatenation field updates.

Regards
Stephen

[trevor40]

Try this with VBA starts with the first text box only available, afterentering data there it moves to the next text box and disables the first, and so on. you'll have to write the vba code to do this. see how you go, I don't have time right now to do this in a db and post that.

Form open, disable Spicies, NameOtherValue

me.Spicies.enabled = false
me.NameOtherValue.enabled = false

Enter data in Genus

me.Genus.afterupdate

me.Species.enabled = true
me.Genus.enabled = false
docmd.gotocontrol "Species"

Enter data in Species

me.Species.afterupdate

me.NameOtherValue.enabled = true
me.Species.enabled = false
docmd.gotocontrol "NameOtherValue"

Enter data in NameOtherValue

me.NameOtherValue.afterupdate

me.Your_Result = [Genus] & " " & [Spicies] & " " & [NameOtherValue]
me.Spicies.enabled = false
me.NameOtherValue.enabled = false
me.Genus.enabled = true
docmd.gotocontrol "Genus" ' back to the start

[trevor40]

P.S. all 3 text boxes are unbound, the result could be bound to a table field.

[StephenB]

Hi Trevor,

All three text boxes are bound to a table

Do I just paste this at the bottom of the other VB for that form?
Regards
Stephen

[trevor40]

Bold text = form/control event, when you click on the event create a vba [Event Procedure], or click on the elipses and select code.
copy the non bold text into each objects code area. It wont work if you just copy it into the forms code. Each text box needs to be set to have a procedure. P.S. It's not tested so post back if you have problems.

Private Sub Form_Open(Cancel As Integer)
me.Spicies.enabled = false
me.NameOtherValue.enabled = false
End Sub

Private Sub Genus_AfterUpdate()
me.Species.enabled = true
me.Genus.enabled = false
docmd.gotocontrol "Species"
End Sub

Private Sub Species_AfterUpdate()
me.NameOtherValue.enabled = true
me.Species.enabled = false
docmd.gotocontrol "NameOtherValue"
End Sub

Private Sub NameOtherValue_AfterUpdate()
me.Your_Result = [Genus] & " " & [Spicies] & " " & [NameOtherValue]
me.Spicies.enabled = false
me.NameOtherValue.enabled = false
me.Genus.enabled = true
docmd.gotocontrol "Genus" ' back to the start
End Sub

[trevor40]

Not seeing my post so i'll try again.
Each control must have code placed into it, large text = were to place code for fields.
create procedures in those areas and copy each bit of code to the appropriate place. You can't copy the code into the form vba, each field must be selected to have a procedure then copy the code.

E.G. When the form opens
Private Sub Form_Open(Cancel As Integer)
me.Spicies.enabled = false
me.NameOtherValue.enabled = false
End Sub

And so on for the rest of the fields...

'me.Genus afterupdate code
me.Species.enabled = true
me.Genus.enabled = false
docmd.gotocontrol "Species"

'me.Species afterupdate code
me.NameOtherValue.enabled = true
me.Species.enabled = false
docmd.gotocontrol "NameOtherValue"

'Me.NameOtherValue afterupdate code
me.Your_Result = [Genus] & " " & [Spicies] & " " & [NameOtherValue]
me.Spicies.enabled = false
me.NameOtherValue.enabled = false
me.Genus.enabled = true
docmd.gotocontrol "Genus" ' back to the start