Zugriffsfehler 3061 Zu wenige Parameter erwartet 1

Question

Hilfe! Ich habe einige Probleme mit meiner Zugangscodes auf einer Datenbank, wobei er sagt, dass Zugriffsfehler 3061 zu wenige Parameter erwartet 1. Problem war hervorgehoben

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

Ihre Einrichtungen ID als String dimensioniert ist, obwohl es in Ihrer SQL-Anweisung als eine Nummer referenziert wird. Wenn Ihre Form des FacilitiesID in der Tat ein String ist, müssen Sie ihn in Anführungszeichen setzen:

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

Answer 2

In solchen Fällen legen Sie eine Debug Linie und studieren die Ausgabe:

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

Das heißt, Dieser Fehler wird normalerweise durch einen fehlenden oder falsch geschriebenen Feldnamen verursacht.