🚀 go-pugleaf

I tried this code out in VB5 Enterprise, and it worked. See if this code
will help you get on the right track:

'=====================
Private Sub Combo1_KeyPress(KeyAscii As Integer)

    On Error Resume Next
    
    If KeyAscii = 13 Then
       
       For i = 0 To 10
          If Combo1.Text = Combo1.List(i) Then
             Text1.Text = Combo1.List(i)
             Text1.SetFocus
             
          End If
       Next i
       
    End If

End Sub

'============================

Hope This Helps You Out.

Andy Duckworth <dux@globalnet.co.uk> wrote in article
<01bce79d$c3d18060$87577ec2@duckfather>...
> Urgent help please!
> 
> I have a user form in an Access 97 document that has a combo box looking
up
> info from a table. Connected to this I have various textboxes showing
> related info from the database. When I change the value in the combo, the
> values in the text boxes change as expected. What I want is to be able to
> type something into the combo box and have the values in the text boxes
> change dynamically. Can any body help in this. I will be needing to do
this
> in a VB5 app in the near future as well as in Access.
> 
> Thanks in anticipation.
> 
> email at either duckfather@dux.globalnet.co.uk      or
> andy_duckworth@allied-colloids.co.uk
> 
> Cheers
> 
> Andy
>