populate textboxes via comboboxes selection

[white_flag]

Hello

I have an combobox that will have 10 columns but only one column will be displayed. I like to know how to put info from colum(3)4 etc ..in an text.box(3),4 etc. I try this but without success:

Private Sub Combo3_AfterUpdate()
    'Me.Text7.ControlSource = Me.Combo3.Column(2) - not working
End Sub

I have this code:

Option Compare Database
Private Sub Combo3_AfterUpdate()
    'Me.Text7.ControlSource = Me.Combo3.Column(2) - not working
End Sub

Private Sub Combo3_Change()
    Me.Image0.Picture = Me.Combo3.Column(2)
End Sub

Private Sub Form_Load()
    Me.Combo3.RowSource = "SELECT imagineID, titlu, '" & Application.CurrentProject.Path & "\' & " & "[cale_imagine] AS Expr1 FROM imagini ORDER BY [titlu]"
End Sub

Private Sub Text7_BeforeUpdate(Cancel As Integer)
    Me.Text7.Text = Me.Combo3.Column(2)
End Sub

[white_flag]

I putted like this (use DLookup()):

Private Sub Combo3_Change()
    Dim nume As Variant
    Me.Image0.Picture = Me.Combo3.Column(2)
    Me.Combo3.SetFocus
    Me.Text7.SetFocus
'[table] "column.name"
    nume = DLookup("[titlu]", "imagini")
    Me.Text7.Text = nume
End Sub

it is working. The question: it is correct like this?

[RuralGuy]

You do not need to move the focus if you use the .Value (default) property. So:
Me.Text7.Value = nume
...or
Me.Text7 = nume
...would work without changing the focus.

[white_flag]

thx mate. it is working