访问错误3061期望的参数太少1

Question

帮助！我有一些麻烦的数据库上我的访问代码，从而它说，访问错误3061个参数太少预计1.问题突出是

Set oRS = CurrentDb.OpenRecordset(sSQL) 

---

Dim i As Date, n As Integer, oRS As DAO.Recordset, sSQL As String 

Dim db As DAO.Database 
Set db = CurrentDb 
Dim BookedDate As Date 
Dim FacilitiesID As String 
Dim StartTime As Date 

cboTime.RowSourceType = "Value List" 
cboTime.RowSource = "" 
If IsNull(Start) Then Exit Sub Else i = Start 
If Me.NewRecord = True Then 
    DoCmd.RunCommand acCmdSaveRecord 
End If 
sSQL = "SELECT FacilitiesID, StartTime, BookedDate" 
sSQL = sSQL & " FROM qrysubform" 
sSQL = sSQL & " WHERE FacilitiesID= " & Me.FacilitiesID & _ 
         " AND BookedDate=# " & Me.txtDate & "#" 
Set oRS = CurrentDb.OpenRecordset(sSQL) 

Answer 1

你的设备ID的尺寸为字符串，尽管在你的SQL语句中它被引用为一个数字。如果你的窗体的FacilitiesID事实上是一个字符串，你需要把它们放在引号：

sSQL = "SELECT FacilitiesID, StartTime, BookedDate" 
sSQL = sSQL & " FROM qrysubform" 
sSQL = sSQL & " WHERE FacilitiesID= '" & Me.FacilitiesID & _ 
         "' AND BookedDate=#" & Me.txtDate & "#" 

Answer 2

在这种情况下，插入调试系，研究输出：

Debug.Print sSQL 
' Study output 
Set oRS = CurrentDb.OpenRecordset(sSQL) 

也就是说，此错误通常是由缺少或拼写错误的字段名称引起的。