Thank you both for such a prompt reply!
Aytee,
As you stated, the convert to macro was grayed out but your solution worked perfectly. Below is the converted macro.
Code:
Option Compare Database
'------------------------------------------------------------
' Macro1
'
'------------------------------------------------------------
Function Macro1()
On Error GoTo Macro1_Err
With CodeContextObject
On Error Resume Next
If (.Form.Dirty) Then
DoCmd.RunCommand acCmdSaveRecord
End If
If (.MacroError.Number <> 0) Then
Beep
MsgBox .MacroError.Description, vbOKOnly, ""
Exit Function
End If
On Error GoTo 0
DoCmd.OpenForm "frm_EEWorkHist", acNormal, "", "[EEID]=" & .EEID & " AND [WorkID]=" & .WorkID & "", , acDialog
If (Not IsNull(.EEID)) Then
TempVars.Add "CurrentID", .EEID
End If
If (IsNull(.EEID)) Then
TempVars.Add "CurrentID", Nz(DMax("[EEID]", .Form.RecordSource), 0)
End If
DoCmd.Requery ""
DoCmd.SearchForRecord , "", acFirst, "[EEID]=" & TempVars!CurrentID
TempVars.Remove "CurrentID"
End With
Macro1_Exit:
Exit Function
Macro1_Err:
MsgBox Error$
Resume Macro1_Exit
End Function