'check to see that a product and item selection has been made
If Not IsNull(selectedProductCode) Then
If Not IsNull(Me.ListItem.Value) Then
'save the Item code to global variables
selectedItemCode = Me.ListItem.Column(1)
'close window
DoCmd.Close
Exit Sub
|