combobox and textbox synchronization

[Zlatko Matiæ]

Hello.

I have several forms hierarchycaly nested in each other
(form/subform/subform/subform....).
The final form is "continous form", while parent forms are single forms
through which navigation was performed by navigation buttons.
Now I want to enable navigation through records both by navigation buttons
and COMBOBOXES. Therefore I added comboboxes besides textboxes.
Let's suppose that txtAAA is textbox and cbxAAA is cmbobox. My aproach was
following:


' Events on the form:

' 1. On Load event fills combobox with the first value

Private Sub Form_Load()

cbxAAA = cbxAAA.ItemData(0)

End Sub

' 2. On Current event synchronizes combobox value with current record in the
form (represented by txtAAA)

Private Sub Form_Current()

Me.cbxAAA.Requery

For i = 0 To cbxAAA.ListCount
If cbxAAA.ItemData(i) = Me.txtAAA Then
Me.cbxAAA = cbxAAA.ItemData(i)
Exit For
End If
Next i

End Sub

' On the COMBOBOX istelf we have After Update event which synchronizes
current record (txtAAA)
' with the value selected from the combobox.


Private Sub cbxAAA_AfterUpdate()

With CodeContextObject
DoCmd.GoToControl "txtAAA"
DoCmd.FindRecord .cbxAAA, acEntire, False, , False, acCurrent, True
End With

End Sub


This works perfectly as long as both textbox and combobox are visible. But,
my intenion was to hide textbox.
Unfportunately, when I put property txtAAA.Visible=False, the above
mentioned After Update event generates an error, because Find method
requires an object focus and hidden object can't have focus...
What is the alternative solution ?
Thanks.

 

[Zlatko Matiæ]

Anybody ???