Error on Dlookup

[mafhobb]

I am getting a "type mismatch 13" error on this line

        PrinterSel = Nz(DLookup("Device", "tblPrinterSelection", "Doc='" & DocumentType & "'" And "Computer='" & sHostName & "'"), "No Printer")

All vba variables are defined as strings. All fields in the table are text.

mafhobb

 

[mafhobb]

Solved it. It was a syntax issue.

        PrinterSel = Nz(DLookup("Device", "tblPrinterSelection", "Doc='" & DocumentType & "'" & "And Computer='" & sHostName & "'"), "No Printer")

This did it.

mafhobb

 

[vbaInet]

Good to hear!

If in doubt, Debug.Print the string and you'll be able to spot any syntax errors.