sql怎么用变量做查询条件

lovinana

Private Sub 材料名称_AfterUpdate()
  Dim STemp As String
  Dim cailiaomingcheng As String
  cailiaomingcheng = Me![材料名称]
  STemp = "SELECT * FROM 入库资料表 WHERE 材料名称 = " & cailiaomingcheng & " ORDER BY 入库日期 DESC"
  DoCmd.RunSQL STemp
End Sub

我想把材料名称等于我在文本框输入的值，用了个变量做中间量，材料名称需要等于一个带引号的文本，例如"A4纸"，而红色部分实现的是不带引号的文本，所以报错，请问，怎样修改可以实现

asklove

WHERE 材料名称 = '" & cailiaomingcheng & "'
或
WHERE 材料名称 = '" & Me![材料名称] & "'

lovinana

我试过这个 不行 提示在DoCmd.RunSQL STemp中断 显示STemp是STemp = "SELECT * FROM 入库资料表 WHERE 材料名称 = ‘ A4纸 ’ ORDER BY 入库日期 DESC"
因为材料名称需要双引号引起 单引号不能识别 所以报错

tz-chf

runsql执行的是操作查询

lovinana

楼上的大大，那应该用什么来实现呢

tz-chf

没看出来想要干什么的

lovinana

查询出所有材料名称是我输入进文本框的材料名称的条目，以入库日期降序排列

tz-chf

还是没看懂，放mdb上来，我来弄。

lovinana

tz-chf大大，传上来了

lovinana

我想查出和我输入材料名称一样时间最近的一次入库，并把那次的采购单价做为本次的参考单价，这是我全部的想实现的