SteveL13

<div>
Am getting an error... &nbsp;"Data type mismatch in criteria experssion" Using this code: <pre><code class="code-10 nolinks" id="code-20-43321853-1">Private Sub cboClientRecordID_AfterUpdate()
On Error GoTo Err_cboClientRecordID_AfterUpdate

&nbsp; &nbsp; Me.subfrmScheduleRecordsDS.Form.Filter = "[ClientID] = '" &amp; Me.cboClientRecordID &amp; "'"
&nbsp; &nbsp; Me.subfrmScheduleRecordsDS.Form.FilterOn = True
&nbsp; &nbsp; Me.subfrmScheduleRecordsDS.Requery

Exit_cboClientRecordID_AfterUpdate:
&nbsp; &nbsp; Exit Sub

Err_cboClientRecordID_AfterUpdate:
&nbsp; &nbsp; MsgBox "Error Number: " &amp; Err.Number &amp; vbCrLf &amp; "Error Description: " &amp; Err.Description &amp; vbCrLf &amp; "Error Source: " &amp; Err.Source
&nbsp; &nbsp; Resume Exit_cboClientRecordID_AfterUpdate

End Sub
</code></pre>
</div>

<div>
Got it with: <pre><code class="code-10 nolinks" id="code-20-43321855-1">Private Sub cboClientRecordID_AfterUpdate()
On Error GoTo Err_cboClientRecordID_AfterUpdate

&nbsp; &nbsp; Me.subfrmScheduleRecordsDS.Form.Filter = "[ClientID] = " &amp; Me.cboClientRecordID
&nbsp; &nbsp; 
&nbsp; &nbsp; Me.subfrmScheduleRecordsDS.Form.FilterOn = True
&nbsp; &nbsp; Me.subfrmScheduleRecordsDS.Requery

Exit_cboClientRecordID_AfterUpdate:
&nbsp; &nbsp; Exit Sub

Err_cboClientRecordID_AfterUpdate:
&nbsp; &nbsp; MsgBox "Error Number: " &amp; Err.Number &amp; vbCrLf &amp; "Error Description: " &amp; Err.Description &amp; vbCrLf &amp; "Error Source: " &amp; Err.Source
&nbsp; &nbsp; Resume Exit_cboClientRecordID_AfterUpdate

End Sub
</code></pre>
</div>

<div>
Great. Well done. You don't need the quotes when passing in a numeric datatype. 
</div>

<div>
<div class="content wysiwyg-content fr-view">
I have a main form and a datasheet subform. &nbsp;I want to filter records in a subform based on a selection in a forms header combobox.&nbsp; How can I do this?
</div>
</div>


I have a main form and a datasheet subform.  I want to filter records in a subform based on a selection in a forms header combobox.  How can I do this?

Filter records in a subform based on a selection in a forms header combobox

Microsoft Access is a rapid application development (RAD) relational database tool. Access can be used for both desktop and web-based applications, and uses VBA (Visual Basic for Applications) as its coding language.