UPDATE Temp_UpdatedContactIDs INNER JOIN t_RelatedContacts ON Temp_UpdatedContactIDs.Old_ID = t_RelatedContacts.Contact_ID SET t_RelatedContacts.Contact_ID = [Temp_UpdatedContactIDs].[New_ID];

UPDATE q_ADMIN_MergedContactIDs 
INNER JOIN t_RelatedContacts ON q_ADMIN_MergedContactIDs.Old_ID = t_RelatedContacts.Contact_ID 
SET t_RelatedContacts.Contact_ID = [q_ADMIN_MergedContactIDs].[New_ID];

Private Sub Form_AfterUpdate()

Forms![f_MainTripForm_Admin]![ActivityDetailsDatasheet].Form.Requery

End Sub

[Forms]![f_MainTripForm_Admin].SetFocus
[Forms]![f_MainTripForm_Admin]![ButtonName].SetFocus

[Forms]![f_MainTripForm_Admin].SetFocus
[Forms]![f_MainTripForm_Admin]![TripStartDate].SetFocus

Private Sub ClearFilters_Btn_Click()

'Clear form filter fields

   AccoladeTarget_DD = Null
   AccoladeType_DD = Null
   Me.PersonName_DD = Null
   Me.PersonOffice_DD = Null
   Me.Year_DD = Null
   Me.City_DD = Null
   Me.ProvState_DD = Null
   Me.Region_DD = Null
   Me.Publisher_DD = Null

Function ReportFilters() As String

'Generate the String that will filter the reports
'First Field
   If IsNull(Me.AccoladeTarget_DD.Value) Then
       ReportFilters = "[AccoladeTarget] Like '*'"
   Else
       ReportFilters = "[AccoladeTarget]

[Target] = 'Firm' 
  AND [Type] Like '*' 
  AND [PersonName] Like '*' 
  AND [Office] Like '*'

Private Sub ReportFilters()

' Generate the String that will filter the reports
Dim strCriteria As String
First Field
   If IsNull(Me.RecStatus_DD.Value)

SELECT q_People.Person_ID,

Private Sub Form_Open(Cancel As Integer)

Dim MyDatabase As DAO.Database
Dim rstPeople As DAO.Recordset

Set MyDatabase= CurrentDb
Set rstPeople =