Thanks Ofer, that eliminated the error.
But now I'm back to my original problem: the second combo box is not
populated with anything after I select a value in the first combo. I've
written the sql with a single criteria in quotes, to see if I could force
some data to return to the second combo, and that did work. But trying to
use the value selected in the first combo has not worked once for me, and
I've been through Dev Ashish's site, and searches here, and gotten replies
too, all without success. I'm dead in the water atm.
Ofer said:
If the "Type" field type is text, then try this, adding a single quote before
and after
strSQL = "Select [ID],[Material] "
strSQL = strSQL & "from tblItemMats "
strSQL = strSQL & "where [Type] = '"
strSQL = strSQL & Me!Combo24 & "'"
--
\\// Live Long and Prosper \\//
BS"D
:
Private Sub Combo24_AfterUpdate()
Dim strSQL As String
strSQL = "Select [ID],[Material] "
strSQL = strSQL & "from tblItemMats "
strSQL = strSQL & "where [Type] = "
strSQL = strSQL & Me!Combo24
Me!Combo36.RowSourceType = "Table/Query"
Me!Combo36.RowSource = strSQL
End Sub