Concatenate the results of two DLookups

[gheyman]

Can I change this code so that the results of the two DLookups are concatenated into one field instead of the two separate fields?

Private Sub Combo53_AfterUpdate()
Dim ItemDesc As String
Dim CommCode As Long

If IsNull(Combo53) = False Then

    ItemDesc = DLookup("ItemDescription", "tblItem", "ItemKey =" & [Forms]![frm_LTA]![Combo53])

    Me.Text53 = ItemDesc

    CommCode = DLookup("Commodity", "tblItem", "ItemKey =" & [Forms]![frm_LTA]![Combo53])

    Me.Text53 = ItemDesc
Me.Text53a = CommCode


Else

    Me.Text53 = ""
Me.Text53a = ""

End If




End Sub

 

[Joe4]

Sure.

Just structure it like:

a = DLookup(...)
b = DLookup(...)
Me.Field = a & b