Private Sub EmployeeID_Click()
Dim empID As Integer
Dim strWhere As String
empID = Me.EmployeeID
strWhere = "EmployeeID = " & empID
'code execution stops when you open a dialog form
DoCmd.OpenForm "frmEmployees", , , strWhere, , acDialog
'code execution resumes when dialog form closed
Me.Requery
Me.Recordset.FindFirst strWhere
End Sub