I couldn't figure out how to add an answer to a question, so I thought I'd send this as a question and let one of the "experts" append the answer to the original (original has same title...w/out the "(2)" at the end).
Question was from: Holddigga
Accepted Answer was from: heer2351
heer2351 recommends using a DLookup. I found a way to use SQL SELECT statment with DAO.Recordset as follows:
Dim rs As DAO.Recordset
Dim sSQL As String
sSQL = "SELECT Pack_Size_Code " & _
"FROM Pack_Sizes " & _
"WHERE Pack_Sizes.Size = "’ & PackSize & ‘"
Set rs = CurrentDb.OpenRecordset(sSQL, dbOpenSnapshot)
If rs.AbsolutePosition > -1 Then
client = rs!PC_Code
PC_Code = ""
Set rs = Nothing