Single Control Button for multiple Combo Boxes

[kingofthekassel]

Hey guys,

To make things pretty simple, I have about four combo boxes all with different options. These give different ways to sort a bigger dataset. Anyway, I need to open a specific form which is easy enough. However I would like just one button to open the form given information in any of the combo boxes. I attached a picture of the current state of my database right now. Each button will give me the form corresponding to the ComboBox above it. Is there anyway to combine all of these buttons?

[June7]

Certainly. Review http://www.allenbrowne.com/ser-62.html

[orange]

June7 has given you a very good reference. If you want to see a free video on filtering data on a form, see this one from DataPig.

[kingofthekassel]

Thank you both so much! It is working great now! So I also created a form (shown below) which is what I need my Search form to spit out. I got the search and everything working, I was just wondering if there is a way to open all of the forms that the Search filtered? I know how to create an open form button but I can't seem to get it to spit out all of the search results. It only brings up wither one of the search results or it brings up every record I have. Thank you for your help!

[kingofthekassel]

Here is my code for what I have so far on my Search form, a picture of that is attached as well.

Option Compare Database
Option Explicit
Private Sub cmdFilter_Click()
Dim strWhere As String
Dim lngLen As Long
Const conJetDate = "\#mm\/dd\/yyyy\#"

If Not IsNull(Me.Combo13) Then
strWhere = strWhere & "([RiskNo] = """ & Me.Combo13 & """) AND "
End If

If Not IsNull(Me.Combo17) Then
strWhere = strWhere & "([Subcategory] = """ & Me.Combo17 & """) AND "
End If

If Not IsNull(Me.Combo19) Then
strWhere = strWhere & "([IPT] = """ & Me.Combo19 & """) AND "
End If

If Not IsNull(Me.Combo23) Then
strWhere = strWhere & "([Level] = """ & Me.Combo23 & """) AND "
End If

lngLen = Len(strWhere) - 5
If lngLen <= 0 Then
MsgBox "No Criteria", vbInformation, "Nothing To Do."
Else
strWhere = Left$(strWhere, lngLen)

Me.Filter = strWhere
Me.FilterOn = True
End If
End Sub

Private Sub cmdReset_Click()
Dim ctl As Control
For Each ctl In Me.Section(acHeader).Controls
Select Case ctl.ControlType
Case acComboBox
ctl.Value = Null
End Select
Next
Me.Filter = False
Me.FilterOn = True
End Sub


Private Sub Form_Open(Cancel As Integer)
Me.Filter = False
Me.FilterOn = True
End Sub


Private Sub cmdOpen_Form_Click()
On Error GoTo Err_cmdOpen_Form_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "RisksForm"

stLinkCriteria = "[RiskNo]=" & "'" & Me![RiskNo] & "'"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_cmdOpen_Form_Click:
Exit Sub
Err_cmdOpen_Form_Click:
MsgBox Err.Description
Resume Exit_cmdOpen_Form_Click

End Sub

[kingofthekassel]

Figured it out. For those still curious, I simply used the same code for the Open form button and added the code that is unique to an open form button.