"Data type mismatch in criteria expression."

[Ricter]

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

 

[Ofer]

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 & "'"

 

[Ricter]

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.

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

 

[Ofer]

Try to add in the end of the code

Me!Combo36.Requery

--
\\// Live Long and Prosper \\//
BS"D

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.

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

 

[Ricter]

Done, again actually. Had that in before.

My code now:

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

Me!Combo36.Requery

End Sub

Sadly, I'm still getting a blank row when I click the second combo...

Try to add in the end of the code

Me!Combo36.Requery

--
\\// Live Long and Prosper \\//
BS"D

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.

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

 

[Ricter]

"bump" (test)

Try to add in the end of the code

Me!Combo36.Requery

--
\\// Live Long and Prosper \\//
BS"D

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.

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