Here's the code requested.
When the combo box item is selected a button is clicked then the below code.
Code:
Private Sub Continue_Click()
On Error GoTo Err_Continue_Click
If Not IsNull(Forms![CustomerLookupScreen01]![ID]) Then
DoCmd.OpenForm "CustomerLookupScreen02"
Forms![CustomerLookupScreen02]![ID] = Forms![CustomerLookupScreen01]![ID]
Forms![CustomerLookupScreen01].SetFocus
DoCmd.Minimize
Forms![CustomerLookupScreen02].SetFocus
End If
Exit_Continue_Click:
Exit Sub
Err_Continue_Click:
MsgBox Err.Description & ": " & Err.Number
Resume Exit_Continue_Click
End Sub
The query to fill the combo box is ...
Row Source:
Code:
SELECT [CUST].[ID], [CUST].[STNO], [CUST].[STREET] FROM [CUST] ORDER BY [ID];
where 'CUST' is the customer table.
Row Source Type: Table/Query
Bound Column: 1