アクセスエラー3061予想されるパラメータが少なすぎる1

Question

Help！それは3061パラメータが少なすぎます1.問題が強調され期待されるアクセスエラーがあなたの施設IDを文字列として寸法決めされている

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

だったと言うことによって私は、データベース上の私のアクセスコードといくつかの問題を抱えていますあなたの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) 

言いました、このエラーは、通常、フィールド名がないかスペルが間違っているために発生します。