Private Sub CmbConsequense_AfterUpdate()
If CmbConsequense.Text = "Termination (Complete Termination Form)" Then
On Error GoTo CmdTerminate_Click_Err
' _AXL:<?xml version="1.0" encoding="UTF-16" standalone="no"?>
' <UserInterfaceMacro For="CmdCloseForm" xmlns="http://schemas.microsoft.com/office/accessservices/2009/11/application"><Statements><Action Name="CloseWindow"/></Statements></UserInterfaceMacro
' _AXL:>
' Docmd.OpenForm "frmlTermination", acNormal, "", "[EmployeeID]=" [&EmployeeID], , acNormal
DoCmd.OpenForm "frmTermination", acNormal, , "", "[EmployeeID]=", [&EmpoyeeID], acNormal
End If
CmdTerminate_Click_Exit:
Exit Sub
CmdTerminate_Click_Err:
MsgBox Error$
Resume CmdTerminate_Click_Exit
End Sub