My form filter quit working this week and I am not sure why. The only
change was from Windows 2000 to Windows XP. I have checked all
references and did not see one missing....any ideas? Here is the code.
Private Sub qWorkOrderNumber_AfterUpdate()
Dim MyWorkOrder As DAO.Recordset
Set MyWorkOrder = Me.RecordsetClone
MyWorkOrder.FindFirst "[WorkOrderID]=" & Me.qWorkOrderNumber
If MyWorkOrder.NoMatch Then
MsgBox "Work Order ID Not Found. Try Again."
Else
Me.Bookmark = MyWorkOrder.Bookmark
End If
End Sub
Private Sub Command43_Click()
On Error GoTo Err_Command43_Click
DoCmd.Close
Exit_Command43_Click:
Exit Sub
Err_Command43_Click:
MsgBox Err.Description
Resume Exit_Command43_Click
End Sub
Compile error: User Defined type not defined. (Highlights section of
code: DIM MyWorkOrder As DAO.Recordset)
This e-mail and any attachments may be confidential or legally privileged.
[Non-text portions of this message have been removed]