VBA Access 和 SQL 運行時錯誤“13”：類型不匹配

Question

如果未選中 TwoMinInt_Complete 復選框，我正在嘗試創建一個按最近同意提交日期排序的按鈕。 到目前為止，它給了我“運行時錯誤 '13'：類型不匹配”並指向 frm.SetRecordsource 部分。 我相信這是我不太擅長的語法。 如果有任何問題，請告訴我。

Private Sub cmdNeeds2MinInterview_Click() 
Dim frm As IExtendedForm
If TypeOf Me.Parent Is IExtendedForm Then
   Set frm = Me.Parent
   frm.SetRecordsource _
      Filter = "Junction_ID IN SELECT Junction_ID FROM [nka_USBankVU_TwoMinInterview] WHERE [TwoMinInt_Complete] = True" & _
      OrderBy = "[Consent_Filed_Date] DESC"
   End If
End Sub

編輯：根據您的建議，我將其編輯為以下內容：

frm.SetRecordsource _
            Filter:=("Junction_ID IN SELECT Junction_ID FROM [nka_USBankVU_TwoMinInterview] WHERE [TwoMinInt_Complete] = True"), OrderBy:="Consent_Filed_Date DESC"

並得到不同的錯誤：

Answer 1

嘗試將您的 True 更改為 -1

Private Sub cmdNeeds2MinInterview_Click() 

Dim frm As IExtendedForm
If TypeOf Me.Parent Is IExtendedForm Then
Set frm = Me.Parent
frm.SetRecordsource _
  Filter = "Junction_ID IN SELECT Junction_ID FROM [nka_USBankVU_TwoMinInterview] WHERE [TwoMinInt_Complete] = -1" & _
  OrderBy = "[Consent_Filed_Date] DESC"
End If

End Sub

Answer 2

所以錯誤出在語法上，這是我的最終代碼：

Private Sub cmdNeeds2MinInterview_Click()
Dim frm As IExtendedForm
  If TypeOf Me.Parent Is IExtendedForm Then
    Set frm = Me.Parent
      frm.SetRecordsource _
  Filter:="Junction_ID IN (SELECT Junction_ID FROM [nka_USBankVU_TwoMinInterview] WHERE [TwoMinInt_Complete] = false)", OrderBy:="Consent_Filed_Date DESC"
   End If
End Sub

感謝大家的投入！ :)