I've tried the code, it returns no records when a value is entered in the combo-box. It does however return all records when the combo-box value is null.
Have I missed something?
Combo-box on main form "cboRecordStatus"
SubForm "sfrmHeavyMaintenanceRegister"
SubForm Field "LockRecord"
Code:
Private Sub cboRecordStatus_Afterupdate()
If IsNull(cboRecordStatus) Then
Me.sfrmHeavyMaintenanceRegister.Form.FilterOn = False
Else
Me.sfrmHeavyMaintenanceRegister.Form.Filter = "[LockRecord]=" & cboRecordStatus
Me.sfrmHeavyMaintenanceRegister.Form.FilterOn = True
End If
End Sub