Receive instant 1:1 support from technology experts, using our real-time conversation and whiteboard interface. Your first 5 minutes are always free.
Private Sub lboDates_Click() Dim lngEmployee As Long lngEmployee = DLookup("[Employee]", "[tblData]", "[Room]='" + Me.cboRoom.Column(1) + "'") 'This DLookup works fine, returns a long with the correct Employee ID Dim strEmployeeName As String strEmployeeName = DLookup("[FirstName]", "[tblEmployees]", "[ID]=" + lngEmployee) 'Here is where the error occurs. I've tried adding single quotes before and after, but that still won't do anything. MsgBox (strEmployeeName) 'This is just a test MsgBox to see if it works. I always get the error before getting to this point. End Sub