LISTING 4.  Procedure to Refresh a Form and Show Changes Made by Others

Function requeryRemoteRestoreID()
Dim int1 As Integer

'Turn off screen updates and save employee ID
    DoCmd.Echo False
    int1 = Forms("frmemployees").EmployeeID

'Requery local recordset from the server
    openForm
    
'Reposition to employee ID before requery and
'restore screen updating
    Forms("frmEmployees").EmployeeID.SetFocus
    DoCmd.FindRecord int1
    DoCmd.Echo True
    
End Function