The following example uses the Empty property to automatically open a lookup window if the Salesperson ID field is empty:
Private Sub SalespersonID_AfterGotFocus() If SalespersonID.Empty = True Then 'Click the lookup button to display the lookup window LookupButton8 = 1 End If End Sub