Sql 运行时错误3061帮助（ms访问）

我一直绞尽脑汁想找出这个问题的症结所在，但我就是看不出来。我正在尝试打开一个记录集，但我不断收到运行时错误3061：“参数太少：应为1。”

这是我的密码

Dim ansRs As Recordset
Dim qRs As Recordset
Dim ansQuery As String
Dim qQuery As String
Dim i As Integer

qQuery = "Select * From TrainingQuizQuestions Where TrainingQuizID = (Select TrainingQuiz.TrainingQuizID From TrainingQuiz Where QuizName = Forms!MainMenu!txtVidName);"
ansQuery = "Select * From TrainingQuizQuestAns"
Set qRs = CurrentDb().OpenRecordset(qQuery)
Set ansRs = CurrentDb().OpenRecordset(ansQuery)

---

我从“Set qRs=CurrentDb（）.OpenRecordset（qQuery）”行中获取错误。我将该查询复制并粘贴到access中并运行了它，它返回了我希望在记录集中得到的内容，但当我在VBA中运行它时，我得到了错误。我错过了一些非常简单的东西吗？任何帮助都将不胜感激。

首先确保您的表单已打开，然后将表单引用放在报价之外

 qQuery = "Select * From TrainingQuizQuestions Where TrainingQuizID = " _
   & "(Select TrainingQuiz.TrainingQuizID From TrainingQuiz Where QuizName = '" _
   & Forms!MainMenu!txtVidName) & "';"

---

表单值对VBA中使用的记录集不可用。

首先确保表单已打开，然后将表单引用放在引号外

 qQuery = "Select * From TrainingQuizQuestions Where TrainingQuizID = " _
   & "(Select TrainingQuiz.TrainingQuizID From TrainingQuiz Where QuizName = '" _
   & Forms!MainMenu!txtVidName) & "';"

---

表单值对于VBA中使用的记录集不可用。

执行此操作的记录集。谢谢。老实说，我从来没有想到这一点，因为我在DLookUp的其他地方有完全相同的where子句，它工作得很好。是的。这可能会让人很困惑，就是这样。谢谢。老实说，我从来没有想到这一点，因为我在DLookUp的其他地方有完全相同的where子句，它工作得很好。是的。这可能会让人很困惑。