Dim sort_slots_sql As String
sort_slots_sql = _
"select date, part, service, slot" & _
" from ass_slots, ass_occasions" & _
" where ass_slots.occasion = ass_occasions.occasion" & _
" order by slot, service, date, part"
Set slots_rst = db.OpenRecordset(sort_slots_sql)
Run Code Online (Sandbox Code Playgroud)
这给出了太少的参数错误.一个是预期的.在代码中的另一个地方,有一个几乎相同的情况,但在那里,预计有两个参数!
我不能确切地说,但我99%肯定问题是你在该查询中包含了一个字段名称,该名称在表中不存在.检查所有字段名称,确保它们的拼写与表格中的拼写完全相同.
此外,"日期"字段可能是可疑的,因为它是Access中的保留字.我建议不要命名一个字段"Date".但是,如果您坚持使用该名称,请在所有查询中用方括号括起来,如下所示:
Dim sort_slots_sql As String
sort_slots_sql = _
"select [date], part, service, slot" & _
" from ass_slots, ass_occasions" & _
" where ass_slots.occasion = ass_occasions.occasion" & _
" order by slot, service, [date], part"
Set slots_rst = db.OpenRecordset(sort_slots_sql)
Run Code Online (Sandbox Code Playgroud)
| 归档时间: |
|
| 查看次数: |
3844 次 |
| 最近记录: |