運行時錯誤3061幫助（MS Access）

Question

我一直在絞盡腦汁，試圖找到此查詢的問題，但我只是沒有看到它。 我試圖打開一個記錄集，但不斷收到運行時錯誤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中運行它時卻收到了錯誤。 我是否錯過了一些非常簡單的事情？ 任何幫助將不勝感激。

Answer 1

首先確保您的表單是打開的，然后將表單引用放在引號之外。

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

表單值不適用於VBA中使用的記錄集。