VBA訪問和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

試着改變你的真實-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 

感謝所有輸入！ :)