dim strsql as stringstrsql= "select 日期,单号,金额 from 入库单 where 供应商 ='" & Forms![入库单]!供应商名称 & "' and 类别 = '" & Forms![入库单]!类别 & "' and year(入库日期) =#" & Format(DateAdd("m", -1, Now()), "yyyy/mm") & "#"docmd.runsql strsql
docmd.runsql "sql语句"