I am a newbie here and did not know where to post this question.
I am having a runtime error in a program I wrote a few years ago and now I get runtime error #13 - type mismatch.
Here is the code the debugger sent me to and I have placed **'s next to the line that is highlighted in the debugger.
Can anyone help? This has been running for 3 years without a hitch and no one has editted the code.
-----------
Private Sub cmd_Completed_Click()
Dim AlternateID As Variant
txt_SvcDescription.SetFocus
DoCmd.OpenForm "frm2_WorkOrderStatus"
** Forms![frm2_WorkOrderStatus]!lbl_IssuedTo.Caption = Me!IssuedTo
If Not IsNull(Me!PMSpec) Then AlternateID = DLookup("AlternateEmployeeID", "tbl_PmSpecifications", "[ID] = " & [PMSpec])
If Not IsNull(Me!CalSpec) Then AlternateID = DLookup("AlternateEmployeeID", "tbl_CalibrationSpecifications", "[ID] = " & [CalSpec])
If AlternateID > 0 Then
Forms![frm2_WorkOrderStatus].lbl_Alternate.Caption = DLookup("FirstNameLastName", "qry_EmployeeNames", "[Employee_Number] = " & [AlternateID])
Else
Forms![frm2_WorkOrderStatus].chk_Alternate.Enabled = False
End If
End Sub
----------
Thank you very much in advance fir your help.
Sincerely
