How to program a command button that could simultaneously filter two fields?

[aanfalsha]

I require a command button that will filter my subform simultaneoulsy in two fields ( Name and Date of Registration).
(i) One field(Name) will be bounded to a combobox
(ii) Second field(Date of Registration) will be bounded to two text boxes in which the user should be allowed to enter the date range

And On click of the command button the two filter conditions should be effected

[ADezii]

In the Click() Event of the Command Button, you could dynamically modify the RecordSource of the Sub-Form based on the Values present in the Combo (Name) and Text (Start/End Dates) Boxes, something similar to:

Dim strSQL As String
 
strSQL = "SELECT * FROM <Data Source> WHERE [Name] = '" & Me![cboName] & "' AND " & _
         "[Date of Registration] Between #" & Me![txtStartDate] & "# AND #" & _
         Me![txtEndDate] & "#;"
 
With Me![<Sub-Form Name>]
  .Form.RecordSource = "Order Details Extended"
   .Requery
End With

[NeoPa]

The Filter of a recordset is equivalent to the WHERE clause in SQL (but without the WHERE keyword).

The WHERE clause typically looks like :

WHERE (condition1) AND (condition2) OR (condition3)

Each condition can be anything but is generally a comparison of two values, again generally, at least one will depend on a field reference.

Thus, a common Filter might be like :

WHERE ([Field1]='A value') AND ([Field2]='Another value')

For more on filtering see Cascaded Form Filtering

[aanfalsha]

Dear ADezii

Sincere Thanks For your kind and prompt response.
Now to make things more clear I'm sending you a file in which there is a filter option assigned to a combo box for the field " priority"...Now just help me to also filter the field " DateV" allowing the user to enter the date range into two text boxes and then simultaneously selecting priority....

And Finally wher the user will be able to view the Priority during a particular period.

Hoping your kind support always and awaiting your kind response

NB:-Please find the attached file under my post

[ADezii]

@aanfalsha:
We normally do not look at Attachments except when all other Options have been exhausted, but I will make an exception here. I'll post the general guidlines, and leave the rest to you.

1. Add 2 Unbound Text Boxes to your Form named txtStart and txtFinish. These 2 Text Boxes will contain the Start and Finish Dates for the Range within which [DateV] must fall, as well as having the assigned Priority.
2. The Code will perform 'minimal validation' in the sense that it will check for NULL Values in all 3 Fields.
3. It will then check and see if any Records exist matching the Compound Criteria.
4. Assumin Records were found, it will then modify the Record Source of the Sub-form reflecting those Criteria.
   

   Dim strSQL As String
    
   With Me
     If IsNull(![Combo]) Or IsNull(![txtStart]) Or IsNull(![txtFinish]) Then Exit Sub
   End With
    
   strSQL = "SELECT * FROM base WHERE [Priority] = '" & Me![Combo] & "'" & _
            " AND [DateV] BETWEEN #" & Me![txtStart] & "# AND #" & Me![txtFinish] & "#"
    
   'Do any Records matching the Criteria even exist?
   If DCount("*", "Base", Mid$(strSQL, InStr(strSQL, "WHERE") + 6)) = 0 Then
     MsgBox "No Records found matching Criteria", vbExclamation, "No Records"
       Exit Sub
   End If
    
   Me!subform.Form.RecordSource = strSQL
    

5. Any questions at all feel free to ask.