Combo Box not updating Text Box

[arnelgp]

sorry, i've never seen the screenshot until now:

Private Sub Form_Current()
If Trim(Me.Combo18 & "") <> "" Then
Me.Text33 = DLookup("Description", "DropDownListsTbl", "Code = " & Chr(34) & Me.Combo18 & Chr(34))
Else
Me.Text33 = Null
End If
End Sub

 

[isladogs]

@Arnelgp

Please look at previous posts re combo box column(2)
He's not using that column as the bound column

I'm now going to drop out of this thread for a while as @gerryp is getting conflicting advice which isn't helpful

 

[gerryp]

sorry, i've never seen the screenshot until now:

Private Sub Form_Current()
If Trim(Me.Combo18 & "") <> "" Then
Me.Text33 = DLookup("Description", "DropDownListsTbl", "Code = " & Chr(34) & Me.Combo18 & Chr(34))
Else
Me.Text33 = Null
End If
End Sub

BINGO !!!!!

This has worked, thanks a million

 

[gerryp]

And I hate to tell you this but navigation forms are an absolute pain to work with. Many of us here avoid them like a bad smell...

You may be approaching the stage where posting a trimmed down version of your db would speed things up

Wasn't aware of issues with navigation forms, but I'll google a fix / alternative for this, when I get a chance.

Thanks a million for your help too.

Cheeers

 

[arnelgp]

mr.ridders, we all came here to help.

remember that combo18 is bound.

 

[isladogs]

we all came here to help.

Of course we are ...
I just felt it was unhelpful to have conflicting advice which is why I dropped out
Too many cooks as they say....

remember that combo18 is bound.

That's what I wrote - actually I'm fibbing as I originally wrote 'default value' by mistake but I had corrected it before I saw your post