Basing one combo box on another example for Microsoft problems

[CalMyPal]

Basing one combo box on another
January 31, 2005
By Sal Ricciardi

Making choices is what a combo box is for, but sometimes one choice depends on another. In this installment, you'll learn how to set up one combo box so that its list is based on the selection you make in another. We provide an example in a sample database that you can download.

When I add the close statement to his code it keeps asking for the combo box parameters.


Private Sub Category_AfterUpdate()
Me.Product = Null
Me.Product.Requery
Me.Product = Me.Product.ItemData(0)
End Sub

Private Sub Form_Current()
Me.Product.Requery
End Sub

Private Sub Form_Load()
If IsNull(Category) Then
Me.Category = Me.Category.ItemData(0)
Call Category_AfterUpdate
End If
End Sub

Private Sub Product_AfterUpdate()
' Find the record that matches the control.
Dim rs As Object

Set rs = Me.Recordset.Clone
rs.FindFirst "[Student ID] = " & Str(Nz(Me![Product], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark

End Sub

Private Sub cmdClose_Click()
On Error GoTo Err_cmdClose_Click

DoCmd.Close

Exit_cmdClose_Click:
Exit Sub

Err_cmdClose_Click:
MsgBox Err.Description
Resume Exit_cmdClose_Click

End Sub