Private Sub Position_Exit(Cancel As Integer)
Dim EmployeeID, FirstName, LastName As String
Dim strsqlnew As String
EmployeeID = Me.EmployeeID
FirstName = Me.FirstName
LastName = Me.LastName
strsqlnew = "INSERT INTO tblEmployeeStatus(employeeid, firstname, lastname)VALUES ('" & EmployeeID &...