Add Button

[Dhruvit]

I am tring to piggy back on this code, but needed some help. I have a combo box, and I've defined an "Add" Command button. So once a selection is updated from the combo, the "Add" button needs to be activated, and when "Add" button is clicked, sub-components of the value selected in the combo are then generated in the subform.

Thank you in advance for any help.

My code looks somewhat like this:

Private Sub Combo362_AfterUpdate()
Me.Refresh
 
Dim intNumOfDetails As Integer
Dim strMsg As String
 
'Will the Filter (Category/Standard) actually produce any Records?)
intNumOfDetails = DCount("*", "[Standard Under Review]", "[Standard] = " & Me![Combo362] & _
                          " And [Standard] = '" & Me![Combo362] & "'")
 
If Not IsNull(Me![Com]) Then      'must be an entry
  If intNumOfDetails > 0 Then           'Filter produces Records
    Me![Standard Under Review subform1].Form.Filter = "[Standard] = '" & Me![Combo362] & "'"
    Me![Standard Under Review subform1].Form.FilterOn = True
  Else
    strMsg = "No Standard Under Review exist for Standard [" & Me![Standard] & "] and " & _
             "[" & Me![Combo362] & "]!"
      MsgBox strMsg, vbExclamation, "No Standard Under Review"
  End If
End If
 
End Sub

Regards,
Dhruvit

[NeoPa]

This post was split from the original thread (Main Form ComboBox to Filter Records in SubForm) as it is a hijack. I suspect this was innocently done, but in future each new request must be posted in its own thread. It's perfectly acceptable of course to link to other threads if they contain anything you think may be relevant or helpful.

[NeoPa]

As to your question, it seems to be a simple request for someone to provide a solution. Maybe I'm misreading it but I don't see a real question here.

Perhaps if you were to rephrase the question (without relying on the code to explain what you want) someone may be able to help.